Soren Winslow Soren Winslow
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)



%>



               

© 1967 - 2017 Soren Winslow