verificare l'esistenza di un Username?

[Stanislao]

Uso questo script per iscrizione ad una community
ora volevo sapere come fare un redirect ad una pagina di errore
se esiste gia qualcuno con lo stesso User nel database

<%
'**************CONNESSIONE 
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from utenti"
rs.Open sql, cn, 3, 3

'**************REGISTRAZIONE
rs.AddNew
rs("User") = Request.form("User")
rs("Password") = Request.form("Password")
rs("Email") = Request.form("Email")
rs("Nome") = Request.form("Nome")
rs("Cognome") = Request.form("Cognome")
rs("Telefono") = Request.form("Telefono")
rs("Sesso")= Request.form("Sesso")
rs("Foto")= Request.form("user")
rs("Stato_Sentimentale")= Request.form("Stato_Sentimentale")
giorno = request.form("giorno")
mese = request.form("mese")
anno = request.form("anno")
data = giorno & "/" & mese & "/" & anno
rs("Data_Nascita")= data
rs("Data_Iscrizione")=date()

rs.Update
rs.Close
set rs = Nothing
cn.Close
Set cn = Nothing
Response.redirect "ok.asp"
%>

Grazie 19000

[Stanislao]

cioè forse non mi sono spiegato bene
come si verifica l'esistenza di un user nel db?

se esiste scrivo se no redirect...

grazie 20.000

[[trodat]]

User = Request.form("User")
Password = Request.form("Password")
	
	strsql = "Select * FROM tbl_login "
	strsql = strsql & "WHERE login ='" & user & "' AND password = '" & password & "'"
	
	Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open strConn
	set objRs = objConn.Execute(strsql)
	
	If objRs.EOF then
		'Non e' valido, mandalo indietro
		response.redirect "ciao.asp"
	Else
		'e' valido, fallo entrare
		session("login") = True
		
		objRs.close
		Set objRs = Nothing
		response.redirect "ufficio.asp"
	end if

[Stanislao]

ma questo è un login ???

io devo verificare l'esistenza al momento della registrazione

[[trodat]]

pappa pronta?

E' un esempio, il criterio è lo stesso... adattalo... pigrone! :maLOL:

[Stanislao]

a ok

[Stanislao]

ho fatto così..... ma mi registra cmq..

if rs.eof then

Response.redirect "registra2.asp"
     
else

rs.AddNew
rs("User") = Request.form("User")
rs("Password") = Request.form("Password")

etc etc...

[[trodat]]

Scusa tanto ma il confronto tra l'esistente ed il nuovo utente?

[Stanislao]

FA NULLA SCUSAMI... NON LO FACCIO

[[trodat]]

adesso sono occupato, ti passo il codice più tardi... pazienta...