<% @Language=VBSCRIPT %>
<%
'option explicit
Response.Buffer = True
Private Function getToken(sVar, token_number)
Dim x, posA, posB, token
Dim cChar
Dim bOpenQuote, bFoundToken
Dim sToken
Dim separator
separator = ","
bOpenQuote = False
sVar = Trim(sVar)
token = 0
sToken = ""
bFoundToken = False
posA = 1
posB = 1
For x = 1 To Len(sVar) + 1
cChar = Mid(sVar, x, 1)
If cChar = separator And Not bOpenQuote Then
posB = x
token = token + 1
If token = token_number Then
sToken = Mid(sVar, posA, posB - posA)
bFoundToken = True
Exit For
End If
posA = posB + 1
Else
If cChar = """" Then
bOpenQuote = bOpenQuote Xor True
End If
End If
Next
If bFoundToken = False And token_number = (token + 1) Then
sToken = Mid(sVar, posA, x - posA)
End If
getToken = Trim(sToken)
End Function
%>
<%
Dim Conn, SiteAddress, rsServername, OrderId, rsTodaysVisitors
Dim szSQL
Dim rsPageDet, rsBullets
Dim BulletText1, BulletText2, BulletText3, BulletText4, BulletText5
Dim Bullet1, Bullet2, Bullet3, Bullet4, Bullet5
Dim Mail, NameText
Dim szResKeywords, szComKeywords, szMorKeywords, szKwds, szCommonKeywords
'Create connection object for this page
Set Conn = Server.CreateObject("ADODB.Connection")
'open connection in each page
Conn.Open Session("DB_ConnectionString")
If IsEmpty(Request.QueryString("OrderId")) Then
SiteAddress = Request.ServerVariables("SERVER_NAME")
if lcase(left(SiteAddress,4)) = "www." then
SiteAddress = right(SiteAddress,len(SiteAddress)-4)
elseif lcase(left(SiteAddress,5)) = "www1." then
SiteAddress = right(SiteAddress,len(SiteAddress)-5)
elseif lcase(left(SiteAddress,5)) = "www2." then
SiteAddress = right(SiteAddress,len(SiteAddress)-5)
elseif lcase(left(SiteAddress,4)) = "dev." then
SiteAddress = right(SiteAddress,len(SiteAddress)-4)
elseif lcase(left(SiteAddress,6)) = "stage." then
SiteAddress = right(SiteAddress,len(SiteAddress)-6)
end if
Set rsExpiredFlag = Conn.Execute ("Select Expired from ordermaster o, addressalias a where " & _
" o.orderid > 0 and o.orderid = a.orderid and addressalias Like '%." & SiteAddress & "'" )
If not rsExpiredFlag.EOF then
If rsExpiredFlag.Fields("Expired") = 1 Then
Set rsExpiredFlag = Nothing
Response.Clear
Server.Transfer "/clientsite/custom/expired/expired.htm"
End if
End If
Set rsExpiredFlag = Nothing
Set rsServerName = Conn.Execute( "SELECT AddressAlias.OrderId, AddressAlias, AddressId " & _
" FROM AddressAlias, OrderMaster WHERE " & _
" OrderMaster.OrderId > 0 AND " & _
" AddressAlias.OrderId = OrderMaster.OrderId AND " & _
" AddressAlias LIKE '%." & SiteAddress & "' AND Deleted=0 AND OkToPublish=1 AND Enabled=1")
If rsServerName.EOF Then
Set rsServerName = Nothing
Response.Clear
Server.Transfer "/clientsite/UnderConstruction/Default.asp"
Else
OrderId = rsServerName.Fields("OrderId")
If Session("NumVisitors") = 1 Then
Session("NumVisitors") = 0
'Store the visitor counter
Application.Lock
Set rsTodaysVisitors = Conn.Execute( "SELECT * FROM SiteHitCounter WHERE " & _
" VisitDate = '" & Date & "' AND OrderId = " & OrderId & " AND AddressId = " & _
rsServerName.Fields("AddressId") )
If rsTodaysVisitors.EOF Then
szSQL = "INSERT INTO SiteHitCounter (OrderId, HitCount, VisitDate, " & _
" HomePageHit, AddressId ) VALUES (" & _
OrderId & ", 1, '" & Date & "', 1, " & _
rsServerName.Fields("AddressId") & " )"
Conn.Execute( szSQL )
Else
Conn.Execute( "UPDATE SiteHitCounter SET HitCount = HitCount + 1, HomePageHit = 1 " & _
" WHERE OrderId = " & OrderId & " AND VisitDate = '" & _
Date & "' AND AddressId = " & rsServerName.Fields("AddressId") )
End If
Application.UnLock
Set rsTodaysVisitors = Nothing
End If
End If
Else
OrderId = Request.QueryString("OrderId")
End If
szSQL = "EXEC GetHomePage " & OrderId
Set rsPageDet = Conn.Execute( szSQL )
szSQL = "EXEC GetPageBulletInfo " & OrderId
Set rsBullets = Conn.Execute( szSQL )
BulletText1 = rsPageDet.Fields("Bullet1Text")
BulletText2 = rsPageDet.Fields("Bullet2Text")
BulletText3 = rsPageDet.Fields("Bullet3Text")
BulletText4 = rsPageDet.Fields("Bullet4Text")
BulletText5 = rsPageDet.Fields("Bullet5Text")
Mail = rsPageDet.Fields("PersonalizedEMail")
Bullet1 = rsBullets.Fields("Bullet1")
Bullet2 = rsBullets.Fields("Bullet2")
Bullet3 = rsBullets.Fields("Bullet3")
Bullet4 = rsBullets.Fields("Bullet4")
Bullet5 = rsBullets.Fields("Bullet5")
NameText = rsPageDet.Fields("Name")
szResKeywords = "real estate,homes for sale,agents,realtors,houses,residential,brokers," & _
"single family,condominiums,townhouses,buy,buyers,commercial,developments,estates,real,for sale by owners," & _
"fsbo,investments,listings,luxury,mls,multiple listings,multiple listing services," & _
"new construction,realty,relo,specializing,relocation,homes," & _
"agents,realtors,houses,residential,brokers,single family,condominiums"
szComKeywords = "commercial,investments,industrial,real estate,offices,leases,leasing,retail,land, " & _
"multi-family,apartments,sales,financing,NNN,business,business opportunity,real," & _
"commercial,investments,industrial,specializing,real estate,leases,leasing,land,multi-family," & _
"apartments,business opportunity,realtors"
szMorKeywords = "loans,home loans,mortgages,mortgage brokers," & _
"mortgage lender,refinance,low mortgage rates,fixed rates,adjustable,real," & _
"rates,purchases,cash out,loans,home loans,specializing,mortgages,mortgage brokers,mortgage lenders," & _
"refinance,fixed rate,adjustable,rates,purchase,realtors"
Select Case rsPageDet.Fields("SiteType")
Case 1:
'Commercial
szCommonKeywords = szComKeywords
Case 2:
'Mortgage
szCommonKeywords = szMorKeywords
Case 3:
'Residential
szCommonKeywords = szResKeywords
End Select
szKwds = trim(rsBullets.Fields("SearchKeyword")) & "," & trim(szCommonKeywords)
%>
<%= getToken(szKwds,1) & " " & getToken(szCommonKeywords,1) & " " & getToken(szKwds,2) & " " & getToken(szCommonKeywords,1) & " " & getToken(szKwds,3) & " " & getToken(szCommonKeywords,1)%>
">
">
<%
Set rsPageDet = Nothing
Set rsBullets = Nothing
Set rsServerName = Nothing
Conn.Close
Set Conn = nothing
%>