Function strconv (Byval Strin, Byval Encoding) DIM St: set st = server.createObject ("AdoDb.Stream") st.type = 2 st.open st.writetext strin st.position = 0 st.charset = encoding strconv = ST .Readtext (-1) st.close set st = nothingend function
Response.write strconv ("Hello!", "ISO-8859-1")