devo raccogliere la registrazione a newsletter da un form con 2 campi (Nome "MailName" e email "MailSender") i dati, metterli nel DB e inviare l'email
Dove devo mettere il campo MailName ?
codice:<%@language=VBScript %> <html> <head> <body> <% Function RegExpTest(strng) Dim regEx Set regEx = New RegExp regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$" regEx.IgnoreCase = True RegExpTest = regEx.Test(strng) End Function mailSender = trim(request.form("mailSender")) errore = false mailName = trim(request.form("mailName")) mailSender = trim(request.form("mailSender")) errore = false if len(mailName) = 0 then esito = "<span class='testoavviso'>Errore, devi inserire un nome !</span> " errore = true elseif not(RegExpTest(mailSender)) then esito = esito &"<span class='testoavviso'>Errore, devi insere una email valida !</span> " errore = true else esito = "<span class='testo'>Grazie, per esserti iscritto, ora sarai aggiornato sulle novità di TEKMEDIA !</span>" end if if not errore then destinatario = "tekmedia@tekmedia.it" set conn = server.createObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mapPath("/_private/tekshop.mdb") mailName = replace(mailName, "'", "''") mailSender = replace(mailSender, "'", "''") sql = "INSERT INTO Newsletter (mailName, mailSender) VALUES('" & mailName & "', '" & mailSender & "')" conn.close set conn = nothing Dim sFromName Dim sToAddress sFromAddress= Request.form("MailSender") sToAddress= Request.form("MailRecipient") ' ******************************************************* ' Sub SendMail() Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = sFromAddress Mailer.FromAddress= sFromAddress Mailer.RemoteHost = "smtp.nettuno.it" Mailer.AddRecipient "TEKMEDIA Servizio Clienti", "tekmedia@tekmedia.it" Mailer.Subject = sSubject Mailer.BodyText = "Registrazione a TEKMEDIA Newsletter" If Mailer.SendMail then Response.Write "<span class='testoavviso'>L'email è stata inviata correttamente</span>" else Response.Write "<span class='testoavviso'>Errore nell' invio email. (Errore: " & Mailer.Response & ") </span>" End If set Mailer = Nothing End Sub %> </span> <% Call SendMail %> chiudi</div></td> </tr> </table> </center> </body> </html>
Rispondi quotando
