Ho questo script per effettuare la registrazioen utente alla mia newsletter...
Il problema era che fin tanto stava su rùserver 2003 funzionava ora su server 2008 non piu'.
Qualcuno puo' correggermelo e fare un test...affiche' funzioni?
La mia email gionny85@yahoo.it
Per chi mi aiuta poi ho un lavoretto da realizare in asp (retrubuito).
Quindi chi ci sa fare sara' premiato.
Grazie.
html>
<head>
<title></title>
</head>
<body>
<%
set connection = Server.CreateObject("ADODB.Connection")
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/newsletter.mdb")
Connection.Open Conn_String
Set Recordsx = CreateObject("ADODB.Recordset")
sqltemp = "SELECT * FROM email where email='" & request.form("email") &"'"
Recordsx.Open sqltemp, Connection,2,3
'questa è risposta se l'indirizzo e-mail era già presente in archivio
'personalizza l'url in modo da far tornare il visitatore alla pagina
'in cui poter reinserire l'indirizzo di posta elettronica
if recordsx.eof = false then
response.write ("<font size=""2"" ace=""arial"">http://<b>L'indirizzo da te digitato...e indietro</b></font>")
'questa è risposta se l'indirizzo e-mail è corretto
'l'indirizzo viene scritto nel db e al visitatore viene data conferma
'personalizza l'url in modo da far tornare il visitatore alla pagina iniziale
Else
recordsx.addnew
recordsx("email") = request.form("email")
recordsx.update
response.write ("<font size=""2"" ace=""arial"">http://<b>Ora sei iscritto alla nost...e indietro</b></font>")
'Questo primo codice invia al visitatore il messaggio di benvenuto che puoi
'personalizzare a piacere. Il cocice & VbCrLf serve a mandare a capo
'il testo della mail
email=request.form("email")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="info@lott.com"
objMail.To=request.form("email")
objMail.Subject="Iscrizione alla Newsletter"
objMail.Body="Ciao " & email &VbCrLf & "Benvenuto alla nostra newsletter"
objMail.importance=1
objMail.Send
set objMail=nothing
'Questo secondo codice invia al webmaster la notifica dell'iscrizione
'di un visitatore nella newsletter indicando l'indirizzo di E-mail
'del visitatore stesso
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="info@lott.com"
objMail.To="info@lott.com"
objMail.Subject="Iscrizione di un utente alla Newsletter"
objMail.Body="L'utente " & email &VbCrLf & "si è registrato alla Newsletter"
objMail.importance=1
objMail.Send
set objMail=nothing
End if
%>
<tr>
<td align="center" valign="bottom" colspan="2"> </td>
</tr>
</body>
</html>
Rispondi quotando
