Indianapolis, Indianapolis Hotel, Indianapolis Hotel Directory

<% 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=cityportals","cityportals","city2004" %> <% 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 mainpage_tdk where host = '" & host & "'" rs.Open sql,con,1,2 if rs.recordcount > 0 then T = rs("title") D = rs("descr") K = rs("keywords") Z = rs("host") R = rs("city_name") end if %> Indianapolis, Indianapolis Hotel, Indianapolis Hotel Directory

Indianapolis Marketplace,
Indianapolis Hotel Directory,
Indianapolis Discussion Forum,
Indianapolis Business Directory.

Indianapolis Business Directory. Indianapolis Yellow Pages:

Get Listed in Indianapolis Business Directory and attract qualified buyers from Internet. To visit Indianapolis Business Directory click here

Celebrate City Network, Inc.

USA: 501 Silverside Rd, Suite 105, Wilmington, DE 19809. USA
Toll Free No.: 1-866-249-4291. Fax: 1-302-397-2399
India: 2nd Floor, 201, Gundecha Industrial Complex, Next To Big Bazaar,
Akurli Road, Kandivali (East), Mumbai – 400101.
Phone No.: 28851689, 28851680