Riconoscimento utente

[poeta1978]

<%
'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é?

[gold]

onestamente l'unica cosa che non mi quadra è questa :

If rs.Fields("CodiceRichiesta")="'" & codice & "'" Then

non sapevo che si poteva usare anche cosi'...

in genere io lo uso cosi' RS("CodiceRichiesta")

[Sypher]

nn ho capito quest'if

If rs.Fields("CodiceRichiesta")="'" & codice & "'" Then

perchè ci sono apicetti all'inizio e alla fine, è così nel DB?

inoltre con qualche response.write controlla se il valore dei dati

[poeta1978]

Il problema erano gli apici

If rs.Fields("CodiceRichiesta")=codice Then

Grazie

Sì gold, io ho sempre usato rs.Fields.

[gold]

[Sypher]

[poeta1978]

Subito dopo la connessione al database ho aggiunto:

NomeCognome=rs.Fields("NomeCognome")
Citta=rs.Fields("Citta")
Provincia=rs.Fields("Provincia")
Telefono=rs.Fields("Telefono")

e dice:


ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

pagina.asp, line 38

La linea 38 è:

NomeCognome=rs.Fields("NomeCognome")

[Sypher]

la select è quella di prima?

[poeta1978]

Tutto uguale, ho solo fatto l'aggiunta prima degli if.

[Sypher]

Originariamente inviato da poeta1978
Tutto uguale, ho solo fatto l'aggiunta prima degli if.

i nomi dei campi sono esatti,esistono nella tabella codici?

e dato che ci sei questi dati che recuperi mettili nell'else del primo if!