%
Response.Buffer =True
Const cstClientTypeNew = "n"
Const cstClientTypeOld = "o"
Const cstClientCookie = "ClientID"
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
sCustomerbaseDB = "CustomerBaseSimple"
on error resume next
Dim sWebServerURL
Dim sWebServerSecuredURL
sWebServerURL = "http://www.goleads.com/"
sWebServerSecuredURL = "https://www.goleads.com/"
'sWebServerURL = "http://www.marketingepicenter.com/"
'sWebServerURL = "http://www.marketingepicenter.com/"
'sWebServerURL = "http://sun:8080/"
'sWebServerSecuredURL = "http://sun:8080/"
'---------------------------------
'Get client ip address
Dim sClientIP
sClientIP = Request.ServerVariables("remote_addr")
if sClientIP <> "" then
On Error Resume Next
Dim con
Dim rs
set con=server.CreateObject("Adodb.Connection")
Set rs = server.CreateObject("Adodb.Recordset")
con.Open application("constring")
Dim sSql
sSql = "SELECT * FROM " & sCustomerbaseDB & "..AOLusers WHERE UserIp ='" & sClientIP & "'"
rs.Open sSql,con,adOpenForwardOnly,adLockReadOnly
if not rs.EOF then
'sWebServerURL = "http://sun:8080/"
'sWebServerSecuredURL = "http://sun:8080/"
'sWebServerURL = "http://www.marketingepicenter.com/"
'sWebServerURL = "http://www.marketingepicenter.com/"
sWebServerURL = "http://www.goleadsbusiness.com/"
sWebServerSecuredURL = "https://www.goleadsbusiness.com/"
end if
rs.Close
set con = nothing
set rs = nothing
end if
'If Session("FromOldSite") = "1" Then
' sWebServerURL = "http://www.marketingepicenter.com/"
' sWebServerSecuredURL = "http://www.marketingepicenter.com/"
'End If
'sWebServerURL = "http://sun:8080/"
'sWebServerSecuredURL = "http://sun:8080/"
dim url
url=Request.ServerVariables("HTTP_HOST")
if url="www.goleadsrelay.com" or url="www.relayconnect.com" or url="www.relayconnect.net" then
Response.Redirect "Relay/GoLeadsRelay.html"
end if
Dim sIPAddress
Dim sIPAddressTemp
Dim iAOLUsers1,iAOLUsers2,iAOLUsers1Arr,iAOLUsers2Arr
sIPAddress = Request.ServerVariables("REMOTE_ADDR")
iAOLUsers1 = "#172.128#172.192#172.208#172.200#172.202#172.212#172.216#"
iAOLUsers2 = "#202.67.66#202.67.68#202.67.72#202.67.80#202.67.96#"
if sIPAddress <> "" then
'First Three dots
sIPAddressTemp = left(sIPAddress,InStrRev(sIPAddress,".")-1)
if InStr(iAOLUsers2,"#" & sIPAddressTemp & "#") > 0 then
Response.Redirect("goleads_aol.asp")
end if
'First Two dots
sIPAddressTemp = left(sIPAddressTemp,InStrRev(sIPAddressTemp,".")-1)
if InStr(iAOLUsers1,"#" & sIPAddressTemp & "#") > 0 then
Response.Redirect("goleads_aol.asp")
end if
end if
'''
'Session.Contents.removeall
dim sClientType
if Request.Cookies(cstClientCookie)="" then
sClientType=cstClientTypeNew
else
sClientType=cstClientTypeOld
End if
dim sPageCookies
sPageCookies="goleads.asp"
'comment for PCI Master card complaint..
'svrVar=Request.ServerVariables("HTTP_REFERER")
'if instr(svrVar,"goleads.com")=0 and not trim(svrVar)="" then
'con.Execute "insert into goleadsreferer values('" & svrVar &"',getdate())"
'end if
session("username")="guest"
errpass=Request.QueryString("pass")
errpass=trim(errpass)
errpass=ucase(errpass)
errfrom=Request.QueryString("fromsw")
errfrom=trim(errfrom)
errfrom=ucase(errfrom)
from=session("source")
from=trim(from)
'if not from="" then
' session("from")=from
'end if
if trim(session("LP"))="yes" then
session("LP")=""
'Response.redirect "http://www.marketingepicenter.com/Leads_Portal_home.asp"
Response.Redirect sWebServerURL & "Leads_Portal_home.asp"
end if
if trim(session("subs"))="yes" then
session("subs")=""
'Response.redirect "http://www.marketingepicenter.com/products.asp"
Response.Redirect sWebServerSecuredURL & "products.asp"
end if
if trim(session("affliateto"))="residential" then
session("affliateto")=""
'Response.redirect "http://www.marketingepicenter.com/Residential/SearchHome.asp?AccType=Guest"
Response.redirect sWebServerURL & "Residential/SearchHome.asp?AccType=Guest"
end if
'if session("trafficvendor")="yes" then
' session("trafficvendor")=""
' 'Response.redirect "http://www.marketingepicenter.com/traffic/landing-wu-1202.html"
' Response.redirect sWebServerURL & "traffic/landing-wu-1202.html"
'end if
if session("google")="mfrs" then
session("google")=""
'Response.redirect "http://www.marketingepicenter.com/"
'Response.redirect sWebServerURL
end if
'if session("telemarketing")="yes" then
' session("telemarketing")=""
' '''Response.redirect "http://www.marketingepicenter.com/telemarketing.asp"
'end if
if session("directory")="yes" then
session("directory")=""
'Response.redirect "http://www.marketingepicenter.com/statelist.asp"
Response.redirect sWebServerURL & "statelist.asp"
'''Response.redirect "http://www.marketingepicenter.com/directory.asp"
end if
if session("start_business")="yes" then
session("start_business")=""
'''Response.redirect "http://www.marketingepicenter.com/startbusiness.asp"
end if
if session("metro_directory")="yes" then
session("metro_directory")=""
'Response.redirect "http://www.marketingepicenter.com/metro.asp?guest=guest"
Response.redirect sWebServerURL & "metro.asp?guest=guest"
'''Response.redirect "http://www.marketingepicenter.com/metrolist.asp"
end if
if session("state_directory")="yes" then
session("state_directory")=""
'Response.redirect "http://www.marketingepicenter.com/statelist.asp"
Response.redirect sWebServerURL & "statelist.asp"
end if
if session("state_redirect")="yes" then
session("state_redirect")=""
session("username")="guest"
'Response.redirect "http://www.marketingepicenter.com/state.asp?guest=guest"
Response.redirect sWebServerURL & "state.asp?guest=guest"
end if
if session("metro_redirect")="yes" then
session("metro_redirect")=""
'Response.redirect "http://www.marketingepicenter.com/metro.asp?guest=guest"
Response.redirect sWebServerURL & "metro.asp?guest=guest"
end if
if session("renewal")="99" then
session("renewal")=""
'''Response.redirect "https://www.goleads.com/regis89.asp?path=index&te=fff"
end if
Response.Expires=1
'response.buffer=true
if not trim(session("key"))="" then
session("key")=""
'Response.redirect "http://198.64.136.144"
end if
if session("yahookey")="yahoo" then
'session("yahookey")=""
session("usertype")="yahoo"
'Response.redirect "http://www.marketingepicenter.com/goleads_yahoo.asp"
Response.redirect sWebServerURL & "goleads_yahoo.asp"
end if
if session("redirect_sic")="yes" then
session("redirect_sic")=""
'Response.redirect "http://www.marketingepicenter.com/siccode1.asp?guest=guest"
Response.redirect sWebServerURL & "siccode1.asp?guest=guest"
end if
referer=Request.ServerVariables("url")
referer=trim(referer)
refererarr=split(referer,"/")
pos=ubound(refererarr)
actreferer=refererarr(pos)
host=Request.ServerVariables("REMOTE_HOST")
host=trim(host)
ipadd=Request.ServerVariables("REMOTE_ADDR")
ipadd=trim(ipadd)
dttime=now
site="GOLEADS"
Dim sRepLoginFromOwnURL
sRepLoginFromOwnURL = Request.QueryString("No")
sRepLoginFromOwnURL = Trim(sRepLoginFromOwnURL)
If sRepLoginFromOwnURL <> "" Then
Session("RepLogin") = sRepLoginFromOwnURL
Session("RepLoginSite") = sRepLoginFromOwnURL
End If
Dim sLogout
'Dim sSessCustomerID
sLogout = Request.QueryString("Logout")
sLogout = Trim(sLogout)
'sSessCustomerID = Session("GoLeadsCustomerID")
'sSessCustomerID = Trim(sSessCustomerID)
'If sLogout = "" And sSessCustomerID <> "" Then
' Response.Redirect "CheckLog.asp"
'End If
Function ResetSessions
Dim sSessCRM
Dim sSessFromOldSite
sSessFromOldSite = Session("FromOldSite")
sSessFromOldSite = Trim(sSessFromOldSite)
sSessCRM = Session("CRM")
sSessCRM = Trim(sSessCRM)
session.Contents.removeall()
Session("CRM") = sSessCRM
Session("FromOldSite") = sSessFromOldSite
If LCase(sSessCRM) = "yes" Then
Response.Redirect "Login_SingleUser.asp"
End If
End Function
Call ResetSessions
Dim sAccountStatus
Dim sErrMsg
sAccountStatus = Request.QueryString("Status")
sAccountStatus = Trim(sAccountStatus)
Select Case sAccountStatus
Case "Invalid"
sErrMsg = "Invalid Login Name or Password. Please try again."
case "Expired"
'sErrMsg = "Session Timed out"
sErrMsg = "Your login session has expired"
End Select
Dim sFlashFile
sFlashFile = "GoLeads_Home1.swf"
Dim iCurrentSecond
iCurrentSecond = Second(now())
iCurrentSecond = iCurrentSecond mod 2
dim array(2)
randomize
'array(1)="GoLeads_Home4.swf"
'array(2)="GoLeads_Home4.swf"
'array(0)="GoLeads_Home4.swf"
array(2)="images/GoLeads_Home3.jpg"
array(1)="images/GoLeads_Home2.jpg"
array(0)="images/GoLeads_Home1.jpg"
upperbound = ubound(array)
lowerbound = 0
lrandom = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
'Response.Write Rnd
Dim sTempImg
Dim sTempImg1
sTempImg1 = Request.QueryString("img")
sTempImg = Array(lrandom)
if sTempImg1 = "2" then
sTempImg = "images/GoLeads_Home2.jpg"
end if
if sTempImg1 = "3" then
sTempImg = "images/GoLeads_Home3.jpg"
end if
sTempImg = "images/GoLeads_Home3.jpg"
%>