<% 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.
 

This website is owned and operated by Celebrate City Networks, Inc (CNI).

Celebrate City Networks, Inc provides specialized web, software and outsourcing services to accountants, CPAs and financial advisors. Celebrate City also operates network of websites related to City Omaha to enable discussion on the issues and challenges of Omaha City.

Please browse through the sites and give your view, comments and feedback.

The purpose of this site is to provide directory, resources and discussion forum about the Celebrate City Network. Thank you for visiting this website and using the resources available here.

© Copyright 2008 Celebrate City Networks, Inc. All rights reserved.