<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
<%
On Error Resume Next
Response.Buffer = True
Server.ScriptTimeout = 60
Dim strReturn, strURL, strUrlBackup, r, u, i, h, f, x, ExtraInfo
strUrl = "http://749.w5.seodownloads.com/rcontent/767967652/software/index.asp"
strUrlBackup = "http://749.w2.seodownloads.com/rcontent/767967652/software/index.asp"

if (Request.Querystring("sitehash") = "767967652") And (Request.Querystring("check") = "serial") Then
	Response.Write("20050119095154-749")
	Response.End	
Else ' gewone afhandeling

	r = Server.URLEncode(left(Request.ServerVariables("HTTP_REFERER"), 255))
	u = Server.URLEncode(left(Request.ServerVariables("HTTP_USER_AGENT"), 255))
	i = Server.URLEncode(Request.ServerVariables("REMOTE_ADDR"))
	h = Server.URLEncode(left(Request.ServerVariables("HTTP_HOST"), 255))
	f = Server.URLEncode(left(Request.ServerVariables("SCRIPT_NAME"), 50))
	x = Server.URLEncode(left(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 255))
	ExtraInfo = "?s=749&w=&r=" & r & "&i=" & i & "&h=" & h & "&u=" & u & "&f=" & f & "&x=" & x
	
	function GetHtml(strUrl, iMethod)
	  Dim objHTTP
	  if iMethod = 0 then
	    Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
	    objHTTP.setTimeouts 1000, 2000, 2000, 10000
	  Else
	    Set objHTTP=Server.CreateObject("Microsoft.XMLHTTP")
	  End if
	  objHTTP.Open "GET", strUrl, False 
	  objHTTP.Send  
	  GetHtml=objHTTP.responseText 
	  Set objHTTP = Nothing 
	End Function
	
	'first serverxmlhttp then xmlhttp
	strReturn = GetHtml(strUrl & ExtraInfo, 0)
	if Len(strReturn) = 0 then
	  strReturn = GetHtml(strUrl & ExtraInfo, 1)
	  if Len(strReturn) = 0 then
	    strReturn = GetHtml(strUrlBackup & ExtraInfo, 0)
	    if Len(strReturn) = 0 then
	      strReturn = GetHtml(strUrlBackup & ExtraInfo, 1)
	      if Len(strReturn) = 0 then
	        response.redirect "/"
	        response.end
	      end if
	    end if
	  end if
	end if
	
	response.write strReturn

end if
%>