dove sbaglio? non funziona!

Public Sub login()
email = MyRequest.Form("email")
pws = MyRequest.Form("password")
pws = "areademo"
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("pws-gest.mdb")
strConn = strConn & ";pwd=" & pws
conn.Open (strConn)
Set strSql = "SELECT * FROM password WHERE email='" & email & "'AND password='" & password
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open strSql, conn, 3, 3

If Not (rs.EOF) Then
Myresponse.Write (rs.email)
Myresponse.Write (rs.password)
Myresponse.Write (rs.nome)
Myresponse.Write (rs.cognome)

Else

Myresponse.Write ("nessun dato trovato")
'chiudo il database
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End If
End Sub

questo è il codice che uso per creare una dll di verifica nome e pass
potete darmi una mano?