% cod = request.QueryString("cod") Set con = Server.CreateObject("ADODB.Connection") con.Open connStr %>