Newsletter

roman · 22 Apr 2006

Amici non mi funge, come posso fare?:beer:

<html>
<head>
<title>NEWSLETTER</title>
</head>
<body>

<%

IF Len(Request.Form("email")) > 0 then
IF Instr(Request.Form("email"), ".") = 0 or Instr(Request.Form("email"), "@") = 0
Then
E
%>
<hr>
E-mail non
corretta!
<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>
Grazie per esserti
registrato!
<hr>
<%
ElseIF operazione = "cancellami" then

%>
<hr>
E-mail non presente nel
nostro database!
<hr>
<%
end if

Else

IF operazione = "iscrivimi" then
%>
<hr>
E-mail già
registrata!
<hr>
<%
End IF

IF operazione = "cancellami" then
RecSet.Delete
RecSet.Update
%>
<hr>

E-mail cancellata
correttamente! Grazie per essere stato con noi!
<hr>
<%
End IF
End IF
RecSet.Close
Conn.Close
End IF

Else
%>
<hr>
E-mail non
corretta!
<hr>
<%
End IF
%>
</body>
</html>

daviduccio · 22 Apr 2006

Prova a cambiare il testo in rosso:

<html>
<head>
<title>NEWSLETTER</title>
</head>
<body>

<%

IF Len(Request.Form("email")) > 0 then
IF Instr(Request.Form("email"), ".") = 0 or Instr(Request.Form("email"), "@") = 0
Then
E
%>
<hr>
E-mail non
corretta!
<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 not RecSet.Eof then

IF operazione = "iscrivimi" then
RecSet.Addnew
RecSet("email") = email
RecSet.Update
%>
<hr>
Grazie per esserti
registrato!
<hr>
<%
ElseIF operazione = "cancellami" then

%>
<hr>
E-mail non presente nel
nostro database!
<hr>
<%
end if

Else

IF operazione = "iscrivimi" then
%>
<hr>
E-mail già
registrata!
<hr>
<%
End IF

IF operazione = "cancellami" then
RecSet.Delete
RecSet.Update
%>
<hr>

E-mail cancellata
correttamente! Grazie per essere stato con noi!
<hr>
<%
End IF
End IF
RecSet.Close
Conn.Close
End IF

Else
%>
<hr>
E-mail non
corretta!
<hr>
<%
End IF
%>
</body>
</html>

roman · 23 Apr 2006

Ti rigrazio, ho provato ma mi da questo errore:beer:

HTTP 500 - Errore interno del server
Internet Explorer

daviduccio · 23 Apr 2006

Ehm..... ci mancava l'end if....scusa.

<html>
<head>
<title>NEWSLETTER</title>
</head>
<body>

<%

IF Len(Request.Form("email")) > 0 then
IF Instr(Request.Form("email"), ".") = 0 or Instr(Request.Form("email"), "@") = 0
Then
E
%>
<hr>
E-mail non
corretta!
<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 not RecSet.Eof then

IF operazione = "iscrivimi" then
RecSet.Addnew
RecSet("email") = email
RecSet.Update
%>
<hr>
Grazie per esserti
registrato!
<hr>
<%
ElseIF operazione = "cancellami" then

%>
<hr>
E-mail non presente nel
nostro database!
<hr>
<%
end if

Else

IF operazione = "iscrivimi" then
%>
<hr>
E-mail già
registrata!
<hr>
<%
End IF

IF operazione = "cancellami" then
RecSet.Delete
RecSet.Update
%>
<hr>

E-mail cancellata
correttamente! Grazie per essere stato con noi!
<hr>
<%
End IF
End IF
RecSet.Close
Conn.Close
End IF

Else
%>
<hr>
E-mail non
corretta!
<hr>
<%
End IF
End if
%>
</body>
</html>

roman · 24 Apr 2006

GRazie ma ancora non funge. Guarda sono due mesi che combatto con la newsletter e non riesco a finirla. Sono alle prime armi ma non ci riesco. Sempre lo stesso errore.
Complimenti per il tuo sito, carino.
:beer:

Cerca

Cerca

Newsletter

roman

Nuovo Utente

daviduccio

Moderatore

roman

Nuovo Utente

daviduccio

Moderatore

roman

Nuovo Utente

Discussioni simili