<% 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 %> AboutUs
 
Home | About Us | Contact Us

Newjersey Car Insurance Provider Directory. Listing Of Newjersey Car Insurance Companies. Newjersey Car Insurance Resources. Newjersey Car Insurance Disscussion Forum.
This website is owned and operated by Super Auto-Mate, Inc (SAI).

Super Auto-Mate, Inc provides specialized Newjersey Car Insurance services to accountants, CPAs and financial advisors. Super Auto-Mate also operates network of websites related to Newjersey Car Insurance to enable discussion on the issues and challenges of Newjersey Car Insurance.

Please browse through the sites and give your view, comments and feedback.

The purpose of this site is to provide directory, resources and discussion forum about the company Newjersey Car Insurance Services. Thank you for visiting this website and using the resources available here on Newjersey Car Insurance Directory.
 
© Copyright 2008 Cyber Auto-Mate, Inc. All rights reserved.