<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<%
Response.CacheControl="private, max-age=0"
	Response.Expires=0
	dim strQString
	strQString = Request.ServerVariables("QUERY_STRING")
	strQString = replace(strQString,"404;http://www.oxle.com:80/","")
	strQString = replace(strQString,"404;http://www.oxle.nl:80/","")
	strQString = replace(strQString,"404;http://oxle.com:80/","")
	strQString = replace(strQString,"404;http://oxle.nl:80/","")
	strQString = replace(strQString,"404;http://test.oxle.com:80/","")
	strQString = replace(strQString,"404;http://test.oxle.nl:80/","")
'Spider check
	' Well, normally the browser isn't a spider...
	dim isSpider
	isSpider = 0
	' No other meaning than forcing the isSpider behaviour
	' for testing pourpose
	if request("spider") = 1 then isSpider = 1
	' Takes the name of the UserAgent currently used and put it
	' into lower case for compairson
	agent = lcase(Request.ServerVariables("HTTP_USER_AGENT"))
	' Now, most of the Bots refers to themself as libwww,
	' java, perl, crawl, bot. let's start with some conditions
	' If the agent contains "bot" then it is a Spider
	if instr(agent, "bot")  > 0 then isSpider = 1
	' If the agent contains "perl" then it is a Spider
	if instr(agent, "perl") > 0 then isSpider = 1
	' If the agent contains "java" then it is a Spider
	if instr(agent, "java") > 0 then isSpider = 1
	' If the agent contains "libw" then it is a Spider
	if instr(agent, "libw") > 0 then isSpider = 1
	' If the agent contains "crawl" then it is a Spider
	if instr(agent, "crawl") > 0 then isSpider = 1
	if instr(agent, "DA 7") > 0 then isSpider = 1
	if instr(agent, "DA 6") > 0 then isSpider = 1
	if instr(agent, "DA 5") > 0 then isSpider = 1
	if instr(agent, "DA 4") > 0 then isSpider = 1
	if instr(agent, "DA 3") > 0 then isSpider = 1
	if instr(agent, "DA 2") > 0 then isSpider = 1
	if instr(agent, "DA 1") > 0 then isSpider = 1
	if instr(agent, "download") > 0 then isSpider = 1
	
'end spider check
	
    If (Len(strQString)<5) and isSpider <> 1 and strQString <> "pda" and strQString <> "wap" Then
			'start the redirect script
			%>
			<!-- #INCLUDE FILE="ls/connection.asp" -->
			<!--#INCLUDE FILE="inc_base62.asp"-->
			<%
				Dim linkRec
				Dim link
				Dim hits
				Dim newUrl
				Set objConn = Server.CreateObject ("ADODB.Connection")
				Set linkRec = Server.CreateObject ("ADODB.Recordset")	
				'get current link
				link = FromBase62(strQString)
				'here comes the conversion from Base62 to Dec

				'Open database	
				objConn.Open strConnect

				Set linkRec = objConn.Execute ("SELECT * FROM links WHERE linkid = " & link & ";")
				if linkRec.BOF or linkRec.EOF then
						Set linkRec = Nothing
						objConn.Close
						Set objConn = Nothing
				   	Response.Buffer = True
			   		Response.Clear
			   		Response.Redirect("pagenotfound.asp?page=" & strQString)
				else
					'link found, redirecting
						newUrl = linkRec("url")
						objConn.Execute "UPDATE links SET links.hits = links.hits + 1 WHERE linkid = " & link
						Set linkRec = Nothing
						objConn.Close
						Set objConn = Nothing
					   Response.Buffer = True
					   Response.Clear
					   Response.Redirect chkUrl(newUrl)
			   end if	ELSEIF isSpider <> 1 then
	Select Case strQString
		Case "scoting"
		    Response.Redirect("/scouting/")
	    Case "scoting/"
		    Response.Redirect("/scouting/")
	  	Case "scauting"
		    Response.Redirect("/scouting/")
	    Case "scauting/"
		    Response.Redirect("/scouting/")
	    Case "frontpage"
		    Response.Redirect("default.asp")
	    Case "linkdump"
		    Response.Redirect("linkdump.asp")
		Case "linkshrinker"
		    Response.Redirect("ls.asp")
		Case "shrinker"
		    Response.Redirect("ls.asp")
		Case "tinyurl"
		    Response.Redirect("ls.asp")
	   	Case "forum"
		    Response.Redirect("forums.asp")
	   	Case "default"
		    Response.Redirect("default.asp")
	   	Case "defualt"
		    Response.Redirect("default.asp")
	    Case "defualt"
		    Response.Redirect("default.asp")
	    Case "defalt"
		    Response.Redirect("default.asp")
	    Case "index"
		    Response.Redirect("default.asp")
		Case "index.htm"
	    	server.transfer("default.asp")
		Case "index.html"
	    	server.transfer("default.asp")
		Case "default.htm"
	    	server.transfer("default.asp")
		Case "pda"
	    	server.transfer("mobile.asp")
		Case "wap"
	    	server.transfer("mobile.asp")
		Case "mobile"
	    	server.transfer("mobile.asp")
	    Case "default.html"
		    server.transfer("default.asp")
	    Case "members"
		    Response.Redirect("members.asp")
		Case "weblogs"
		    Response.Redirect("weblogs.asp")
		Case "weblog"
		    Response.Redirect("weblogs.asp")
		Case "calendar"
		    Response.Redirect("cal.asp")
		Case "events"
		    Response.Redirect("cal.asp")
		Case "active"
		    Response.Redirect("active.asp")
	    Case "chatbox"
			Response.Redirect("chat.asp")
	    Case "search"
		    Response.Redirect("search.asp")
	    Case "admin"
		    Response.Redirect("default.asp")
	  	Case Else
			Response.Redirect("/pagenotfound.asp?page=" & strQString)
		End Select
	else 
	server.transfer("empty.asp")
	end if
%>

newUrl = linkRec("url")

quote:

---

Originally posted by MarcelG

Tribaliztic ; this line should be removed however ;

newUrl = linkRec("url")

---