Vorrei aggiungere qualche piccola funzione a questa news letter:
- un contatore esterno per visualizzare il numero delle persone iscritte
- e una conferma di sottoscrizione dell'iscrizione tramite e-mail
sapreste aiutarmi?
Grazieeeeeeeeeeeeeeeeeeeee
codice:
<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<html>
<head>
<!-- #include file="./DBConnect.inc"-->
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<span class="pulsantiBIG">
<%
Dim con, rs, strSql
If Request.Form("cmdSubmit") <> "" Then
'The user has submitted the page, so process the Newsletter subscription request
'Connect to the database
Set con = GetDBConnection()
'Verify that the email address does not already exist in the database
strSql = "SELECT Nome, Cognome, ente, Email FROM Subscribers WHERE Email = '" + Request.Form("txtEmail") + "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, con, 1, 2
If rs.EOF Then
'The email address does not already exist, so add it
rs.AddNew()
rs("Nome") = Request.Form("Nome")
rs("Cognome") = Request.Form("Cognome")
rs("ente") = Request.Form("Ente")
rs("Email") = Request.Form("txtEmail")
rs.Update()
'The email address has been added, show confirmation.
'MODIFY the text below is displayed when an email is added to the newsletter
%>
Complimenti, la registrazione alla mailinglist di è stata effettuata correttamente
<%
Else
'The email address already exists in the database
'MODIFY the text below is displayed when a person tries to enter the same email address
' a second time.
%>
Questa e-mail è stata già utilizzata
<%
End If
'Clean up database objects
rs.Close()
Set rs = Nothing
con.Close()
Set con = Nothing
Else
'MODIFY the text below is displayed when the page is first loaded.
%>
</span>
<form action="subscribe.asp" method="post">
<div align="center" class="gray"> Nome:
<input name="Nome" type="text" id="Nome" value="">
Cognome:
<input name="Cognome" type="text" id="Cognome" value="">
<br><br/>
Ente appartenenza:
<input name="Ente" type="text" id="Ente" value="">
<br><br/>
E-mail:<input type="text" name="txtEmail" value=""><br><br/>
<input type="submit" name="cmdSubmit" value="Invia">
</div>
</form>
<%
End If
%>
</body>
</html>
- un contatore esterno per visualizzare il numero delle persone iscritte
- e una conferma di sottoscrizione dell'iscrizione tramite e-mail
sapreste aiutarmi?
Grazieeeeeeeeeeeeeeeeeeeee
codice:
<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<html>
<head>
<!-- #include file="./DBConnect.inc"-->
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<span class="pulsantiBIG">
<%
Dim con, rs, strSql
If Request.Form("cmdSubmit") <> "" Then
'The user has submitted the page, so process the Newsletter subscription request
'Connect to the database
Set con = GetDBConnection()
'Verify that the email address does not already exist in the database
strSql = "SELECT Nome, Cognome, ente, Email FROM Subscribers WHERE Email = '" + Request.Form("txtEmail") + "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, con, 1, 2
If rs.EOF Then
'The email address does not already exist, so add it
rs.AddNew()
rs("Nome") = Request.Form("Nome")
rs("Cognome") = Request.Form("Cognome")
rs("ente") = Request.Form("Ente")
rs("Email") = Request.Form("txtEmail")
rs.Update()
'The email address has been added, show confirmation.
'MODIFY the text below is displayed when an email is added to the newsletter
%>
Complimenti, la registrazione alla mailinglist di è stata effettuata correttamente
<%
Else
'The email address already exists in the database
'MODIFY the text below is displayed when a person tries to enter the same email address
' a second time.
%>
Questa e-mail è stata già utilizzata
<%
End If
'Clean up database objects
rs.Close()
Set rs = Nothing
con.Close()
Set con = Nothing
Else
'MODIFY the text below is displayed when the page is first loaded.
%>
</span>
<form action="subscribe.asp" method="post">
<div align="center" class="gray"> Nome:
<input name="Nome" type="text" id="Nome" value="">
Cognome:
<input name="Cognome" type="text" id="Cognome" value="">
<br><br/>
Ente appartenenza:
<input name="Ente" type="text" id="Ente" value="">
<br><br/>
E-mail:<input type="text" name="txtEmail" value=""><br><br/>
<input type="submit" name="cmdSubmit" value="Invia">
</div>
</form>
<%
End If
%>
</body>
</html>
