Registrazione: controllo utente già presente

[KiKkO_helpME]

ciao a tutti...è tre giorni che provo a fare sta cosa ma nn c riesco..per piacere aiutatemi...
io devo fare un sistema di autenzicazione con login e password..
ho fatto tutto ma l'unica cosa che nn m viene è fare in modo che quando un nuovo utente si registra se il nickname è già presente nel db viene reindirizzato ad un'altra pagina e il record nn si memorizzi nel db...
sapete come fare?
dai,vi mette il codice di esempio...

<%
'Creo la variabile Action
Dim Action
Action = request.form("act")
'Se Action è vuoto stampo il modulo
if Action = "" then
%>

<form method="POST">
<input type="hidden" name="act" value="salva">
<table border="0">
<tr><td>Tua Email</td><td><input type="text" name="email" size="30"></td></tr>
<tr><td>Username</td><td><input type="text" name="user" size="30"></td></tr>
<tr><td>Password</td><td><input type="password" name="pass" size="30"></td></tr>
<tr><td colspan="2"><input type="submit" value="ISCRIVITI"></td></tr>
</table>
</form>

<%
'Se Action ha come valore "salva"...
'Inserisco i valori del modulo nel DB
elseif Action = "salva" then

'Apro la connessione al DB
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
Server.MapPath("db\utenti_sito.mdb")


'Aggiungo un nuovo record al DB
Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "UTENTI", conn, 1, 3


Rs.AddNew()
Rs("email") = request.form("email")
Rs("user") = request.form("user")
Rs("pass") = request.form("pass")
Rs("stato") = False
Rs.Update


'chiudo recordset e connessione
Rs.Close
set Rs = Nothing
Conn.Close
set Conn = Nothing

response.write "Registrazione avvenuta con successo"
response.end

end if
%>

[optime]

sforzati un po'... da' un titolo sensato al 3d!

[KiKkO_helpME]

e lo so ma nn sapevo che mettere

[cicetaar]

'Aggiungo un nuovo record al DB 
Dim RS_1 
Set RS_1 = Server.CreateObject("ADODB.Recordset") 

RS_1.open "Select * from utenti where utenti.user=" & request.form("user") , conn, 1, 3

if RS_1.recordcount = BOF and RS_1.recordcount=EOF then

'Aggiungo un nuovo record al DB 
Dim Rs 
Set Rs = Server.CreateObject("ADODB.Recordset") 
Rs.Open "UTENTI", conn, 1, 3 


Rs.AddNew() 
Rs("email") = request.form("email") 
Rs("user") = request.form("user") 
Rs("pass") = request.form("pass") 
Rs("stato") = False 
Rs.Update 
 

else

response.redirect ("error.asp")
RS_1.close

end if

prova.. l'ho fatto al volo

[Roby_72]

La prossima volta che darai un titolo del genere alle tue discussioni l'ira del moderatore si abbatterà su di te senza soluzione di continuità!

Roby

[cicetaar]

:maLOL:

[KiKkO_helpME]

ehy...ti ringrazio tantissimo ma cmq m da sto errore....

File: C:\Active Server Page\registrati.asp
Source: Microsoft OLE DB Provider for ODBC Drivers
Error: 80040E10
Description: [Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.
Line: 33 Column: 0
Code: RS_1.open "Select * from utenti where utenti.user=" & request.form("user") , conn, 1, 3

[Roby_72]

RS_1.open "Select * from utenti where utenti.user='" & request.form("user") &"'", conn, 1, 3

Dubito che lo "user" contenga un numero...

Roby

[KiKkO_helpME]

e quindi che devo fare?

cmq scusami per il titolo
nn so perchè homesso quella cosa...
bah
forse perchè i puntini li scrivo sempre..

[Roby_72]

Ti ho già risposto!

Lo script l'ho corretto... non te ne sei accorto?

Roby