Yet another code question

How to change this code....

[Blelisa]

to give me a numberic output instead of a alpha?

<%
Dim intCounter, intDecimal, strTicket

For intCounter = 1 To 6
Randomize
intDecimal = Int((26 * Rnd) + 1) + 64

strTicket = strTicket & Chr(intDecimal)

Next
%>

Also if I remove the word randomize, will it give me the numbers in consecutive order?

[chronic]

...
Next
%>
... becomes ...

Next

strTicket = int(strTicket)
%>
...

[Blelisa]

I tried that and it did not work.

[mrMister]

strTicket = strTicket & cstr(intDecimal)