<%
'person eller org nummer
nr = "123456-7890"
nr = Replace(nr,"-","")
iLen = Len(nr)
If iLen=10 or iLen=9 Then
If IsNumeric(nr) Then
datum = Left(nr,2)& "-" & Mid(nr,3,2) & "-" & Mid(nr,5,2)
if IsDate(datum) Then
'Personnummer
typ = 1
Else
'Orgnummer
typ = 2
End if
For i = 1 to 9
siffra = CInt(Mid(nr,i,1))
If i Mod 2 Then
siffra = CStr(siffra * 2)
If Len(siffra)= 2 Then
Siffra = CInt(Left(siffra,1)) + Cint(right(siffra,1))
End If
End If
chksum = chksum + siffra
Next
x = chksum Mod 10
If x <> 0 Then
x = 10 - x
End if
If iLen = 10 Then
If CStr(x) = Right(nr,1) Then
'giltig typ
Else
Select case typ
case "1"
'felaktigt pnr.nummer
case "2"
'felaktigt org.nummer
End select
End If
Else
'slutsiffra fattas
End If
Else
'ogiltiga tecken
End if
Else
'fel antal tecken
End If
%>