<% Dim objDC, objRS Set objDC = Server.CreateObject("ADODB.Connection") objDC.ConnectionTimeout = 15 objDC.CommandTimeout = 30 objDC.Open "DBQ=" & Server.MapPath("search_engine.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "drops", objDC, 0, 1 If Not objRS.EOF Then objRS.MoveFirst %>
   
   


 All Words Any Words <% =Request.QueryString("search") %>

                 

*First Name      *Last Name  *Title
*Company        *Country 
*Address     *Email
*Telephone (Pleas include Country code and Aria code)

Please describe your Test/Application:
Please describe your product:
Which results are you expecting from the test?
 (Example: Force, elongation, etc.)
What is the maximum force expected on your test?
Do you need Grips to perform your test?
Do you prefer if it's Analog or Digital?
Do you want to store test results on a computer?
Approximately, what is your budget for the purchase of this equipment?

*Subject:
*Message
 

Fields marked with an asterisk * are required.


    


 

 

 

 

 
 


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 



 
<% 'Close Server Objects Set strCon = Nothing Set adoCon = Nothing %>