Set conn = Server.CreateObject("ADODB.Connection")
conn.Open myConnString
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT campo1 FROM tabella"
Set rs = conn.Execute(sql)
while not rs.EOF
Response.Write rs("campo1") & "<br>"
rs.MoveNext
wend
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing