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

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