Ciao a tutti !
Ho un problema : Vorrei verificare la validità del codice fiscale che viene inserito dagli utenti sulla pagina asp della mia applicazione web ! Siccome la pagina è scritta in asp , vorrei trovare uno script che faccia ciò!
Potete aiutarmi ?
Thank you

function checkcf(CodiceFiscale)
dim re,i,s
cf=ucase(CodiceFiscale)
set re=new regexp
re.pattern="^[A-Z]{6}\d{2}[A-Z]\d{2}[A-Z]\d{3}[A-Z]$"
re.IgnoreCase = True
re.Global = True
if not re.Test(cf) then
checkcf=false
exit function
end if
set1="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
set2="ABCDEFGHIJABCDEFGHIJKLMNOPQRSTUVWXYZ"
setpari="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
setdisp="BAKPLCQDREVOSFTGUHMINJWZYX"
s=0
for i=2 to 14 step 2
s=s+instr(setpari,mid(set2,instr(set1,mid(cf,i,1)),1))-1
next
for i=1 to 15 step 2
s=s+instr(setdisp,mid(set2,instr(set1,mid(cf,i,1)),1))-1
next
if s mod 26<>asc(mid(cf,16,1))-asc("A") then
checkcf=false
exit function
end if
checkcf=true
end function