%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "DesignBuildInfo~DesignBuildUse~MoreProjects~NoChangeNoClaims~PrivateCapital~CapitalPartnering~CapitalProjectCost~AdminProjectCost~ProjectOwnerRisk~PublicPrivatePartnerships~OrganizationalStengthening~RFPsDesignBuild~DesignBuildAdmin~WarrantyDisputes~ConsultingServices~ContractingOwners~OtherComments" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "kara@ciqdesign.com" objCDO.To = "kara@ciqdesign.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "Owner Questions" BodyString = Replace("The website visitor request more information on the following subjects posted on the Owners portion of your website.","~",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 = "http://www.americandatadesign.com/odcsynergy/index.html" 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 %>
About ODC | Services
| Frequently Asked Questions | Solutions
| Links | Owners Home
| Intro Page
ODC Synergy Chuck Williams
10604 West 148th St., Overland Park, KS 66221
Direct: 913-685-9333 Cell: 913-526-5089
cwilliams@odcsynergy.com