<% 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 "DSN=globalportals","globalportals","gp2004" %> <% host = request.ServerVariables("HTTP_HOST") lft = left(host,4) if(lft = "www." or lft = "WWW.") then host = right(host, (len(host)-4)) end if %> <% dim T,D,K,Z Sql = "Select * from host where host = '" & host & "'" rs.Open sql,con,1,2 if rs.recordcount > 0 then T = rs("title") D = rs("description") K = rs("keyword") Z = rs("host") end if %> Suppliers in global industrial, Manufacturers of global industrial.
Home | About Us | Contact Us  
Boats and Trawlers Design Your Internet Site Join Forum
  Industrial Companies Directory. IndustrialCompanies Yellow Pages. Industrial Portal. Industrial Marketplace.  
 
 
Globalindustrialportal.com is a member of global portals created and maintained by CGS Infotech, Inc. CGS provides range of Business Success Services that empower businesses worldwide to produce lasting business success.

Global Portal community is a fast growing community of over 100+ Portals designed around popular subjects. Global Portals serve as a meeting point for like-minded people worldwide. Enjoy!

 
 
 
Home | About Us | Contact Us
Copyright ©2004 Global Boat Potal. All rights reserved.
WEB-SERVICES PROVIDED BY CYBERWEB GLOBAL SERVICES-A PART OF TRADE ISHA NETWORK
Get accurate information on Suppliers in global industrial and Manufacturers of global industrial. Check out for the best Manufacturers of global industrial and Manufacturers of Ahmedabad and Suppliers in global industrial.