sto usando questo codice per creare una mailling list da un sito,
Dalla pag con il campo form richiamo questa:
Cosa posso inserire del codice per validare il campo (l'unico del form) email?
grazie mille
<%
aux=request.form("email")
dim sent, aux
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/public/mail.mdb")
sql = "SELECT * FROM users"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
sent= false
do until rs.EOF
if rs.fields("email")= aux then
sent= true
response.write "Your email is already in our list"
end if
rs.MoveNext
loop
if sent=false then
rs.AddNew
rs.Fields("email") = aux
rs.update
response.write "Your email has been inserted. Thank you"
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
Rispondi quotando
