Originariamente inviato da bbgol
ho fatto questo form con annesso codice asp per inserire i dati del form nel database, avrei bisogno di controllare se uno di questi campi (email) esiste già nel database, prima, ovviamente di fare l'inserimento, e se lo trova non mi fa inserire i dati finquando non si cambia il campo email. come faccio?
<form method="post" name="form_user" onSubmit="return controllalog(this)">
<table width="100%" border="0">
<tr>
<td><div align="center"></div></td>
</tr>
<tr>
<td><H1 align="center"><font size="2">INSERISCI I DATI NEL DATABASE</font></H1>
<table width="100" border="0" align="center">
<tr>
<td>Nome</td>
<td valign="top">
<input type="text" name="nome" id="nome">
</td>
</tr>
<tr>
<td>Cognome</td>
<td valign="top"><input type="text" name="cognome" id="cognome"></td>
</tr>
<tr>
<td>Indirizzo</td>
<td valign="top"><input type="text" name="indirizzo" id="indirizzo"></td>
</tr>
<tr>
<td>Città</td>
<td valign="top"><input type="text" name="citta" id="citta"></td>
</tr>
<tr>
<td>Provincia</td>
<td valign="top"><input type="text" name="provincia" id="provincia"></td>
</tr>
<tr>
<td>Telefono</td>
<td valign="top"><input type="text" name="telefono" id="telefono"></td>
</tr>
<tr>
<td>Email</td>
<td valign="top"><input type="text" name="email" id="email"></td>
</tr>
<tr>
<td>Password</td>
<td valign="top"><input type="text" name="password" id="password"></td>
</tr>
</table>
<p align="center">
<input name="submit" type="submit" value="Iscriviti">
</p>
</td>
</tr>
</table>
</form>
<%
if len (Request.Form)>0 then
dim Conn, strConn
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("../mdb-database/bingo.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
SQL = "SELECT * FROM utenti"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 3
rs.AddNew
rs("nome") = request.Form("nome")
rs("cognome") = request.Form("cognome")
rs("indirizzo") = request.Form("indirizzo")
rs("citta") = request.Form("citta")
rs("provincia") = request.Form("provincia")
rs("telefono") = request.Form("telefono")
rs("email") = request.Form("email")
rs("password") = request.Form("password")
rs.Update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
End if
%>
Rispondi quotando
