Io ho fatto così:
Qui il form per scegliere se cancellarti o iscriverti
codice:
<HTML>
<HEAD>
<SCRIPT LANGUAGE="javascript">
function indirizzoEmailValido(indirizzo) {
if (window.RegExp) {
var nonvalido = "(@.*@)|(\\.\\.)|(@\\.)|(\\.@)|(^\\.)";
var valido = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,4}|[0-9]{1,3})(\\]?)$";
var regnv = new RegExp(nonvalido);
var regv = new RegExp(valido);
if (!regnv.test(indirizzo) && regv.test(indirizzo))
return true;
return false;
}
else {
if(indirizzo.indexOf("@") >= 0)
return true;
return false;
}
};
function controllaDati(modulo) {
if (!indirizzoEmailValido(modulo.email.value)) {
modulo.email.select();
alert("Si prega di inserire un indirizzo email valido");
return false;
}
else
return true;
};
</SCRIPT>
</HEAD>
<style type="text/css">
<!--
.Stile1 {
color: #FFCC00;
font-weight: bold;
}
-->
</style>
<body>
<form action="invia_rich_newsl.asp" method="post" onSubmit="javascript:return controllaDati(this);">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><p align="center"><input name="email" type="text" size="15" maxlength="50" value="YourEmailHere"/> </p></td>
</tr>
<tr>
<td width="65%" valign="top"><input type="radio" name="radio" value="iscrivimi" checked>
Subscribe
</td>
</tr>
<tr>
<td valign="top">
<input type="radio" name="radio" value="cancellami">
Unsubscribe
</td>
</tr>
<tr>
<td valign="top"><div align="left">
<input name="submit" type="submit" value="Invia" onClick="apriw('invia_rich_newsl.asp');"/>
</div></td>
</tr>
</table>
<hr>
</form>
</body>
</html>
Qui sotto la pagina invia_rich_newsl.asp per l'uso dei dati del form:
codice:
<html>
<LINK href="...IL TUO FOGLIO DI STILE ECC.../default_style.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
body {
background-color: #526384;
}
.Stile1 {color: #FFFFFF}
.Stile2 {
font-size: 14px;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
.Stile4 {
color: #FFFFFF;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 14px;
}
-->
</style>
<%
Dim iscritto, iscrizione
iscritto = Request.Form("email")
iscrizione = Request.Form("radio")
if iscrizione = "iscrivimi" then
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/mailinglist.mdb")
'controllo che non sia già stato inserito
Contrsql="select iscritto from email where ucase(iscritto)='" & trim(ucase(iscritto)) & "'"
set rs=myconn.execute(contrsql)
if not rs.eof then
%>
<title>Invia</title><div align="center">
Questo indirizzo Email è già presente nel nostro database!
Sarete reindirizzati in 5 secondi...
<SCRIPT>
setTimeout("history.go(-1)",5000);
</SCRIPT>
</div>
<%
else
'inserisci la mail nel database
Sql = " INSERT INTO email "
Sql = Sql & " (iscritto) "
Sql = Sql & "VALUES ('"
Sql = Sql & iscritto & "')"
Myconn.execute(Sql)
rs.Close
Set rs=Nothing
MyConn.Close
Set MyConn=Nothing
%>
<title>Invia</title><div align="center">
<p class="Stile1 Stile2">Vi siete iscritti alla Newsletter!
Sarete reindirizzati in 5 secondi...
<SCRIPT>
setTimeout("history.go(-1)",5000);
</SCRIPT>
</p>
</div>
<%
end if
end if
if iscrizione = "cancellami" then
'Response.Write(iscritto)
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/mailinglist.mdb")
'controllo che non sia già stato inserito
Contrsql="select iscritto from email where ucase(iscritto)='" & trim(ucase(iscritto)) & "'"
set rs=myconn.execute(Contrsql)
if rs.eof then
%>
<title>Invia</title><div align="center">
Questo indirizzo Email non è presente nel nostro database!
Sarete reindirizzati in 5 secondi...
<SCRIPT>
setTimeout("history.go(-1)",5000);
</SCRIPT>
</div>
<%
else
MyConn.Execute("DELETE FROM email WHERE iscritto ='" & iscritto &"'" )
rs.Close
Set rs=Nothing
MyConn.Close
Set MyConn=Nothing
%>
<div align="center">
Vi siete cancellati dalla Newsletter!
Sarete reindirizzati in 5 secondi...
<SCRIPT>
setTimeout("history.go(-1)",5000);
</SCRIPT>
</div>
<%
end if
end if
%>
Spero di esserti stato utile
Permessi di invio
Rispondi quotando