Format number

[albis]

dim NumProva
dim strRis
NumProva = 10

strRis=Right( "000000" & NumProva , 6)
Response.Write strRis