Asp filter html code functions

I simply wrote some,

Function html_encode (html)
Dim temp
Temp = replace (html, "<", "& lt ;")
Temp = replace (temp, ">", "& gt ;")
Temp = replace (temp, "'", "single quotes ")
Temp = replace (temp, chr (13), "<br> ")
Html_encode = replace (temp, chr (32), "& nbsp ;")
End function
'*************************************** ******************
Function encode_html (encode) // This is the process that was previously processed in the output.
Dim temp
Temp = replace (encode, "& lt;", "<")
Temp = replace (temp, "& gt;", "> ")
Temp = replace (temp, "single quotes ","'")
Temp = replace (temp, "<br>", chr (13 ))
Encode_html = replace (temp, "& nbsp;", chr (32 ))
End function