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>
	
<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="">
    


    Ente appartenenza: 
    <input name="Ente" type="text" id="Ente" value="">
    


	E-mail:<input type="text" name="txtEmail" value="">


			<input type="submit" name="cmdSubmit" value="Invia">
		</div>
	</form>
<%
End If
%>
</body>
</html>