<% '/**************************************************************************************************** '/* FUNCTION - FILTER OUT ENTRIES '/**************************************************************************************************** PageInfo = Request.Form("PageInfo") If PageInfo = "" Then PageInfo = Request.Querystring("info") End If If p2 = "" Then ContactFirstName = Request.Querystring("u_first_name") ContactLastName = Request.Querystring("u_last_name") EmailAddress = Request.Querystring("u_email") End If If Request.Form("ContactFirstName") <> "" Then ContactFirstName = Request.Form("ContactFirstName") End If If Request.Form("ContactLastName") <> "" Then ContactLastName = Request.Form("ContactLastName") End If If Request.Form("EmailAddress") <> "" Then EmailAddress = Request.Form("EmailAddress") End If Salutation = Request.Form("Salutation") WebAddress = Request.Form("WebAddress") CompanyName = Request.Form("CompanyName") BillingAddress = Request.Form("BillingAddress") BillingAddress2 = Request.Form("BillingAddress2") BillingAddress3 = Request.Form("BillingAddress3") City = Request.Form("City") StateOrProvince = Request.Form("StateOrProvince") PostalCode = Request.Form("PostalCode") Country = Request.Form("Country") PhoneNumber1 = Request.Form("PhoneNumber1") PhoneNumber2 = Request.Form("PhoneNumber2") PhoneNumber3 = Request.Form("PhoneNumber3") Extension = Request.Form("Extension") FaxNumber1 = Request.Form("FaxNumber1") FaxNumber2 = Request.Form("FaxNumber2") FaxNumber3 = Request.Form("FaxNumber3") verify_email = Request.Form("verify_email") CatalogRequested = Request.Form("CatalogRequested") MailingListRequested = Request.Form("MailingListRequested") UpcomingEvent = Request.Form("UpcomingEvent") event_month = Request.Form("event_month") event_day = Request.Form("event_day") event_year = Request.Form("event_year") UpcomingEventDate = "x" Other = Request.Form("Other") If Salutation = "" Then stay = true End If If ContactFirstName = "" Then stay = true End If If ContactLastName = "" Then stay = true End If If EmailAddress = "" Then stay = true email = true End If If InStr(1, EmailAddress, "@", 1) < 2 Then stay = true email = true End If If InStr(1, EmailAddress, ".", 1) < 2 Then stay = true email = true End If If EmailAddress <> verify_email Then stay = true verify = true End If If Len(PhoneNumber1) < 3 or Len(PhoneNumber2) < 3 or Len(PhoneNumber3) < 4 Then stay = true phone = true End If If CatalogRequested = "y" Then If BillingAddress = "" or City = "" or StateOrProvince = "" or Len(PostalCode) < 5 Then stay = true End If End If If UpcomingEvent = "y" Then If event_month = "" or event_day = "" or event_year = "" Then stay = true eventcheck = true End If End If If stay = true Then %>
Twism is Your Direct Source for Promotional Products and Solutions
  TWISM Customer Login:
 
Login ID PIN
 
  Product Categories
  TWISM Picks
  Apparel
  Awards and Recognition
  Bags & Totes
  Company Outings
  Desk Items
  Drink Ware
  Electronics
  Food & Drink
  Gift Sets
  Golf & Sport
  Health & Beauty
  Keychains
  Notebooks & Organizers
  Packaging
  Retail Merchandise
  Time Pieces
  Tools
  Toys & Games
  Tradeshows
  Writing Instruments
  Advanced Search
 
Home | Contact Us | About Us | Free Catalog | Shop | Register | Resources | Help ?
<% Else '/**************************************************************************************************** '/* FUNCTION - Modify Data '/**************************************************************************************************** Function PCase(strInput) Dim iPosition Dim iSpace Dim strOutput iPosition = 1 Do While InStr(iPosition, strInput, " ", 1) <> 0 iSpace = InStr(iPosition, strInput, " ", 1) strOutput = strOutput & UCase(Mid(strInput, iPosition, 1)) strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition)) iPosition = iSpace + 1 Loop strOutput = strOutput & UCase(Mid(strInput, iPosition, 1)) strOutput = strOutput & LCase(Mid(strInput, iPosition + 1)) PCase = strOutput End Function ContactFirstName = PCase(ContactFirstName) ContactLastName = PCase(ContactLastName) BillingAddress = PCase(BillingAddress) BillingAddress2 = PCase(BillingAddress2) BillingAddress3 = PCase(BillingAddress3) City = PCase(City) PhoneNumber = "(" & PhoneNumber1 & ") " & PhoneNumber2 & "-" & PhoneNumber3 FaxNumber = "(" & FaxNumber1 & ") " & FaxNumber2 & "-" & FaxNumber3 UpcomingEventDate = event_month & "/" & event_day & "/" & event_year '/**************************************************************************************************** '/* FUNCTION - ESABLISH A CONNECTION '/**************************************************************************************************** DSNtemp = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=D:\www\t\w\twismonline.com\db\Leads.mdb;Persist Security Info=False" Set RecordSet = server.CreateObject("adodb.recordset") GetRecs = "SELECT * FROM Prospects" 'Set the way the database opens. RecordSet.open GetRecs, DSNtemp, adOpenStatic, adlockoptimistic '/**************************************************************************************************** '/* FUNCTION - ADD RECORDS IF FILTER FLAGS IS SUCCESSFUL '/**************************************************************************************************** RecordSet.AddNew 'Collect data from the web page and store it in new row. If Request.Form("SalespersonID") = "" Then RecordSet("SalespersonID") = "11" Else RecordSet("SalespersonID") = Request.Form("ProgramCode") End If If Request.Form("ProgramCode") = "" Then RecordSet("ProgramCode") = "0001" Else RecordSet("ProgramCode") = Request.Form("ProgramCode") End If RecordSet("Salutation") = Salutation RecordSet("FirstName") = ContactFirstName RecordSet("LastName") = ContactLastName RecordSet("EmailAddress") = EmailAddress RecordSet("Company") = CompanyName RecordSet("WebAddress") = WebAddress RecordSet("Address1") = BillingAddress RecordSet("Address2") = BillingAddress2 RecordSet("Address3") = BillingAddress3 RecordSet("City") = City RecordSet("State") = StateOrProvince RecordSet("Zip") = PostalCode RecordSet("Country") = Country RecordSet("Phone") = PhoneNumber RecordSet("Extension") = Extension RecordSet("Fax") = FaxNumber If Request.Form("CatalogRequested") = "y" Then RecordSet("CatalogRequested") = "Yes" Else RecordSet("CatalogRequested") = "No" End If If Request.Form("MailingListRequested") = "y" Then RecordSet("MailingListRequested") = "Yes" Else RecordSet("MailingListRequested") = "No" End If If Request.Form("upcomingevent") = "y" Then RecordSet("UpcomingEvent") = "Yes" RecordSet("UpcomingEventDate") = UpcomingEventDate Else RecordSet("UpcomingEvent") = "No" End If RecordSet("Other") = Other RecordSet("Relationship") = "Prospect" RecordSet("Date") = Date RecordSet("Time") = Time RecordSet.Update '/**************************************************************************************************** '/* FUNCTION - Sender Confirmation '/**************************************************************************************************** Dim myCDONTSMail Dim strFrom Dim strTo Dim strSubject Dim strBody Dim strName Dim strEmailAddress strName = Request.Form("ContactFirstName") & " " & Request.Form("ContactLastName") strEmailAddress = Request.Form("EmailAddress") '/* Path for POP mail. Set myCDONTSMail = CreateObject("CDO.message") '/* User's Name and Email on the reply to. strFrom = "TWISM Promotions Inc." '/* Information to be sent to. strTo = strEmailAddress '/* Subject line. strSubject = "Thank you from TWISM" '/* Body strBody = "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "Thank You From TWISM!" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "

Contact Us


Please feel free to use the following form to contact us.
If you would like to contact one of our Corporate Merchandise Specialists directly
please email info@twismonline.com or call 1.866. GO TWISM.

I am interested in receiving information about: <% Response.Write(PageInfo) %>
Salutation:         <% If Request.Form("Salutation") = "" and Request.Querystring("p2") = "y" Then %> Enter Salutation <% End If %>
First Name:   <% If Request.Form("ContactFirstName") = "" and Request.Querystring("p2") = "y" Then %> Enter First Name <% End If %>
Last Name:    <% If Request.Form("ContactLastName") = "" and Request.Querystring("p2") = "y" Then %> Enter Last Name<% End If %>
Email:    <% If email = true and Request.Querystring("p2") = "y" Then %> Enter a Valid Email<% End If %>
Verify Email: "> <% If verify = true and Request.Querystring("p2") = "y" Then %> Email Does Not Match<% End If %>
Phone: " size="2" maxlength="3" onKeyUp="changeCursor(document.frm.PhoneNumber1,document.frm.PhoneNumber2,3)"> - " size="2" maxlength="3" onKeyUp="changeCursor(document.frm.PhoneNumber2,document.frm.PhoneNumber3,3)"> - " size="2" maxlength=4 onKeyUp="changeCursor(document.frm.PhoneNumber3,document.frm.Extension,4)">         Ext.   ">    <% If phone = true and Request.Querystring("p2") = "y" Then %> Enter a Valid Phone Number<% End If %>
Company: ">   
Web Site: ">   
  Would you like to be placed on our mailing list?
<% If Request.Form("MailingListRequested") = "y" Then %> <% ElseIf Request.Querystring("p2") <> "y" Then %> <% Else %> <% End If %> Yes
  Would you like a free catalog?
<% If Request.Form("CatalogRequested") = "y" Then %> <% ElseIf Request.Querystring("cat") = "yes" Then %> <% Else %> <% End If %> Yes
  
  Would you like to use TWISM for an upcoming event?
<% If Request.Form("UpcomingEvent") = "y" Then %> <% Else %> <% End If %> Yes
  Comments:
  
 

 
* TWISM Privacy Guarantee: We will never lease, sell
or rent your personal or corporate information, period!

">
" strBody = strBody & "" strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "
Thank You  
" strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "

Dear " strBody = strBody & strName strBody = strBody & ",

Thank you for registering with TWISM Promotions Inc.
" strBody = strBody & "
Want to contact TWISM directly?

" strBody = strBody & "

If you would like to discuss the benefits of using promotional products
" strBody = strBody & "please feel free to contact us at: info@twismonline.com

" strBody = strBody & "

Or to speak with a TWISM Promotional Consultant
call toll free: 1.866.GO TWISM (1.866.468.9476)

" strBody = strBody & "

We look forward to meeting your promotional needs.

" strBody = strBody & "

Sincerely,
" strBody = strBody & "TEAM TWISM


" strBody = strBody & "
" strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "
twismonline.com" strBody = strBody & " | twismpromotions.comsales@twismonline.com | 1.866.GO TWISM
" strBody = strBody & "" strBody = strBody & "" '/* If the mail was sent successful. Set myCDONTSMail = CreateObject("CDO.message") MyCDONTSMail.From=strFrom MyCDONTSMail.To=strTo MyCDONTSMail.Subject=strSubject MyCDONTSMail.BodyFormat=0 MyCDONTSMail.MailFormat=0 myCDONTSMail.TextBody =strBody MyCDONTSMail.Send set MyCDONTSMail=nothing '/**************************************************************************************************** '/* FUNCTION - CLOSE ALL CONNECTIONS '/**************************************************************************************************** RecordSet.Close Set RecordSet = Nothing %>
Twism is Your Direct Source for Promotional Products and Solutions
  TWISM Customer Login:
 
Login ID PIN
 
  Product Categories
  TWISM Picks
  Apparel
  Awards and Recognition
  Bags & Totes
  Company Outings
  Desk Items
  Drink Ware
  Electronics
  Food & Drink
  Gift Sets
  Golf & Sport
  Health & Beauty
  Keychains
  Notebooks & Organizers
  Packaging
  Retail Merchandise
  Time Pieces
  Tools
  Toys & Games
  Tradeshows
  Writing Instruments
  Advanced Search
 
Home | Contact Us | About Us | Free Catalog | Shop | Register | Resources | Help ?
<% Response.Write(strName) %> , Thank you for your time and interest in TWISM Promotions Inc.!
Your request has been processed.

A representative will be in touch with you shortly to discuss your promotional products needs.
In the meantime, please feel free to contact our sales department at any time:

Toll-Free: 1.866.GO TWISM
E-mail: info@twismonline.com
Fax: 845.623.1777

TWISM Promotions Inc.
98 College Avenue
Nanuet, NY 10954


















Copyright © TWISM. All rights Reserved
TWISM ® is a registered trademark of TWISM Promotions Inc.
<% End If %>