<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <% Set rs = Server.CreateObject("ADODB.Recordset") sq = "SELECT MAX(Order_Number) FROM OrderMaster" set rs=cn.execute(sq) if isNull(rs(0)) then pCode = "INVT-001" else iCode = Cint(Right(rs(0),3))+1 pCode = "INVT-" & string(3-len(iCode),"0") & iCode end if Set rs=Nothing %> INVENT TECH - Inquiry Form
       
Sign up to receive special offers by e-mail
 
 
Credit Card Accepted
<% If Request.QueryString("Msg") = "Not" Then msgErr = Request.QueryString("Desc") %> Error occurred: <%=msgErr%> <% End If %> <% If Request.QueryString("Msg") = "Yes" Then %> Thank you!.. Your request has been sent and we will contact with you soon. <% End If %>    
   
Request No.
Request Date
Your Name
Company Name
Contact No.
Fax No.
E-mail
Address
 
 
* Required Fields
*
*
*
Inquiry Detail   *
 
 
 
 
Powered by IMAX Technologies
© 2005-2006 Invent Tech. All rights reserved