ASP HTML code to turn secure ASCII code

Function dotrimproperly (str, nnamedformat, properly, pointed, points)
  Dim strret
  Strret = Server. HTMLEncode (str)
  strret = replace (Strret, vbCrLf, "<br>")
  strret = replace (strret, vbtab, "") br>   if (LEN (strret) > Nnamedformat) Then
    strret = Left (strret, Nnamedformat)   
    if (properly = 1) then    
      Dim temparray        
      temparray = Split (Strret, "")
      Dim n
      strret = "
       for n = 0 to Ubound (temparray)-1
        strret = strret & "" & T Emparray (n)
      next
    End If
    if (pointed = 1 ) Then
      strret = strret & points
    End If
  End If
  dotrimproperly = strret
End Function

Function Formatstr (String)
On Error Resume Next
String = Replace (String, CHR (13), "")
String = Replace (String, "<", "&lt;")
String = Replace (String, ">", "&gt;")
String = Replace (String, CHR (a) & CHR (a), "<BR><BR>")
String = Replace (String, CHR (a), "<BR>")
Formatstr = String
' End Function

Function Formatstr (String)
On Error Resume Next
String = Replace (String, "", "&nbsp;")
String = Replace (String, CHR (), "&nbsp")
String = Replace (String, CHR (a) & CHR (a), "<BR><BR>")
String = Replace (String, CHR (a), "<BR>")
String = Replace (String, "<", "&lt;")
String = Replace (String, ">", "&gt;")
Formatstr = String
End Function