Personnummerkontroll

Hej

Vissa korrekta personnummer säger denna funktion är felaktiga. Var ligger felet?

Obs den ligger under wF Script

<%
pr = Request("pr")
IF pr = "" THEN
Response.Write("<FORM METHOD=""get""><INPUT TYPE=""text"" SIZE=""10"" NAME=""pr""><BR><INPUT TYPE=""submit"" VALUE=""Kontrollera""></FORM>")
ELSE
IF Len(pr) <> 10 THEN
Response.Write("Felaktigt angivet personnummer! Ange personnummret utan bindestreck, totalt 10 siffror.")
Response.Write("<P><FORM METHOD=""get""><INPUT TYPE=""text"" SIZE=""10"" NAME=""pr""><BR><INPUT TYPE=""submit"" VALUE=""Kontrollera""></FORM>")
ELSE
pr2 = pr

For i = 0 to 8

k = Left(pr2,1)
pr2 = Right(pr2,len(pr2)-1)

k = k * ((i + 1) Mod 2 + 1 )
IF len(k) = 2 THEN
totalt = totalt + Int(Left(k,1)) + Int(Right(k,1))
ELSE
totalt = totalt + k
END IF

NEXT

sista = 10 - Int(Right(totalt,1))

IF Cint(sista) = Cint(Right(pr,1)) THEN
Response.Write("Korrekt personnummer!")
ELSE
Response.Write("Felaktigt personnummer!")
END IF
END IF
END IF
%>

------------------
Adde