Ero a pranzo...
Dunque, supponendo che il tuo form di login abbia i campi :
Username, Password

nella pagina che analizza i dati avrai:
codice:
Dim Username
Dim Pwd
Dim rs ' as recordset 
Username = Request.item("Username")
Pwd = Request.item("Password")
SQL = "Select * from user where "
SQL = SQL & "username = '" & Username &"' and "
SQL = SQL & "Password = '" & Pwd & "'"
a questo punto eseguiamo la query

codice:
set rs = server.createObject("Adodb.recordset")
rs.open SQL, connessione, 3, 3
if not rs.eof then
  session("RagioneSociale") = rs("RagioneSociale")
else
  response.write "Ripetere il login. Accesso non effettuato."
end if