% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Dim strBusinessName, strContactName, strBusinessPhone, strEmail, strNavigationColor, strHeadlineColor, strTextColor, strBackgroundColor, strOptionalColor1, strOptionalColor2, strButtonStyle, strTexture, strNavigationFontStyle, strHeadlineFontStyle, strBusinessDescription, strKeyWords, strGeographicDescription, strEmail1, strEmail2, strEmail3, strEmail4, strEmail5 If Request.ServerVariables("Content_Length") <> 0 Then ' Retrieving Form Data from Post command body strBusinessName = Trim(Request.Form("BusinessName")) strContactName = Trim(Request.Form("ContactName")) strBusinessPhone = Trim(Request.Form("BusinessPhone")) strEmail = Trim(Request.Form("Email")) strNavigationColor = Trim(Request.Form("NavigationColor")) strHeadlineColor = Trim(Request.Form("HeadlineColor")) strTextColor = Trim(Request.Form("TextColor")) strBackgroundColor = Trim(Request.Form("BackgroundColor")) strOptionalColor1 = Trim(Request.Form("OptionalColor1")) strOptionalColor2 = Trim(Request.Form("OptionalColor2")) strButtonStyle = Trim(Request.Form("ButtonStyle")) strTexture = Trim(Request.Form("Texture")) strNavigationFontStyle = Trim(Request.Form("NavigationFontStyle")) strHeadlineFontStyle = Trim(Request.Form("HeadlineFontStyle")) strBusinessDescription = Trim(Request.Form("BusinessDescription")) strKeyWords = Trim(Request.Form("KeyWords")) strGeographicDescription = Trim(Request.Form("GeographicDescription")) strEmail1 = Trim(Request.Form("Email1")) strEmail2 = Trim(Request.Form("Email2")) strEmail3 = Trim(Request.Form("Email3")) strEmail4 = Trim(Request.Form("Email4")) strEmail5 = Trim(Request.Form("Email5")) Dim objMail, aRecipients, strBody Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "DesignOptions@webkosmos.com" objMail.To = "admin@webkosmos.com" objMail.Subject = "Design Options Form" strBody = strBody & "Business Name: " & strBusinessName & vbCRLF strBody = strBody & "Contact Name: " & strContactName & vbCRLF strBody = strBody & "Business Phone: " & strBusinessPhone & vbCRLF strBody = strBody & "Email Address: " & strEmail & vbCRLF strBody = strBody & "Navigation Color: " & strNavigationColor & vbCRLF strBody = strBody & "Headline Color: " & strHeadlineColor & vbCRLF strBody = strBody & "Text Color: " & strTextColor & vbCRLF strBody = strBody & "Background Color: " & strBackgroundColor & vbCRLF strBody = strBody & "Optional Color #1: " & strOptionalColor1 & vbCRLF strBody = strBody & "Optional Color #2: " & strOptionalColor2 & vbCRLF strBody = strBody & "Button Style: " & strButtonStyle & vbCRLF strBody = strBody & "Texture: " & strTexture & vbCRLF strBody = strBody & "Navigation Font Style: " & strNavigationFontStyle & vbCRLF strBody = strBody & "Headline Font Style: " & strHeadlineFontStyle & vbCRLF strBody = strBody & "Business Description: " & strBusinessDescription & vbCRLF strBody = strBody & "KeyWords: " & strKeyWords & vbCRLF strBody = strBody & "Geographic Description: " & strGeographicDescription & vbCRLF strBody = strBody & "Email1: " & strEmail1 & vbCRLF strBody = strBody & "Email2: " & strEmail2 & vbCRLF strBody = strBody & "Email3: " & strEmail3 & vbCRLF strBody = strBody & "Email4: " & strEmail4 & vbCRLF strBody = strBody & "Email5: " & strEmail5 & vbCRLF objMail.Body = strBody objMail.Send Set objMail = Nothing %>
Success! We have received your Website Design
Options Form. Listed below is the Information that you have sent to us.
Click Here to Close this Window |
Webkosmos
is a Division of The Wright Studio, Inc. "Moving Beyond Ideas To Solutions" 757-855-1033 2428 Almeda Ave. Suite #200 Norfolk, VA. 23513 Contact us at info@webkosmos.com , or info@thewrightstudio.com |
Webkosmos
is a Division of The Wright Studio, Inc. "Moving Beyond Ideas To Solutions" 757-855-1033 2428 Almeda Ave. Suite #200 Norfolk, VA. 23513 Contact us at info@webkosmos.com , or info@thewrightstudio.com |