<% 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=aug05_websites","aug05_websites","aug2005" %> <% 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 hosts where host ='" & host & "'" rs.Open sql,con,1,2 if rs.recordcount > 0 then t = rs("main_keyword") y = rs("host_text") Z = rs("host") end if %> ContactUs
 
Home | About Us | Contact Us

Online Car Insurance Provider Directory. Listing Of OnlineCar Insurance Companies. Online Car Insurance Resources.Online Car Insurance Disscussion Forum.
Website Created, Maintained and Owned By Cyber Automate, Inc. (CAI)
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

Copyright 2008 Cyber Auto-Mate, Inc. All rights reserved.

 
Term Life Insurance - dedicated to helping you with all of your life insurance quotes and term life insurance quotes needs.