<% Function PCase(sValue) iPos = 1 Do While InStr(iPos, sValue, " ", 1) <> 0 iSpace = InStr(iPos, sValue, " ", 1) sTemp = sTemp & UCase(Mid(sValue, iPos, 1)) sTemp = sTemp & LCase(Mid(sValue, iPos + 1, _ iSpace - iPos)) iPos = iSpace + 1 Loop sTemp = sTemp & UCase(Mid(sValue, iPos, 1)) sTemp = sTemp & LCase(Mid(sValue, iPos + 1)) PCase = sTemp End Function %> <% Dim con Dim rs,rs1 Dim i Set con = server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.recordset") Set rs1 = Server.CreateObject("ADODB.recordset") con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA %> Industrial Product Supplier, Industrial Service Providers.
 
 
 
American Industrial Product Supplier and Manufacturer Direcotry. Industrial Product Marketplace. Industrial Products Portal.
CONTACT US
USA :
501 Silverside Rd, Suite 105
Wilmington, DE 19809.
Phone : 866-249-4291.
INDIA BRANCH :
201, Gundecha Industrial Complex,
Akurli Road,
Kandivali (East), Mumbai. India.
Tel. No: 00-91-22-2885-1689.
Fax: 00-91-22-2885-1680.


Home | About Us | Contact Us | Global Business Directory | Agriculture | Retail Management Equipment
Industrial Supplier
© Copyright 2005 Americanindustrialsupplier.com. All rights reserved.