Code TO Hide Web Page in URL

I wrote an online class forum for classes I teach and found that students kept trying to access pages directly without first logging in. Although I fixed that with the AUTH object I decided to also find a way to hide the page in the address line. Looking around the Internet I found a free javascript that I converted to FoxPro. The code is below for your use.

*** START ************************

<%
LOCAL lcURL
lcURL = ""
IF Request.FormCount("btnchoice") > 0
lcURL = ALLTRIM(Request.Form('urlpage'))

    lcURL = StrTran(lcURL,"A", "%41")
    lcURL = StrTran(lcURL,"B", "%42")
    lcURL = StrTran(lcURL,"C", "%43")
    lcURL = StrTran(lcURL,"D", "%44")
    lcURL = StrTran(lcURL,"E", "%45")
    lcURL = StrTran(lcURL,"F", "%46")
    lcURL = StrTran(lcURL,"H", "%48")
    lcURL = StrTran(lcURL,"I", "%49")
    lcURL = StrTran(lcURL,"K", "%4B")
    lcURL = StrTran(lcURL,"M", "%4D")
    lcURL = StrTran(lcURL,"N", "%4E")
    lcURL = StrTran(lcURL,"R", "%52")
    lcURL = StrTran(lcURL,"S", "%53")
    lcURL = StrTran(lcURL,"T", "%54")
    lcURL = StrTran(lcURL,"U", "%55")
    lcURL = StrTran(lcURL,"a", "%61")
    lcURL = StrTran(lcURL,"b", "%62")
    lcURL = StrTran(lcURL,"c", "%63")
    lcURL = StrTran(lcURL,"d", "%64")
    lcURL = StrTran(lcURL,"e", "%65")
    lcURL = StrTran(lcURL,"f", "%66")
    lcURL = StrTran(lcURL,"h", "%68")
    lcURL = StrTran(lcURL,"i", "%69")
    lcURL = StrTran(lcURL,"k", "%6B")
    lcURL = StrTran(lcURL,"m", "%6D")
    lcURL = StrTran(lcURL,"n", "%6E")
    lcURL = StrTran(lcURL,"o", "%6F")
    lcURL = StrTran(lcURL,"p", "%70")
    lcURL = StrTran(lcURL,"r", "%72")
    lcURL = StrTran(lcURL,"s", "%73")
    lcURL = StrTran(lcURL,"t", "%74")
    lcURL = StrTran(lcURL,"u", "%75")
    lcURL = StrTran(lcURL,"v", "%76")
    lcURL = StrTran(lcURL,"w", "%77")
    lcURL = StrTran(lcURL,"x", "%78")
lcURL = "HTTP://"+lcURL
ENDIF
%>
<HTML>

<table>
<tr>
    <td>
        <form name="hidewebpage" METHOD=post ACTION="URL.fwx">
   Enter a URL, without HTTP://, and a page to hide. For example,
   <BR>
   www.yourdomain.com/yourpage.fwx (or whatever your extension is)
   <BR>
   <input type="text" size="70" name="urlpage" value="">
   <BR>
          <INPUT TYPE=SUBMIT NAME=btnchoice VALUE="Create URL">
          <BR><BR>
          Your hidden web page is:<BR>
          <%RESPONSE.WRITE(lcURL)%>
          <%lcURL = ""%>
        </form>
    </td>
</tr>
</table>
</BODY>
</HTML>

*** END **************************