<% 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 = "info@krugel.com" objCDO.To = "info@krugel.com" objCDO.Subject = "Submission from Krugel Contact Form" objCDO.TextBody = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Last Name: " objCDO.TextBody = objCDO.TextBody & Request("Last Name") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "First Name: " objCDO.TextBody = objCDO.TextBody & Request("First Name") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Street Address: " objCDO.TextBody = objCDO.TextBody & Request("Street Address") 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 & "Zip: " objCDO.TextBody = objCDO.TextBody & Request("Zip") 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 & "E-Mail: " objCDO.TextBody = objCDO.TextBody & Request("E-Mail") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Type of Project: " objCDO.TextBody = objCDO.TextBody & Request("Type of Project") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Best Contact Time: " objCDO.TextBody = objCDO.TextBody & Request("Best Contact Time") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "How Did You Hear About Krugel: " objCDO.TextBody = objCDO.TextBody & Request("howhear") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Which magazine or other source: " objCDO.TextBody = objCDO.TextBody & Request("howheardetail") 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" ' Response.Write "You will be contacted as soon as possible. We are looking forward to working with you!" Response.End end if %>

Last Name
First Name
Street Address
City
Zip
Phone
E-Mail
What type of hardscape project are you interested in?
What is the best time to contact you?
How Did You Hear About Krugel?
If you selected Magazine or Other, please let us know which magazine or other source.