Free Portal for <%=T%>

<% 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") end if %> Free Portal for <%=T%> - <%=Z%>

-logo.gif" WIDTH=181 HEIGHT=82 ALT="">

Advertise With Us | List Your Business On MyCity Network | Get a Business Website | Terms of Use

www.<%=rs("host")%> is a website to celebrate city life in <%=rs("city_name")%>.

We have heard enought about problems of city-life. Here is a refreshing look at the most amazing human achievement - A Global City. We invite you to celebrate and enjoy the multi-dimensional city-life. www.<%=rs("host")%> is a member of Celebrate City Network created and maintained by CGS Infotech, Inc. CGS provides range of Business Success Services that empowers businesses worldwide to produce lasting business success.

Celebrate City Network is a fast growing community of over 100+ Portals designed around popular global cities. Celebrate City Portals serve as a meeting point for like-minded people worldwide. Enjoy!

Ask Us Anything About
<%=rs("city_name")%>

/thank_you.asp"> *Contact Name

*Contact Email Address

*Contact Phone Number

*Website to be Promoted

<%=request.ServerVariables("URL")%>">

<%=rs("city_name")%> Business Directory

List Your Name In <%=rs("city_name")%> directory

Sign-up form

<% rs.close Sql = "Select * from cgs_services where host = '" & host & "'" rs.Open sql,con,1,2 %>

CGS Business Services Panel

_business.htm">Business

_coaching.htm">Coaching

_domain.htm">Domain

_ecommerce.htm">Ecommerce

_Outsourcing.htm">Outsourcing

_search_engine.htm">Search Engine

_software.htm">Software

_web_design.htm">Web Design

_web_hosting.htm">Web Hosting

_web_promotion.htm">Web Promotion

<% rs.close Sql = "Select * from mainpage_tdk where host = '" & host & "'" rs.Open sql,con,1,2 %>

<%=rs("city_name")%> Top Categories

<% rs.close Sql = "Select top 10 * from mainpage_gkw where host = '" & host & "'" rs.Open sql,con,1,2 colno = 2 if rs.RecordCount > 0 Then colcount = cInt((rs.RecordCount / colno) + 1) For i=1 to rs.RecordCount if j=0 then %> <% End if %> <% j = j + 1 if j = colno then %> <% J=0 End if rs.MoveNext Next End if rs.close %>


	.htm"><%=rs("catname")%>

<% Sql = "Select * from mainpage_tdk where host = '" & host & "'" rs.Open sql,con,1,2 %>

	CITY LINK NETWORK

<%=rs("city_name")%> Attractions	<%=rs("city_name")%> Healthcare	<%=rs("city_name")%> Loans & Mortgage
<%=rs("city_name")%> Credit Cards	<%=rs("city_name")%> Hotels	<%=rs("city_name")%> Real Estate
<%=rs("city_name")%> Events	<%=rs("city_name")%> Insurance

C e l e b r a t e C i t y L i f e - S e a r c h T h e R el e v a n t T o p i c s - V i s i t C e l e b r a t e-C i t y-N e t w o r k W e b s i t e s

Your reliable source for information on top cities around the world