% function ASCIICode(strInput) strOutput = "" For i = 1 To Len(strInput) strOutput = strOutput & "" & ASC(Mid(strInput, i, 1)) & ";" Next ASCIICode = strOutPut End function %>
|
|
|||||
|
|
Toll FREE 1 866 988-1020 www.PlumbingUnlimited.com |
||||