Recuperare ID e spedirlo via email

[Enrique_Rojas]

modifico così:

..........

if not rs.eof then 

indirizzo = rs("email") 
user = rs("login") 
pass = rs("password1")
ID = rs("ID")
nome = rs("nome") 
cognome = rs("cognome") 
data = rs("data_ricevuto")

If Len(login) = 0 Then
Response.write "no"
end if 
Dim miaMail 
..............

Response.write"<center><font color='#CC3300' size='1' face='Verdana'>numero inviato.</font>"
else 
response.write"<center><font color='#CC3300' size='1' face='Verdana'>email NON registrata.</font>" 
end if


rs.close 
Set rs = Nothing 
Conn.Close
Set Conn = Nothing

Else
Response.Write"<center><font color='#CC3300' size='1' face='Verdana'>scrivere email.</font>"
End If

i controlli funzionano se non scrivo l'email o se l'email non è registrata, ma parte l'email anche quando il campo login del dabase è vuoto...

[99eros9]

scusa ma dove assegni il valore alla variabile "login"?
non vedo la riga di codice... non è che ti sbagli con user?

[Enrique_Rojas]

Originariamente inviato da 99eros9
scusa ma dove assegni il valore alla variabile "login"?
non vedo la riga di codice... non è che ti sbagli con user?

Non crdo sia quello il problema; anche sostituendo login con user il controllo non funziona...

..........

if not rs.eof then 

indirizzo = rs("email") 
user = rs("login") 
pass = rs("password1")
ID = rs("ID")
nome = rs("nome") 
cognome = rs("cognome") 
data = rs("data_ricevuto")

If Len(user) = 0 Then
Response.write "no"
end if     
Dim miaMail 

..............

Response.write"<center><font color='#CC3300' size='1' face='Verdana'>numero inviato.</font>"
else 
response.write"<center><font color='#CC3300' size='1' face='Verdana'>email NON registrata.</font>" 
end if


rs.close 
Set rs = Nothing 
Conn.Close
Set Conn = Nothing

Else
Response.Write"<center><font color='#CC3300' size='1' face='Verdana'>scrivere email.</font>"
End If

[sintax_error]

<%
user=request.form("p_user")
user=replace(user,"'",""")

password=request.form("p_password")
password=replace(password,"'","""")

MySQL="Select  * from utenti Where id_user = '"  & user & "'"
Set MyRs=MyConn.Execute(MySQL)

if  rs.EOF  then 
	errore="1"
	Rs.close
Set Rs= Nothing
MyConn.Close
set MyConn=nothing
response.redirect "errore.asp?err="&errore
end if

 
  rpass=trim(rs("password1"))
    if password <> rpass  then 
errore="2"
response.redirect "errore.asp?err="&errore

else

'quello che vuoi fare
end if
%>

Errore.asp

<% errore= request("err")
if errore = "1" then 
errore= "Username Errato o Inesistente"
end if
if errore= "2" then
errore= "Password Errata" 
end if
%>

<%=errore%>

[99eros9]

sostituisci il pezzo di codice con questo:

If (isNull(user) or (user = "")) Then
Response.write "no"
end if

vedi se funziona

[Enrique_Rojas]

Grazie, ma continua a stampare a video per i records con il campo 'login' vuoto nel dbase:

no
numero inviato

<% 
Dim rs, conn, sql, 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("/mdb.mdb")

sql = "SELECT * FROM tbl_login where email = '" & request.form("email")& "'" 

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

if not rs.eof then 

indirizzo = rs("email") 
user = rs("login") 
pass = rs("password")
ID = rs("ID")
nome = rs("nome") 
cognome = rs("cognome") 
data = rs("data_ricevuto")

If (isNull(user) or (user = "")) Then 
Response.write "no" 
end if 

Dim miaMail 

.........................

Response.write"<center><font color='#CC3300' size='1' face='Verdana'>Numero inviato</font>"
else 
response.write"<center><font color='#CC3300' size='1' face='Verdana'>email NON registrata.</font>" 
end if

rs.close 
Set rs = Nothing 
Conn.Close
Set Conn = Nothing

Else
Response.Write"<center><font color='#CC3300' size='1' face='Verdana'>scrivere email.</font>"
End If

%>

[99eros9]

If (isNull(user) or (user = "")) Then
Response.write "no"
Else

Dim miaMail

.........................
End if

Devi sistemare la verifica delle condizioni.

[Enrique_Rojas]

Originariamente inviato da 99eros9
If (isNull(user) or (user = "")) Then
Response.write "no"
Else

Dim miaMail

.........................
End if

Devi sistemare la verifica delle condizioni.

ok. adesso il controllo sembra funzionare, ma perchè continua a stampare a video:

no 
numero inviato

anche se l'email non viene inviata? :master:

[Enrique_Rojas]

Grazie !!! Risolto !!!!

If (isNull(user) or (user = "")) Then 
Response.write "no" 
else 
Dim miaMail
...........
Response.write"<center><font color='#CC3300' size='1' face='Verdana'>Numero inviato</font>"
end if
else 
response.write"<center><font color='#CC3300' size='1' face='Verdana'>email NON registrata.</font>"
end if
rs.close 
Set rs = Nothing 
Conn.Close
Set Conn = Nothing
ElseResponse.Write"<center><font color='#CC3300' size='1' face='Verdana'>scrivere email.</font>"
End If