Convert ubb to html code

<%
Function unhtml (s_string)
S_string = replace (s_string, "&", "& amp ;")
'S _ string = replace (s_string, "", "& nbsp ;")
S_string = replace (s_string, "<", "& lt ;")
Unhtml = replace (s_string, ">", "& gt ;")
End function
Function ubbimg (s_string)
S_string = replace (s_string, "[img]", "Ubbimg = replace (s_string, "[/img]", "'> ")
End function
Function ubb_url (s_string)
Str_len = len (s_string)
Start_pos = instr (s_string, "[url]")
If start_pos> 0 then
End_pos = instr (start_pos, s_string, "[/url]")
If end_pos> 0 then
Url = mid (s_string, start_pos + 5, end_pos-start_pos-5)
S_string = left (s_string, start_pos-1) & "<a href = '" & url & "'target =' _ blank '>" & url & "</a>" & right (s_string, str_len-end_pos-5)
Call ubb_url (s_string)
End if
End if
Ubb_url = s_string
End function
Function ubburl (s_string)
S_string = ubb_url (s_string)
Str_len = len (s_string)
Start_pos = instr (s_string, "[url = ")
If start_pos> 0 then
End_pos = instr (start_pos, s_string, "]")
End_pos2 = instr (start_pos, s_string, "[/url]")
If end_pos> 0 and end_pos2> end_pos then
Url = mid (s_string, start_pos + 5, end_pos-start_pos-5)
S_string = left (s_string, start_pos-1) & "<a href = '" & url & "'target =' _ blank '>" & right (s_string, str_len-end_pos)
Call ubburl (s_string)
End if
End if
Ubburl = replace (s_string, "[/url]", "</a> ")
End function
Function unquot (s_string)
S_string = replace (s_string, chr (34), chr (34) & chr (34 ))
Unquot = replace (s_string, chr (39), chr (39) & chr (39 ))
End function
Function fbdwords (s_string, s_fbdwords)
A_string = split (s_fbdwords ,"")
N = ubound (a_string)
For I = 0 to n
If trim (a_string (I) <> "then
S_string = replace (s_string, trim (a_string (I )),"*")
End if
Next
Fbdwords = s_string
End function
Function existswords (s_string, s_fbdwords)
Isexist = false
A_string = split (s_fbdwords ,"")
N = ubound (a_string)
For I = 0 to n
If trim (a_string (I) <> "and instr (s_string, a_string (I)> 0 then
Isexist = true
Exit
End if
Next
Existswords = isexist
End function
%>