VB and HTML escape codes (VB CHR and HTML Decimal codes) ASP Script

VBScript and HTML escape codes.

There are only 255 visual basic escape codes, so for the first 255 cells, you will find three rows. The first row is the VB Chr code. The second row is the HTML escape code and the last row is the result of that code along with the chosen font.

After number 255, there are only two rows. The top row is the HTML escape code (sometimes called a HTML decimal code) and the bottom row is the result of that code along with the chosen font.

Just a quick note on the symbol fonts: in order to see what the symbol is you will need to have that font installed on your computer.

Here is the ASP code for this script:


<%
  IF Len(Trim(Request("SelFont"))) > 0 Then
     SelFont = Request("SelFont")
  Else
      SelFont = "Arial"
  End If
%>

<form name="ChooseFont" method="post" action="<%=Request.ServerVariables("URL")%>">
<div class="breg">Select a Font:
<select name="SelFont" onchange="ChooseFont.submit()" class="breg">
<%
  IF Len(Trim(Request("SelFont"))) > 0 Then
     SelFont = Request("SelFont")
  Else
      SelFont = "Arial"
  End If

  FontList = "Arial|Almanac MT|Arial Alternative Symbol|Bon Apetit MT|Bookshelf Symbol 3|" & _
             "Candid|Directions MT|Holidays MT|Keystrokes MT|Marlett|Monotype Sorts|" & _
             "MS Outlook|MT Extra|Parties MT|Signs MT|Sports Two MT|Sports Three MT|" & _
             "symbol|Parties MT|Transport MT|Vacation MT|Webdings|Wingdings|" & _
             "Wingdings 2|Wingdings 3|ZapfDingbats"

  FontArr = Split(FontList,"|")

  For x = 0 to Ubound(FontArr)
    If FontArr(x) = SelFont Then
       Response.Write "<option value='" & FontArr(x) & "' selected>" & FontArr(x) & "</option>"
    Else
       Response.Write "<option value='" & FontArr(x) & "'>" & FontArr(x) & "</option>"
    End If
  Next
%>
</form>

</select>



<%
Response.Write "<table align=" & chr(34) & "center" & chr(34) & " " & _
                       "cellspacing=" & chr(34) & "0" & chr(34) & " " & _
                       "cellpadding=" & chr(34) & "1" & chr(34) & " " & _
                       "class=" & chr(34) & "DataTble" & chr(34) & ">" & _
                       chr(13)

cells = 0
For x = 1 to 10000


   If cells = 0 Then
      Response.Write "<tr style=" & chr(34) & "text-align:center;" & chr(34) & ">" & chr(13)
   End If
   cells = cells + 1

   Response.Write "<td class=" & chr(34) & "DataCell" & chr(34) & ">" & chr(13)

   Response.Write "<div class=" & chr(34) & "breg" & chr(34) & ">" & chr(13)
   TheNum = CStr(x)
   If TheNum < 256 Then
      Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & ">" & _
                           "Chr(" & TheNum & ") </div>" & chr(13)
   End If
   Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & ">" & _
                  "&#" & TheNum & ";</div>" & chr(13)
   Response.Write "<div class=" & chr(34) & "breg" & chr(34) & " " & _
                        "style=" & chr(34) & "font-family:" & SelFont & ";" & chr(34) & ">" & _
                        "&#" & TheNum & ";" & chr(13)

   Response.Write "</td>"  & chr(13)

   If cells = 10 then
      Response.Write "</tr>"  & chr(13)
      cells = 0
   End if

Next

Response.Write "</table>"  & chr(13)

%>