Integer to bit string

[slackerJr]

Hi!

I need to convert an integer to a bit string with classic asp. Any hints on how to do this?

Thanks.

 

[tsuji]

Like this.
[tt]
sub cvt(ninteger,bitstring)
'convert integer to bit string (no padding)
'bitstring is out-param
dim dvd
bitstring=cstr(ninteger mod 2) & bitstring
dvd=n\2
if dvd<>0 then
cvt dvd,bitstring
end if
end sub

dim n,bitstr
n=8
bitstr=""
cvt n,bitstr
response.write n & " : " & bitstr & "<br />"
[/tt]

 

[tsuji]

Correcting a typo (a change of mind on naming during draft up). A re-take.
[tt]
sub cvt(ninteger,bitstring)
'convert integer to bit string (no padding)
'bitstring is out-param
dim dvd
bitstring=cstr(ninteger mod 2) & bitstring
dvd=n[red]integer[/red]\2
if dvd<>0 then
cvt dvd,bitstring
end if
end sub
[/tt]

 

[slackerJr]

Thanks a million, just what I needed