% 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 = "objCDO.TextBody & eMail: " objCDO.To = "mk@zeppastudios.com" objCDO.Subject = "Guest Book " & Request.ServerVariables("URL") objCDO.TextBody = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Name: " objCDO.TextBody = objCDO.TextBody & Request("Name") 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 & "Address: " objCDO.TextBody = objCDO.TextBody & Request("Address") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Zipcode: " objCDO.TextBody = objCDO.TextBody & Request("Zipcode") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "State or Country: " objCDO.TextBody = objCDO.TextBody & Request("State or Country") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing ' Happy response. If you would rather, ' change the following to ' Response.Redirect "thanks.html" or similar Response.Redirect "ecard_thankyou.html" Response.End end if %>
|
|||||
| You will only receive eMails about new ZEPPAgrams or new
Zeppa Studios, LLC products. We do not sell or share your information with anyone, ever. Please read our Privacy Policy. |
|||||
| |||||
|
|
|||||