Search
Location
Recommended
More Links
<%
if request.querystring("task") = "sent" then
dim sName, sEmail, sMessage
dim oCdoMail, oCdoConf, sConfURL
'if Request.Form("Action") <> "" then
sEmail = " Applause Groups- Newsletter Sign-up
Name: " & Request.Form("txtName") & ("
") & "Email Address: " & Request.Form("txtEmail") Set oCdoMail = Server.CreateObject("CDO.Message") Set oCdoConf = Server.CreateObject("CDO.Configuration") sConfURL = "http://schemas.microsoft.com/cdo/configuration/" with oCdoConf .Fields.Item(sConfURL & "sendusing") = 2 .Fields.Item(sConfURL & "smtpserver") = "10.2.33.36" .Fields.Item(sConfURL & "smtpserverport") = 25 .Fields.Update end with with oCdoMail .From = "applausegroups@newslettersignup.com" .To = "groups@seatem.com" .Subject = "Applause Groups Newsletter Registration" .TextBody = sEmail .HTMLBody = sEmail .Configuration = oCdoConf .Send end with Set oCdoConf = Nothing Set oCdoMail = Nothing end if %>
Name: " & Request.Form("txtName") & ("
") & "Email Address: " & Request.Form("txtEmail") Set oCdoMail = Server.CreateObject("CDO.Message") Set oCdoConf = Server.CreateObject("CDO.Configuration") sConfURL = "http://schemas.microsoft.com/cdo/configuration/" with oCdoConf .Fields.Item(sConfURL & "sendusing") = 2 .Fields.Item(sConfURL & "smtpserver") = "10.2.33.36" .Fields.Item(sConfURL & "smtpserverport") = 25 .Fields.Update end with with oCdoMail .From = "applausegroups@newslettersignup.com" .To = "groups@seatem.com" .Subject = "Applause Groups Newsletter Registration" .TextBody = sEmail .HTMLBody = sEmail .Configuration = oCdoConf .Send end with Set oCdoConf = Nothing Set oCdoMail = Nothing end if %>
