hey...
avrei bisogno di un codice che controlla se è già presente un record in un database..
qulacuno che conosce uno funzionante
perchè io ne ho provati mille ma nessuno mi funziona
![]()
grazie..
hey...
avrei bisogno di un codice che controlla se è già presente un record in un database..
qulacuno che conosce uno funzionante
perchè io ne ho provati mille ma nessuno mi funziona
![]()
grazie..
Fai una select con i valori della variabili e li confronti con quelli del database:
codice:SQL = "select * from tabella where campo1 = var1 and campon = varn"
FEDERIX.IT - [Pillola] GRAFICA DEI FORM
...ho ancora quella forza che ti serve, quando dici "Si comincia!"
grazie mille ma potresti aiutarmi di più che io nn c capisco tanto di asp?
ti metto qui il codice e se ce la fai m metti al posto giusto quella stringa che m hai detto?
<%
'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
if user = Rs("user") then
Response.write("NIck già presente")
else
Rs.AddNew()
Rs("email") = request.form("email")
Rs("user") = request.form("user")
Rs("pass") = request.form("pass")
Rs("stato") = False
Rs.Update
End if
'chiudo recordset e connessione
Rs.Close
set Rs = Nothing
Conn.Close
set Conn = Nothing
response.write "Registrazione avvenuta con successo"
response.end
end if
%>