Validering på serverniceau

Nu er det kun modulus 11 testet der er interessant...

Nu ved jeg ikke lige hvad modulus 11 er vel ikke kommandoen "mod 11" vel ?
Men der er vel bare noget med

if request.form("cprnr") mod 11 = ?? then
'gør noget
elseif request.form("karakter")=4 or request.form("karakter")=12 or request.form("karakter")=3 or request.form("karakter")=0 then
'osv
end if ??

Jeg føler mig lidt på bar bund ?

ups...der kom anderledes besked mens jeg skrev..

Hvorledes man beregner CPR finder du på:

http://www.cpr.dk/modulus11_beregn.htm

Det får da vist ikke for 60 point...

Det skulle så være det!
<%
cpr="230769-0155"
cpr = Trim(replace(cpr,"-",""))
CCheck = "4327654321"
response.write cpr &"-"
For t = 1 to 10
    CSum = Csum + cbyte(mid(cpr,T,1))*cbyte(mid(CCheck,T,1))
    response.write Csum & "-"
next
response.write vBCrlf & CSum mod 11 & vBCrlf
response.write vBCrlf & Csum/11 & vBCrlf
If CSum mod 11 = 0 then
response.write "OK!"
else
response.write "Not OK!"
end if

%>

Og uden test kode:

<%
cpr="230769-0155"
cpr = Trim(replace(cpr,"-",""))
CCheck = "4327654321"
For t = 1 to 10
    CSum = Csum + cbyte(mid(cpr,T,1))*cbyte(mid(CCheck,T,1))
next
If CSum mod 11 = 0 then
response.write "OK!"
else
response.write "Not OK!"
end if
%>

Jeg får flg fejl:

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'

Typerne passer ikke sammen: 'cbyte'

Fejllinie: CSum = Csum + cbyte(mid(cpr,T,1))*cbyte(mid(CCheck,T,1))

Brug Cint i stedet for cbyte

cbyte skulle virke udemærket, i alle tilfælde på mit system. cint kan selvfølgelig bruges men er ikke nødvendig. Det du skal passe på er unødvendige tal eller tegn. Som du ser sortere jeg - fra men findes der andre "sjove" tegn i strengen får du nettop ovenstående problem. Der er bygge lidt formatering af strengen ind i ovenstående men den tage absolut ikke højde for alle ting.