<%@ Language=VBScript %> <%Option Explicit Dim strEscaped, strDomain, strMouseOver, i Response.Write "" &VBCrLf strMouseOver = "" If Request.QueryString("mode") = "demo" Then strMouseOver = "onMouseOver=""eval(unescape('"&Request.Form("translatedURL")&"'));""" Response.Write "" &VBCrLf Response.Write "

" &VBCrLf Response.Write "location.href='http:///';" &VBCrLf Response.Write "
" &VBCrLf Response.Write "

" &VBCrLf If Request.QueryString("mode") = "doit" Then strDomain= "location.href='http://" & Request.Form("URL") & "/';" Response.Write "Your escaped string is here.

" &VBCrLf For i = 1 To Len(strDomain) strEscaped = strEscaped & "%" & Hex(Asc(Mid(strDomain,i , 1))) Next Response.Write "Here is the ECMAScript code
onMouseOver=""eval(unescape('"&strEscaped&"'));""

" &VBCrLf Response.Write "

" &VBCrLf Response.Write "" &VBCrLf Response.Write "
" &VBCrLf Response.Write "

" &VBCrLf End If Response.Write "" &VBCrLf Response.Write "" &VBCrLf %>