<% Dim machineIs Dim make Dim model isProduct = Request.QueryString("isProduct") if (isProduct = "Toyota9000") then make = "Toyota" model = "9000" elseif (isProduct = "software") then software = "Software" end if %> <%Sub showForm%> Sales Contact / Please send me more information

* = Required field  |  ** = Required only if you are requesting information to be mailed to you
" method="post" onsubmit="return validate()"> <%elseif isProduct = "software" then%>

 Please send me general information on your software packages
<%end if%>

Your Contact Information
Company Name:*
Contact Name:*
Contact Email Address:*
Contact Phone Number:
Contact Fax Number:
<%if isProduct = "" then%>

 Please send me general information on your products
<%elseif isProduct = "Toyota9000" then%>

 Please send me info on the following machine(s):
<%Response.Write(make)%> - <%Response.Write(model)%>

Other Information Please mail me information to the following physical address **
Street Address: **
City: **
State: **   | Zip: **
Other... (please feel free to list any other information here):

<% end sub %> <% if Request.Form("emailAddress") = "" then showForm else %>
Thank you! You will be contacted within the next 24 hours.
If you need more information, then please feel free to contact us at
 800-765-1004
<% Dim objMessage Set objMessage = Server.CreateObject("CDO.Message") htmlbody = "" htmlbody = htmlbody & "From: " & Request.Form("contactName") & "
" htmlbody = htmlbody & "Company Name: " & Request.Form("companyName") & "
" htmlbody = htmlbody & "Email Address: " & Request.Form("emailAddress") & "
" htmlbody = htmlbody & "Phone Number: " & Request.Form("phoneNumber") & "
" htmlbody = htmlbody & "Fax Number: " & Request.Form("faxNumber") & "
" htmlbody = htmlbody & "
" htmlbody = htmlbody & "Message: " & Request.Form("message") & "

" if Request.Form("mailInfo") = "ON" then htmlbody = htmlbody & "This Customer has requested that sales information be mailed to them. Please mail it to the following address:
" htmlbody = htmlbody & "Street Address: " & Request.Form("streetAddress") & "
" htmlbody = htmlbody & "City: " & Request.Form("city") & "
" htmlbody = htmlbody & "State: " & Request.Form("state") & "
" htmlbody = htmlbody & "Zip: " & Request.Form("zip") & "
" end if With objMessage ' Set message attributes .To = "larryldsi@datastitch.com" .From = Request.Form("emailAddress") .Subject = "Sales Inquiry" .HTMLBody = htmlbody .Send End With Set objMessage = Nothing %> <% end if %>