<% 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 SOURCE=e:\website\cyberweb\cuttackpage\cuttackpage.com\www\db\db2.mdb" %> Industrial Revolution Goods, Industrial Goods, Industrial Goods Definition.
Home | About Us | Contact Us | Global Business Directory | Industrial Machinary
 
 
     
  Australian Industrial Product Supplier and Manufacturer Directory. Australian Business Directory. Australia Yellow Pages.

About Us


You can post your Australian requirement on this network for FREE. Our customer care representative will review your Australian requirement and forward it to the most appropriate advisor/consultant. Please describe your Australian requirements clearly. The more detail the better. Review all proposals from global and local Australian service providers. Review Australian proposals and pick the right company.



© Copyright 2008 www.australiabizweb.com All rights reserved.