codice:
<%
'prendo i dati
email=Request.Form("Email")
codice=Request.Form("Codice")

'avvio la connessione
Dim cn
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Dim rs, strConn, strSql
Set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT * FROM codici WHERE Email"
rs.Open "SELECT * FROM codici WHERE [Email] = '" & email & "'", cn

'verifico la presenza dell'email
If rs.EOF Then
email_ok="False"
ELSE
email_ok="True"

'se c'è controllo il codice
If rs.Fields("CodiceRichiesta")="'" & codice & "'" Then
codice_ok="True"
Else
codice_ok="False"
End If

End If

'i dati sono corretti
If (email_ok="True" AND codice_ok="True") Then

'controllo che il campo Vero/Falso non sia spuntato
If rs.Fields("Numero_Scelto")=False Then

'quindi visulizzo la form
%>
	<form action="manda_numero.asp" method="post" name="numero">
        Scegli un numero da 1 a 90

		<input name="Numero" type="text" size="4" />

        <input name="Invia" type="submit" value="Invia" />
      </form>
      <%
'il campo è spuntato e dò errore
Else
%>
      Hai gi&agrave; scelto il tuo numero.

      

      <%
End If
 perché?
Else
'i dati immessi sono errati
%>
      E-mail o codice errati, riprova

      

<%
End If

rs.Close
cn.Close
%>
Dice sempre "E-mail o codice errati, riprova", perché?