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

Home | About Us | Business Directory | Discussion Forum | Contact Us

Cleveland Business Provider Directory. Cleveland Portal. Cleveland Information and Resources. Cleveland Market Place. Cleveland Business Discussion Forum.

Website Created, Maintained and Owned By Celebrate City Networks, Inc. (CNI)
USA Office Address	501 Silverside Rd, Suite 105 Wilmington, DE 19809, USA Toll Free No.:- 1-866-249-4291 Fax :- 1-302-397-2399.

INDIA Office Address	B-207, Patel Shopping Center, Chandavarkar Road, Borivali (West), Mumbai - 400092. INDIA Tel :- 91-22-2809 2461 / 2807 6371 Fax :- 91-22-2864 2718