e invece, qui, quanti errori ci sono??

codice:
Sub Entra(sender As Object, e As EventArgs)
 Dim cn
 Dim rs As RecordSet
 Dim surname As String
 Dim name As String
 Dim pwd As String
 Dim check As Boolean
 surname = txtCognome.Text
 name = txtNome.Text
 pwd = pwd.Text
 cn = Server.CreateObject("ADODB.Connection")
 cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("\utenti.mdb") 
 rs = cn.Execute("SELECT contatore, cognome, nome, password FROM utenti WHERE cognome = '" & surname & "'", nome = '" & name & "'")
 check = 0
 Do While NOT rs.EOF
  If pwd = rs("password").Value Then
   session("login") = 1
   sessione("user") = rs("contatore").Value
   response.redirect "page.aspx"
   check = 1
  Else
   'raise error password sbagliata Errorp()
   check = 1
  End If
  If check = 0 Then
   'raise error no user Erroru()
  End If
 Loop
End Sub

Sub Page_UnLoad(sender As Object, e As EventArgs)
 cn.Close
 cn = Nothing
 rs = Nothing
End Sub