<%
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
%>
About Us
Car
Insurance Provider Directory. Listing Of Car Insurance Companies.
Car Insurance Resources. Car Insurance Disscussion
Forum.
This
website is owned and operated by Super Auto-Mate,
Inc (SAI).
Super Auto-Mate, Inc provides specialized Car insurance
broker services to accountants, CPAs and financial
advisors. Super Car insurance broker also operates
network of websites related to Car insurance broker
to enable discussion on the issues and challenges
of Car insurance broker.
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
Car insurance broker Services. Thank you for visiting
this website and using the resources available here
on Car insurance broker Directory.
