codice:

function addCharLeft(word, addChar)

dim nword
const max_len= 5 'lunghezza massima di word


if len(word)<max_len then

nword=string(max_len-len(word),addChar) & word

else

nword=word

end if

addCHarLeft=nword

end function


parola="12"

response.write addCharLeft(parola, "0")