Hjælp!! Kan ikke finde ud af det

Jeg har en side hvorfra man vælger nogle cykelryttere som max må ha´ 8000 point, derfra sendes man videre til siden herunder som tjekker om kravene overholdes!!
Nu er det sådan at hvis man præsist rammer 8000 point sige den at man har 8001 pointt og ikke kan tilmelde.

Hvad er der galt?

<html>
<head>
<!-- Minus AutoDato -->
<title>Point</title>

<style type=\"text/css\">
<!--
-->
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</style><link rel=\"stylesheet\" href=\"ccc2001.css\">

<SCRIPT>
//REPLACE frmMenu with your frame all places
//If you have a nested frameset this will not work, you\'ll have to nest your way down to the correct frame in that case
function setHideForm(){
    if(parent.frmMenu){
        if(parent.frmMenu.oCMenu){
            parent.frmMenu.oCMenu.hideForm=\"oCMenu.win.document.formLayer\"
        }else setTimeout(\"setHideForm()\",500) //IN CASE THIS PAGE LOADS BEFORE THE MENU
    }
}
if(document.layers) setHideForm()
</SCRIPT>

</head>
<body topmargin=\"20\" leftmargin=\"30\">
<table>
<tr>
<td><a href=\"#\" onClick=\"history.back(); return false;\" onFocus=\"this.blur()\">
Tilbage</a></td>
<td><a href=\"#\" onClick=\"history.forward(); return false;\" onFocus=\"this.blur()\">Frem</a></td>
</tr>
</table>

<h1 align=\"center\">TILMELDING - FORTSAT</h1>

<hr>
<%    If Request(\"checkpoint\").COUNT < 18  Or Request(\"checkpoint\").COUNT > 23 Then %>
    Du har valgt: <b><% = Request(\"checkpoint\").COUNT %></b> ryttere.<br>
    Du skal vælge mellem 18 og 23 ryttere for at kunne deltage.
    <a href=\"#\" onClick=\"parent.history.back(); return false;\">Tilbage til oversigten</a>
<% Response.End %>   
<% Else %>
    Du har valgt følgende <b><% = Request(\"checkpoint\").COUNT %></b> ryttere:
<% End If %><br>
<br>
<table cellspacing=\"0\" cellpadding=\"5\" class=\"tilmelding\">
    <tr>
        <td width=\"20\" class=\"tilmelding\"><b>Nr</b></td>
        <td width=\"400\" class=\"tilmelding\"><b>Navn</b></td>
        <td class=\"tilmelding\"><b>UCI Point</b></td>
    </tr>
    <form action=\"indsaetsumpoint.asp\" method=\"post\" name=\"form3\">
<%
                                    \'Sætter antal loops til nul
    For iCityCount=1 to Request(\"checkpoint\").COUNT                \'Løkke der tæller hvor bokse der er afkrydset
   
        strTEXT = Request(\"checkpoint\")(iCityCount)                \'Hele tekststrengen sendt fra tilmelding.asp
        intFindKomma = InStr(strTEXT,\";\")                        \'Find Første komma   
        strNr = mid(strTEXT, 1, intFindKomma-1)                  \'Rytterens nummer
        strTemp = mid(strTEXT, intFindKomma+1, LEN(strTEXT))    \'Midlertidig variabel
        intNavn = Instr(strTemp,\";\")                            \'Variabel med rytternavn,point
        strNavn = mid(strTemp, 1, intNavn-1)                      \'Rytterens navn
        strPoint = mid(strTemp, intNavn+1, len(strTemp))          \'Rytterens point
        intPointsIalt = intPointsIalt + CInt(strPoint)             \'LÆgger hver linjes point til variablen intPointsIalt
       
        \'Udskriv resultat til siden
        Response.Write \"<tr>\"
        Response.Write \"<td class=\"\"tilmelding\"\">\" & strNr & \"<input type=\"\"hidden\"\" name=\"\"rytter\"\" value=\"\"\" & strNr & \"\"\"></td>\"
        Response.Write \"<td class=\"\"tilmelding\"\">\" & strNavn & \"</td>\"
        Response.Write \"<td class=\"\"tilmelding\"\">\" & strPoint & \"</td>\"
        Response.Write \"</tr>\"
    Next
        Response.Write \"<input type=\"\"Hidden\"\" name=\"\"loops\"\" value=\"\"\" & Request(\"checkpoint\").COUNT & \"\"\">\"  \'Det samlede antal af ryttere
        Response.Write \"<input type=\"\"Hidden\"\" name=\"\"pointialt\"\" value=\"\"\" & intPointsIalt & \"\"\">\" \'Den samlede pointsum
%>
    <tr>
        <td colspan=\"2\" class=\"tilmelding\"><strong>Ialt UCI Point</strong></td>
        <td class=\"tilmelding\"><font color=\"#ff0000\"><b><%= intPointsIalt %></b></font></td>
    </tr>
    <tr><td colspan=\"3\" class=\"tilmelding\">
<%     If     intPointsIalt > 8000 then %>
        Det samlede point antal må ikke overstige <strong><font color=\"#ff0000\">8.000</font></strong> point.<br>
        Du kan desværre ikke tilmelde dette hold, klik <a href=\"#\" onClick=\"parent.history.back(); return false;\">HER</a> og vend tilbage til oversigten og prøv igen.
<%         Response.End
    Else   
%>   

    <strong><font color=\"#ff0000\">Indtast oplysninger om navn, hold etc.</font></strong><br>
    </td></tr>
   
    <tr><td class=\"tilmelding\"><strong>Dit navn:</strong></td><td colspan=\"2\" class=\"tilmelding\"><input type=\"Text\" size=\"35\" name=\"navn\" onfocus=\"this.parentElement.parentElement.style.background=\'#0099ff\'\" onBlur=\"this.parentElement.parentElement.style.background=\'\';\"></td></tr>
    <tr><td class=\"tilmelding\"><strong>Din email:</strong></td><td colspan=\"2\" class=\"tilmelding\"><input type=\"Text\" size=\"35\" name=\"email\" onfocus=\"this.parentElement.parentElement.style.background=\'#0099ff\'\" onBlur=\"this.parentElement.parentElement.style.background=\'\';\"></td></tr>
    <tr><td class=\"tilmelding\"><strong>By:</strong></td><td colspan=\"2\" class=\"tilmelding\"><input type=\"Text\" size=\"35\" name=\"bynavn\" onfocus=\"this.parentElement.parentElement.style.background=\'#0099ff\'\" onBlur=\"this.parentElement.parentElement.style.background=\'\';\"></td></tr>
    <tr><td class=\"tilmelding\"><strong>Holdets navn:</strong></td><td colspan=\"2\" class=\"tilmelding\"><input type=\"Text\" size=\"35\" name=\"holdnavn\" onfocus=\"this.parentElement.parentElement.style.background=\'#0099ff\'\" onBlur=\"this.parentElement.parentElement.style.background=\'\';\"></td></tr>       
    <tr><td colspan=\"3\" class=\"tilmelding\"><input type=\"Submit\" value=\"TILMELD HOLD\"></td></tr>
    </form>
<% End If %>
</table>


</body>
</html>