<%@ Language=VBScript%> <% dim checked dim martymail dim boxes dim txtboxes checked = "CHECKED BOXES INDICATE INTEREST IN THE FOLLOWING" if (request.form("speech recognition") = "ON") then checked = checked + "speech recognition , " if (request.form("Synapse ADA") = "ON") then checked = checked + "Synapse ADA , " if (request.form("blindness") = "ON") then checked = checked + "blindness , " if (request.form("Synapse TAP") = "ON") then checked = checked + "Synapse TAP , " if (request.form("low vision") = "ON") then checked = checked + "low vision , " if (request.form("Synapse Literacy and Language") = "ON") then checked = checked + "Synapse Literacy and Language , " if (request.form("learning tools") = "ON") then checked = checked + "learning tools , " if (request.form("adjustable workstation furniture") = "ON") then checked = checked + "adjustable workstation furniture , " if (request.form("language translation") = "ON") then checked = checked + "language translation , " if (request.form("ergonomic chairs") = "ON") then checked = checked + "ergonomic chairs , " if (request.form("workplace accommodations") = "ON") then checked = checked + "workplace accommodations , " if (request.form("special needs") = "ON") then checked = checked + "special needs , " boxes = "INTEREST IN ADAPTIVE TECHNOLOGY " if (request.form("Interest-in-adaptive-technology_I-am-looking-for-a-performance-benefit") = "ON") then boxes = boxes + " performance-benefit" if (request.form("Interest-in-adaptive-technology_I-have-a-repetitive-strain-injury") = "ON") then boxes = boxes + " I-have-a-repetitive-strain-injury" if (request.form("Interest-in-adaptive-technology_I-have-a-vision-loss") = "ON") then boxes = boxes + " I-have-a-vision-loss" if (request.form("Interest-in-adaptive-technology_I-have-a-mobility-impairment-or-injury") = "ON") then boxes = boxes + " I-have-a-mobility-impairment-or-injury" if (request.form("Interest-in-adaptive-technology_I-have-a-learning-disability") = "ON") then boxes = boxes + " I-have-a-learning-disability" if (request.form("Interest-in-adaptive-technology_Professional") = "ON") then boxes = boxes + " Professional" boxes = boxes + " I AM INTERESTED BECAUSE: " + request.form("I-am-interested-because") boxes = boxes + " CONTACT ME: " + request.form("Contact-me") boxes = boxes + " BEST DESCRIBES ME: " + request.form("Answer-that-best-describes-you") boxes = boxes + " IN COMPANY PURCHASES: " + request.form("In-company-purchases") txtboxes = "ABOUT YOURSELF: " + request.form("About-yourself") txtboxes = txtboxes + " " + "COMMENTS ABOUT OUR SITE " + request.form("Comments-about-our-site") txtboxes = txtboxes + " " + "WHERE DID YOU HEAR ABOUT OUT SITE " + request.form("S1") dim wantscat wantscat = "" if (request.form("C1") = "ON") then wantscat = ", send cat" dim messbody messbody = "[Instructions]" + chr(13) + _ "OnNewSendEmail=JASON, NEW, Cat Req" + chr(13) + _ "OnDupSendEmail=JASON" +chr(13) + _ "OnNewAttachTrack=Web Lead" + chr(13) + _ "OnDupAttachTrack=Web Lead" + chr(13) + _ "SaveThis=Web Import File" + chr(13) + _ "[Data]" + chr(13) + _ "Company=" + request.form("Contact_Organization") + chr(13) + _ "Contact=" + request.form("Contact_FirstName") + " " + request.form("Contact_LastName") + chr(13) + _ "Title=" + request.form("Contact_Title") + chr(13) + _ "Address1=" + request.form("Contact_StreetAddress") + chr(13) + _ "Address2=" + request.form("Contact_Address2") + chr(13) + _ "City=" + request.form("Contact_City") + chr(13) + _ "State=" + request.form("Contact_State") + chr(13) + _ "zip=" + request.form("Contact_ZipCode") + chr(13) + _ "Country=" + request.form("Contact_Country") + chr(13) + _ "Phone1=" + request.form("Contact_WorkPhone") + chr(13) + _ "Phone2=" + request.form("Contact_HomePhone") + chr(13) + _ "Web Site=" + request.form("Contact_URL") + chr(13) + _ "Fax=" + request.form("Contact_FAX") + chr(13) + _ "email=" + request.form("Contact_Email") + chr(13) + _ "Source=web" + wantscat + chr(13) + _ "Contact Type= webimport" + chr(13) + _ "notes= " + request.form("Comments") + " " + checked + " " + boxes + " " + txtboxes martymail = "Contact Info" + chr(13) + _ "Company=" + request.form("Contact_Organization") + chr(13) + _ "Contact=" + request.form("Contact_FirstName") + " " + request.form("Contact_LastName") + chr(13) + _ "Title=" + request.form("Contact_Title") + chr(13) + _ "Address1=" + request.form("Contact_StreetAddress") + chr(13) + _ "Address2=" + request.form("Contact_Address2") + chr(13) + _ "City=" + request.form("Contact_City") + chr(13) + _ "State=" + request.form("Contact_State") + chr(13) + _ "zip=" + request.form("Contact_ZipCode") + chr(13) + _ "Country=" + request.form("Contact_Country") + chr(13) + _ "Phone1=" + request.form("Contact_WorkPhone") + chr(13) + _ "Phone2=" + request.form("Contact_HomePhone") + chr(13) + _ "Web Site=" + request.form("Contact_URL") + chr(13) + _ "Fax=" + request.form("Contact_FAX") + chr(13) + _ "email=" + request.form("Contact_Email") + chr(13) martymail = martymail + chr(13) + "Check boxes indcate interest in the following " + chr(13) if (request.form("speech recognition") = "ON") then martymail = martymail + "speech recognition , " + chr(13) if (request.form("Synapse ADA") = "ON") then martymail = martymail + "Synapse ADA , " + chr(13) if (request.form("blindness") = "ON") then martymail = martymail + "blindness , " + chr(13) if (request.form("Synapse TAP") = "ON") then martymail = martymail + "Synapse TAP , " + chr(13) if (request.form("low vision") = "ON") then martymail = martymail + "low vision , " + chr(13) if (request.form("Synapse Literacy and Language") = "ON") then martymail = martymail + "Synapse Literacy and Language , " + chr(13) if (request.form("learning tools") = "ON") then martymail = martymail + "learning tools , " + chr(13) if (request.form("adjustable workstation furniture") = "ON") then martymail = martymail + "adjustable workstation furniture , " + chr(13) if (request.form("language translation") = "ON") then martymail = martymail + "language translation , " + chr(13) if (request.form("ergonomic chairs") = "ON") then martymail = martymail + "ergonomic chairs , " + chr(13) if (request.form("workplace accommodations") = "ON") then martymail = martymail + "workplace accommodations , " + chr(13) if (request.form("special needs") = "ON") then martymail = martymail + "special needs , " + chr(13) martymail = martymail + chr(13) if (request.form("C1") = "ON") then martymail = martymail + "Requested Catalog" else martymail = martymail + "Does not request catalog" end if martymail = martymail + chr(13) martymail = martymail + chr(13) + "INTEREST IN ADAPTIVE TECHNOLOGY " + chr(13) if (request.form("Interest-in-adaptive-technology_I-am-looking-for-a-performance-benefit") = "ON") then martymail = martymail + " performance-benefit" if (request.form("Interest-in-adaptive-technology_I-have-a-repetitive-strain-injury") = "ON") then martymail = martymail + " I-have-a-repetitive-strain-injury" if (request.form("Interest-in-adaptive-technology_I-have-a-vision-loss") = "ON") then martymail = martymail + " I-have-a-vision-loss" if (request.form("Interest-in-adaptive-technology_I-have-a-mobility-impairment-or-injury") = "ON") then martymail = martymail + " I-have-a-mobility-impairment-or-injury" if (request.form("Interest-in-adaptive-technology_I-have-a-learning-disability") = "ON") then martymail = martymail + " I-have-a-learning-disability" if (request.form("Interest-in-adaptive-technology_Professional") = "ON") then martymail = martymail + " Professional" martymail = chr(13) + martymail + "The following are the select box responces" + chr(13) martymail = martymail + " I AM INTERESTED BECAUSE: " + request.form("I-am-interested-because")+ chr(13) martymail = martymail + " CONTACT ME: " + request.form("Contact-me") + chr(13) martymail = martymail + " BEST DESCRIBES ME: " + request.form("Answer-that-best-describes-you") + chr(13) martymail = martymail + " IN COMPANY PURCHASES: " + request.form("In-company-purchases") + chr(13) martymail = chr(13) + martymail + "The following are the text box responces" + chr(13) martymail = martymail + "ABOUT YOURSELF: " + request.form("About-yourself") + chr(13) martymail = martymail + " " + "COMMENTS ABOUT OUR SITE " + request.form("Comments-about-our-site") + chr(13) martymail = martymail + " " + "WHERE DID YOU HEAR ABOUT OUT SITE " + request.form("S1") + chr(13) set objMail = CreateObject("CDONTS.NewMail") set objMail2 = CreateObject("CDONTS.NewMail") objMail.To = "{$GM-WEBIMPORT$} " objMail.From = "webform@synapseadaptive.com" objMail.Subject = "GoldMine 4.0 Web Import" objMail.Body = messbody objmail.Send objMail2.To = "marty " objMail2.From = "webform@synapseadaptive.com" objMail2.Subject = "GoldMine 4.0 Web Import, #2" objMail2.Body = martymail objMail2.Send set objmail = NOTHING set objmail2 = NOTHING %>
Synapse Adaptive Access & Productivity Tools

| Home | Buy | Products | Price List | Service & Support | Stay Informed | Contact Us | Site Map | Order Catalog

Download Synapse 52p. Adaptive Technology Catalog  (requires Acrobat Reader ver. 4)

 

Thank you <%=(request.form("Contact_FirstName") + " " + request.form("Contact_LastName")) %> for your inquiry.

Your information has been added to our database, and your request will be processed shortly.

Return to the Synapse Adaptive Home Page

Or, take a look at our Price List

 
[../_borders/bottom.htm]