<% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "Company Name~Contact Name~Address~City~State~Zip~Phone~Email~Comments" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = CreateObject("CDONTS.NewMail") objCDO.From = "cwdg@cwdg.net" objCDO.To = "cwdg@cwdg.net" objCDO.Subject = "Website Contact Form" BodyString = Replace("","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing RedirectURL = "thankyou.htm" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> Contact CW Design Group - Engineering and Surveying. Land development, transportation, and surveying services throughout Ohio.
Surveying ServicesLand Development ServicesTransportation Services
 

CHARLIE WAGNER, P.E., P.S.
   Owner - Project Manager




CW Design Group
972 Linkfield Drive
Worthington, Ohio 43085

Phone: 614.846.9279

Email: cwdg@cwdg.net