Amici non mi funge, come posso fare?:beer:
<html>
<head>
<title>NEWSLETTER</title>
</head>
<body>
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
IF Len(Request.Form("email")) > 0 then
IF Instr(Request.Form("email"), ".") = 0 or Instr(Request.Form("email"), "@") = 0
Then
E
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail non
corretta!</font></b></p>
<hr>
<%
Else
email = Replace(Request.Form("email"), "'", "''")
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdbdatabase/
database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Email_Newsletter where email = '"& email &"'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
operazione = Request.Form("operazione")
IF RecSet.Eof then
IF operazione = "iscrivimi" then
RecSet.Addnew
RecSet("email") = email
RecSet.Update
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">Grazie per esserti
registrato!</font></b></p>
<hr>
<%
ElseIF operazione = "cancellami" then
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail non presente nel
nostro database!</font></b></p>
<hr>
<%
end if
Else
IF operazione = "iscrivimi" then
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail già
registrata!</font></b></p>
<hr>
<%
End IF
IF operazione = "cancellami" then
RecSet.Delete
RecSet.Update
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail cancellata
correttamente! <br>Grazie per essere stato con noi!</font></b></p>
<hr>
<%
End IF
End IF
RecSet.Close
Conn.Close
End IF
Else
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail non
corretta!</font></b></p>
<hr>
<%
End IF
%>
</body>
</html>
<html>
<head>
<title>NEWSLETTER</title>
</head>
<body>
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
IF Len(Request.Form("email")) > 0 then
IF Instr(Request.Form("email"), ".") = 0 or Instr(Request.Form("email"), "@") = 0
Then
E
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail non
corretta!</font></b></p>
<hr>
<%
Else
email = Replace(Request.Form("email"), "'", "''")
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdbdatabase/
database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Email_Newsletter where email = '"& email &"'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
operazione = Request.Form("operazione")
IF RecSet.Eof then
IF operazione = "iscrivimi" then
RecSet.Addnew
RecSet("email") = email
RecSet.Update
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">Grazie per esserti
registrato!</font></b></p>
<hr>
<%
ElseIF operazione = "cancellami" then
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail non presente nel
nostro database!</font></b></p>
<hr>
<%
end if
Else
IF operazione = "iscrivimi" then
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail già
registrata!</font></b></p>
<hr>
<%
End IF
IF operazione = "cancellami" then
RecSet.Delete
RecSet.Update
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail cancellata
correttamente! <br>Grazie per essere stato con noi!</font></b></p>
<hr>
<%
End IF
End IF
RecSet.Close
Conn.Close
End IF
Else
%>
<hr>
<p align="center"><b><font size="4" face="Verdana">E-mail non
corretta!</font></b></p>
<hr>
<%
End IF
%>
</body>
</html>