<% 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" %> Mailing List - Sales Leads , Telemarketing, Business, Consumer - GoLeads
Accurate, Affordable Sales Leads & Mailing Lists
(402) 334-1824
Unlimited Access!
<%If sErrMsg <> "" Then%> <%Else%> <%End If%>
Customer Login
<%=sErrMsg%>
FREE Database Search
14 Million U.S.Businesses
220 Million U.S.Consumers
GoLeads
Price Comparison >
Free Sales Newsletter
Company Products Contact Us
GoLeads - Mailing lists, Sales leads, Telemarketing, Business, Consumer Leads
Discover The Differences Between GoLeads & Traditional "Just A List" Providers.
Data Management Portal
Your own Home Page
for all of your
Sales Leads and
Mailing Lists.
 Learn More
Centralized Database
All of your company’s
contacts under one
system. Streamlines
your sales efforts.
 Learn More
Leads Delivery System
Get sales leads to your
reps in seconds.


 Learn More
Performance Reports
View reports by List.
By Rep. By Pipeline.
 Learn More
Sales Leads, Direct Mail List, Telemarketing Leads and More!
VerySign Contact Us | Call: (402) 334-1824 | FAQ | Site Map | Databases | Data Services | News
14 Million U.S.Businesses | 220 Million U.S.Consumers | 2 Million Farmers & Ranchers
| 2 Million New Businesses | 4 Million New Homeowners | 16 Million New Movers
Insurance Leads | Qualified Insurance Leads | Pre-Screened Insurance Leads
21