by alexK (9 Submissions)
Category: VB function enhancement
Compatability: ASP (Active Server Pages)
Difficulty: Beginner
Date Added: Sun 7th February 2021
Rating: (1 Votes)
Function to convert plain text to ASCII code.
Function ASCIICode(str)
Dim strOut, i
strOut = ""
For i = 1 To Len(str)
strOut = strOut & "&#" & ASC(Mid(str, i, 1)) & ";"
Next
ASCIICode = strOut
End function