ContactUs

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

	Low cost Car Insurance Provider Directory. Listing Of Low cost Car Insurance Companies. Low cost Car Insurance Resources. Low cost 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