Recuperare ID e spedirlo via email

[Enrique_Rojas]

Ciao, dovrei far recuperare in asp con un form il codice di registrazione (equivalente all'ID) di un utente inserito in una tbl, di un dbase, così strutturata:

ID = contatore chiave primaria (codice di registrazione);
nome = testo
cognome = testo
login = testo
password = testo
email = testo

Per il recupero dell'ID ho scritto così:

sql = "SELECT * FROM login where ID = '" & email & "'"

ma restituisce errore:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

e poi questo codice di registrazione ID deve essere spedito solo quando il campo 'login' della tabella è compilato, se no non deve essere spedito.
Al momento quello che riesco a fare è solo far recuperare la password di registrazione.

Grazie

[99eros9]

La tua query non quadra.
qual'è il valore di email?
login è la username dell'utente?

quell'errore dipende dal fatto che il tipo di dato non è esatto.. probabilmente dovresti scrivere così:
sql = "SELECT * FROM login where ID = " & email

...anche se, ripeto, la query non credo raggiunga il tuo scopo-.

[Enrique_Rojas]

Originariamente inviato da 99eros9
La tua query non quadra.
qual'è il valore di email?
login è la username dell'utente?

quell'errore dipende dal fatto che il tipo di dato non è esatto.. probabilmente dovresti scrivere così:
sql = "SELECT * FROM login where ID = " & email

...anche se, ripeto, la query non credo raggiunga il tuo scopo-.

Grazie, posto tutto il code:

<% 
Dim rs, conn, sql, x, email

email = request.form("email")

If Len(email) > 0 Then 
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/database.mdb")


sql = "SELECT * FROM tbl_login where ID = '" & email & "'" 

Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql, conn, 3, 3  

if not rs.eof then 

indirizzo = rs("email") 
user = rs("login1") 
pass = rs("password1") 

Dim miaMail 
.........

la query suggerita restituisce.
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID = emel@aruba.it'.

[99eros9]

... ma nel campo ID c'è un codice numerico di registrazione tipo un auto_increment o pure c'è scritto l'indirizzo email dell'utente?

[Enrique_Rojas]

Originariamente inviato da 99eros9
... ma nel campo ID c'è un codice numerico di registrazione tipo un auto_increment o pure c'è scritto l'indirizzo email dell'utente?

l'ID è un contatore chiave primaria, quindi autoincremento. grazie

[99eros9]

Credo il problema sia a monte.
una volta recuperati username e password dal form tipo:

If Len(request.form("email")) = 0 Then
'vai al form?
End If

Dim strUserName, strPassword, intId
strUserName = request.form( "cmpUser" )
strPassword = request.form( "cmpPsw")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/database.mdb")



'cerchi l'id attraverso la query

Dim objRs

set objRs = conn.Execute( "Select id From tbl_login Where user = ' " & strUsername & " ' And password = ' " & strPassword & " ' " )

quindi

If Not objRs.Eof Then
intId = objRs( "ID" )
'codice invio mail
Else
'ritorna alla pagina del form
End If


objRs.Close
set objRs = Nothing
conn.Close
Set conn = Nothing

a somme linee dovrebbe essere così

[99eros9]

se invece vuoi individuare il record attraverso l'indirizzo email, allora nella query non sarà ID='"&email&"'" ma campo_Email='"&email&"'"

[Enrique_Rojas]

il problema è che nel form non ho previsto di scrivere login e password... non è possibile recupere l'ID solo con l'email?

[99eros9]

si, ma la cosa non mi sembra seria infatti, deduco, che se io conoscessi soltanto l'indirizzo email di un tuo utente potrei, compilando il form senza controlli, potrei creare dei problemi. comunque, se hai un campo "cmpEmail", ad esempio, puoi fare una query di questo tipo:
sql = "SELECT * FROM tbl_login where cmpEmail = '" & request.form("email")& "'"

e quindi recuperare username, password, e id nel modo che conosci.

[Enrique_Rojas]

Originariamente inviato da 99eros9
si, ma la cosa non mi sembra seria infatti, deduco, che se io conoscessi soltanto l'indirizzo email di un tuo utente potrei, compilando il form senza controlli, potrei creare dei problemi. comunque, se hai un campo "cmpEmail", ad esempio, puoi fare una query di questo tipo:
sql = "SELECT * FROM tbl_login where cmpEmail = '" & request.form("email")& "'"

e quindi recuperare username, password, e id nel modo che conosci.

Grazie per i preziosi consigli, adesso è ok; un'ultima cosa come mando a capo il testo dell'email?

miaMail.Body = "Numero: " & ID & "& VbCrLf & " "Utente: " & user & " Email: " & indirizzo