%
response.expires = 0
response.expiresabsolute = date - 1
Response.AddHeader "Pragma","no-cache"
Dim objDBConn, vSQL, rsLocator, rsLocator2, rsLocator3, rsLocator4
Set objDBConn = Server.CreateObject("ADODB.Connection")
objDBConn.Open "DSN=HomeHero2;UID=sa;PWD="
FromPg = request.QueryString("FROMPG") & request.Form("FROMPG")
If Len(Trim(FromPg))>0 then
If Trim(FromPg)="Referral" then
CustomerID = request.QueryString("CID") & request.Form("CID")
CusEmail = request.QueryString("CusEmail") & request.Form("CusEmail")
vSQL = "UPDATE CustomerLog SET CustomerEmail='" & Trim(CusEmail) & "' WHERE CustomerID=" & CustomerID
Set rsLocator3 = objDBConn.Execute(vSQL)
end if
end if
CobrandID = request.QueryString("CBID") & request.Form("CBID")
If Len(Trim(CobrandID))>0 then
Session("CobrandID") = CobrandID
end if
CobrandID = CInt("0" & Session("CobrandID"))
if FromPg="NewCust" then
Session("CustomerID") = 0
end if
If CInt("0" & Session("CustomerID"))>0 then
CustomerID = Session("CustomerID")
else 'Create new customerlog entry
vSQL = "SELECT MAX(CustomerID) AS MaxCustomerID FROM CustomerLog"
Set rsLocator = objDBConn.Execute(vSQL)
If rsLocator.EOF then
tmp = 1
else
tmp = "0" & rsLocator("MaxCustomerID")
tmp = CInt(tmp)+1
end if
Session("CustomerID") = tmp
CustomerID = tmp
vSQL = "INSERT INTO CustomerLog (CustomerID, VisitDate, CobrandID) VALUES (" & tmp & ", '" & Now & "', " & CobrandID & ")"
Set rsLocator2 = objDBConn.Execute(vSQL)
end if
%>
Home Inspector Locator - Nationwide Directory of Experienced Home Inspectors
Search
for an experienced Home Inspector using our nationwide directory. Our directory is
the most complete listing of qualified inspectors on the internet. Users of our system can report on the
satisfaction of the inspector they used. We rate our inspectors based on your
feedback..
Home Inspector Locator
provides an easy to use search engine for locating experienced Home Inspectors anywhere in
the United States. Our Database of Inspectors consists mostly of Inspectors who are
members of established national Home Inspection Associations. Our members have a minimum
of two years experience in home inspection.
Hann
Tech Marketing Links provides the Home
Inspector Locator's listing of Home Inspection Companies but does not guarantee the
services provided by the companies listed. The companies listed are provided to help you
find Home Inspection companies in your area. Click here for
a complete description of the terms of use for this web site.