ho un form che mi spara 2 dati in una popup e su questa devo fare il controllo !
Nonmi fa il controllo cioè mi chiede sempre il nome anche se lo metto e non passa al controllo email !!!!
nella pagina del form ho messo:
<script>
function news(a,w,h){
l=(screen.width-w)/2;
t=(screen.height-h)/2;
property="scrollbars=no,width="+w+",height="+h+",t op="+t+",left="+l;
window.open(a,"_blank",property);
}
</script>
<input name="name" type="text" id="name">
<input name="email" type="text" id="email">
<input name="submit" type="submit" id="submit" onClick="javascript:news('invia_newsletter.asp',25 0,250)" value="Invio">
e nella popup :
<%
Function RegExpTest(strng)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"
regEx.IgnoreCase = True
RegExpTest = regEx.Test(strng)
End Function
name = trim(request.form("name"))
email = trim(request.form("email"))
errore = false
if len(name) = 0 then
esito = "<span class='avviso'>Errore, devi inserire un nome !</span> "
errore = true
elseif not(RegExpTest(email)) then
esito = esito &"<span class='titolirossi'>Errore, devi insere una email valida !</span> "
errore = true
else
esito = "<span class='testigrigi'>Grazie, per esserti iscritto, ora sarai aggiornato sulle novità e sui prodotti a Radiofrequenza che AUREL sviluppa e produce !</span>"
end if
if not errore then
destinatario = "miaemail@dominio.xxx"
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mapPath("../../FPDB/wire_products.mdb")
email = replace(email, "'", "''")
name = replace(name, "'", "''")
sql = "INSERT INTO email (email, name) VALUES('" & email & "', '" & name & "')"
conn.execute(sql)
conn.close
set conn = nothing
corpo = "Grazie per esserti iscritto alle nostre Newsletter !"
set mail = server.createObject("CDONTS.newMail")
mail.from = email
mail.to = destinatario
mail.subject = "AUREL Wireless Newsletter"
mail.body = corpo
mail.send
set mail = nothing
end if
response.write esito
%>