---
title: "Personnummerkontroll"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11483-personnummerkontroll"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2001-09-05T21:33:00.000Z"
updated: "2001-09-05T21:33:00.000Z"
replies: 0
views: 208
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11483-personnummerkontroll"
---

# Personnummerkontroll

## #1 — Addeladde, 2001-09-05T21:33Z

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
%>
```

Permalänk: https://www.webforum.nu/p/11483

---

Tråden på webben: https://www.webforum.nu/amne/asp/11483-personnummerkontroll