<% 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 %> <% Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") %> <% Set con = server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.recordset") con.Open "DSN=anchortext","anchortext","anchor2005" 'con.Open Application("strDB") sql = "Select distinct City from UaePageOnline order by City" rs.open sql,con,3,3 'ChainName=rs("ChainName") %>

							Fill-up the form below & get FREE book on Internet Marketing     Name* :     Email* :     Phone* :     Website* :             Type The code Shown   * *
Sitemap         Index   About Us   Search Engine Optimization   SEO Packages   Testimonials   SEO Agreement   Enquiry Form   Contact Us   Sitemap                 Home | About Us | Search Engine Optimization | SEO Package | Testimonials | SEO Agreement     Enquiry Form | Contact Us | Sitemap