|
|||||||||
| <% 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 = "bdresortwear@gmail.com" objCDO.To = "bdresortwear@gmail.com" objCDO.Subject = "Contact Info from Bill Dabney Web Site" objCDO.TextBody = "Contact Info from Bill Dabney Web Site" objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Your Name: " objCDO.TextBody = objCDO.TextBody & Request("Your Name") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Your Email: " objCDO.TextBody = objCDO.TextBody & Request("Your Email") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Company: " objCDO.TextBody = objCDO.TextBody & Request("Company") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Title: " objCDO.TextBody = objCDO.TextBody & Request("Title") 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 & "Address 2: " objCDO.TextBody = objCDO.TextBody & Request("Address 2") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "City: " objCDO.TextBody = objCDO.TextBody & Request("City") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "State: " objCDO.TextBody = objCDO.TextBody & Request("State") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Zip Code: " objCDO.TextBody = objCDO.TextBody & Request("Zip Code") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Country: " objCDO.TextBody = objCDO.TextBody & Request("Country") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Phone #: " objCDO.TextBody = objCDO.TextBody & Request("Phone #") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Your Message: " objCDO.TextBody = objCDO.TextBody & Request("Your Message") 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 "/thanks.html" Response.End end if %> | |||||||||
