<form name="ConvStr" method="post" action="<%=Request.ServerVariables("URL")%>">
 <input type="text" name="TheStr" value="<%=Request.Form("TheStr")%>" size="75" class="bnotes">
 <input type="submit" name="DoConv" value="Convert" class="bnotes">
 </form>

<%
If Len(Request.Form("TheStr")) <> 0 Then

  TheStr = Request.Form("TheStr")

  ASCIIStr = ""
  Hexstr = ""
  OctStr = ""
  BinStr = ""

  For x = 1 to Len(TheStr)
      'Get ASCII Number
      TheChr = Asc(Mid(TheStr,x,1))
      IF Len(TheChr) < 3 Then
        Do Until Len(TheChr) = 3
           TheChr = "0" & TheChr
        Loop
      End IF
      ASCIIStr = ASCIIStr & TheChr & " "

      'Get Hexadecimal number
      HexVal = Hex(TheChr)
      IF Len(HexVal) < 2 Then
        Do Until Len(HexVal) = 2
           HexVal = "0" & HexVal
        Loop
      End IF
      HexStr = HexStr & HexVal & " "
      HexVal = ""

      'Get Octal Number
      OctVal = Oct(TheChr)
      IF Len(OctVal) < 3 Then
        Do Until Len(OctVal) = 3
           OctVal = "0" & CStr(OctVal)
        Loop
      End IF
      OctStr = OctStr & OctVal & " "
      OctVal = ""

      'Get Binary Number
      Do Until CInt(TheChr) = 0
        TempValue = TheChr Mod 2
        BinValue = CStr(TempValue) & BinValue
        TheChr = TheChr \ 2
      Loop
      IF Len(BinValue) < 8 Then
        Do Until Len(BinValue) = 8
           BinValue = "0" & BinValue
        Loop
      End IF
      BinStr = BinStr & " " & BinValue
      BinValue = ""
  Next

  Response.Write "<hr>"

  Response.Write "<div style=" & chr(34) & "padding:5px;" & chr(34) & "><b>" & _
                      Server.HTMLEncode(TheStr) & _
                 "</b></div>"

  Response.Write "<div style=" & chr(34) & "padding:5px;" & chr(34) & "><b>ASCII</b>: " & _
                       "<div style=" & chr(34) & "padding:3px;padding-left:20px;" & chr(34) & ">" & _
                       ASCIIStr & _
                       "</div>" & _
                 "</div>"

  Response.Write "<div style=" & chr(34) & "padding:5px;" & chr(34) & "><b>Hexidecimal</b>: " & _
                       "<div style=" & chr(34) & "padding:3px;padding-left:20px;" & chr(34) & ">" & _
                       HexStr & _
                       "</div>" & _
                 "</div>"

  Response.Write "<div style=" & chr(34) & "padding:5px;" & chr(34) & "><b>Octal</b>: " & _
                       "<div style=" & chr(34) & "padding:3px;padding-left:20px;" & chr(34) & ">" & _
                       OctStr & _
                       "</div>" & _
                 "</div>"

  Response.Write "<div style=" & chr(34) & "padding:5px;" & chr(34) & "><b>Binary</b>: " & _
                       "<div style=" & chr(34) & "padding:3px;padding-left:20px;" & chr(34) & ">" & _
                       BinStr & _
                       "</div>" & _
                 "</div>"

  Response.Write "<div style=" & chr(34) & "padding:5px;" & chr(34) & "><b>URLEncode</b>: " & _
                       "<div style=" & chr(34) & "padding:3px;padding-left:20px;" & chr(34) & ">" & _
                       Server.URLEncode(TheStr) & _
                       "</div>" & _
                 "</div>"

  Response.Write "<div style=" & chr(34) & "padding:5px;" & chr(34) & "><b>HTMLEncode</b>: " & _
                       "<div style=" & chr(34) & "padding:3px;padding-left:20px;" & chr(34) & ">" & _
                       Server.HTMLEncode(Server.HTMLEncode(TheStr)) & _
                       "</div>" & _
                 "</div>"

End If

%>