<%
if Request("submit") <> "" then
Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")
Dim objCDOConf
Set objCDOConf = Server.CreateObject("CDO.Configuration")
With objCDOConf.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Set objCDO.Configuration = objCDOConf
' Be sure to use a valid email addresses below:
objCDO.From = "hutchm@comcast.net"
objCDO.To = "hutchm@comcast.net"
objCDO.Subject = "Subscription request from AFAC"
objCDO.TextBody = "Subscription request from AFAC"
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "email: "
objCDO.TextBody = objCDO.TextBody & Request("email")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & ""
objCDO.TextBody = objCDO.TextBody & Request("subscription")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & ""
objCDO.Send
'Clean-up
Set objCDO = Nothing
Set objCDOConf = Nothing
' Happy response. If you would rather,
' change the following to
Response.Redirect "thanks.html"
' Response.Write "Your Message has been sent. Thank you!"
Response.End
end if
%>