ASP HTML to convert HTML encoding program

ASP HTML to convert HTML encoding program

function Htmlencode2 (str)
Dim result
Dim l
If IsNULL (str) Then
Htmlencode2= ""
Exit function
End If
L=len (str)
Result= ""
Dim i
For i = 1 to L
Select Case Mid (str,i,1)
Case "<"
result=result+ "&lt;"
Case ">"
result=result+ "&gt;"
Case Chr (34)
result=result+ "&quot;"
Case "&"
result=result+ "&amp;"
Case Chr (32)
result=result+ "&nbsp;"
If I+1<=l and i-1>0 then
If Mid (str,i+1,1) =CHR or mid (str,i+1,1) =CHR (9) or mid (str,i-1,1) =CHR (?) or mid (str,i-1,1) =CHR (9) Then
result=result+ "&nbsp;"
Else
Result=result+ ""
End If
Else
result=result+ "&nbsp;"
End If
Case Chr (9)
Result=result+ ""
Case Else
Result=result+mid (str,i,1)
End Select
Next
Htmlencode2=result
End Function
}