Ciao mschievano,

Partita IVA più che codice fiscale

per togliere gli zeri iniziali puoi usare il replace delle regular expression
codice:
Set RE = CreateObject("VBScript.RegExp")
RE.Pattern="^0*" 'cerca tutti gli zeri che partono da inizio stringa
stringa = "00123456789"
Response.Write stringa & "
" & RE.Replace(stringa,"")