Convert String to Hexadecimal 1

[Noonoo]

Hi people.

Can anyone tell me how I can convert a string into Hexadecimal values. e.g 'BaD' to '%42%61%44'. I've tried Hex() which seems to only work with numerics and ASCW(), which converts to decimal but can't seem to find anthing to do this.

The reason I'm trying to do this is I'm building a dynamic MailTo: link and I need to preserve capitalisation and spacing within the body.

Thanks a lot.

 

[tsdragon]

You don't have to worry about capitalization, it should stay the same. The only characters you normally have to worry about are special characters and punctuation.

VBScript has a builtin function to "url encode" strings.

<%Response.Write([b]Server.URLEncode[/b]("[URL unfurl="true"]http://www.microsoft.com"))[/URL] %>

Tracy Dryden

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.

 

[tsuji]

I don't know what op meant exactly. Try this?
[tt]
s="

http://www.microsoft.com"

dim a()
redim a(len(s)-1)
for i=0 to len(s)-1
a(i)=hex(asc(mid(s,i+1,1)))
next
response.write "%" & join(a,"%")
[/tt]
- tsuji

 

[Noonoo]

Thanks for the replies. tsuji, your code does exactly what I need.