//Controllo Esistenza Utente
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "dsn=prova"
Dim sql
sql = "SELECT * FROM users where login='" & login & "'"
Dim rs //Creo Recordset
Set rs = cn.Execute(sql)
if rs.eof=true then
response.write("non c'è")
end if