<% 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\bhubaneswarpage\bhubaneswarpage.com\www\db\db1.mdb" %> Bhubaneswar Apartments, Reliable Service, Bhubaneswar Service Provider.
Welcome To Bhubaneswar Page
Home | About Us | Contact Us
 
Bhubaneswar Business Directory , Bhubaneswar Yellow Pages , Bhubaneswar Suppliers and Manufacturers

Bhubaneswarpage.com
 
CONTACT US
Website Created, Maintained and Owned By India Business Directory.
USA :
501 Silverside Rd, Suite 105
Wilmington, DE 19809.
Phone : 866-249-4291.
INDIA BRANCH :
B-207, Patel Shopping Center,
Chandavarkar Road,
Borivali (W),
Mumbai - 400 092.
Phone: 91-22-2864-2711. Fax: 91-22-2864-2718.
 
Home | About Us | Contact Us
Business Success Domain Web Design Search Engine Outsourcing Web Hosting Software Buy Text Links
© Copyright 2005 Bhubaneswarpage.com. All rights reserved.
Bhubaneswarpage - Provide information on Bhubaneswar Apartments and Reliable Bhubaneswar Service and Bhubaneswar Service Provider. Check out for the best Bhubaneswar Service Provider and Reliable Bhubaneswar Service and Bhubaneswar Apartments from www.Bhubaneswarpage.com.