<% ' ' A U T O M A I L ' If IsNull(sTestName) OR sTestName = "" Then sFromName = "sales" sFromEmail = "sales@site-c.com" Else sFromName = sTestName sFromEmail = sTestEmail End If sSubject = "Automated Information Request" sRequired = "NAME,ADDRESS,CITY_STATE_ZIP,DAYPHONE" sFieldList = "NAME,EMAIL,COMPANY_NAME,TITLE,ADDRESS,CITY_STATE_ZIP,DAYPHONE,FAX,WEB,WEBURL,TENSTEPS,CONTACT_ME" sToName = "NAME" sToEmail = "EMAIL" sSubject = "Automated Information Request" sPara1 = "Thank you for your interest in Site-C. " If Len(Trim(Request.Form("WEBURL"))) > 0 Then sPara2 = "I will be looking at your current website (" & Trim(Request.Form("WEBURL")) & ") " & _ "to determine how we may be able to help you." Else sPara2 = "Every day over 150 businesses join the world wide web. Make today the " & _ "day your business joins too." End If If Request.Form("CONTACT_ME") = "ON" Then sPara2 = sPara2 & " " & _ "You will be hearing from us soon, or feel free to contact us at " & _ "(314) 213-9100 to make a no-obligation appointment." End If If Request.Form("TENSTEPS") = "ON" Then sPara2 = sPara2 & " " & _ "Your copy of ""Ten Steps to a Web"" should reach you in a few days." End If If Request.Form("CONTACT_ME") <> "ON" and Request.Form("TENSTEPS") <> "ON" Then sPara2 = sPara2 & " " & _ "Please let me know if I can be of assistance by calling me at " & _ "(314) 213-9100." End If sPara3 = "Thanks again" ' sPara4 = "" ' sParaComp = "Site-C, Inc." ' **** check for two conditions **** ' bFailRequired = true/false where required fields missing and therefor you need to resubmit?? ' bMailSubmitted = true/false did the mail get submitted properly and you need to thank them. ' sMissing = "xxx" contains a list of missing fields. %><% ' ' A U T O M A I L ' %><% If Request.QueryString("choice") = "" Then iSpecial = 0 Else iSpecial = CInt(Request.QueryString("choice")) End If %>

<% If bShowForm Then If bFailRequired Then %>

The following input fields need to be completed:
<% =sMissing%>
Please complete the form and resubmit.
Thank you.

<% End If %>

Information

For free information about our services, email or prices, please complete the following:

"><% ' A U T O M A I L %><% ' A U T O M A I L %>

Name	>
Email Address	>
Company name	>
Title	>
Address	>
City/State/Zip	>
Daytime Phone	>
Fax Number	>
Do you currently have a web site? yes no
If yes, your URL	>
Please send me the "Ten Steps To A Web" brochure <%=WriteCheckBoxField("TENSTEPS")%>
Please have an account representative contact me <%=WriteCheckBoxField("CONTACT_ME")%>

<% Else %>Dear <%=sToMailName%>:
<% =sPara1 %>
<% =sPara2 %>
<% =sPara3 %>

<% =sSignature %>
<% End If %>