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>
Rispondi quotando
