<% 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") %> Sum
 
Fill-up the form below & get FREE book on Internet Marketing
  
  Name*
:
  
  Email*
:
  
  Phone*
:
  
  Website*
:
  
      This Is CAPTCHA Image  
  Type The code Shown    
       
     
     
 
 
     
 
  Home | About Us | Search Engine Optimization | SEO Package | Testimonials | SEO Agreement  
  Enquiry Form | Contact Us | Sitemap