Kan I finde fejlen?

Jeg giver op. Kan I finde fejlen?

Dette er mit script. En asp-kode, der skal genkende en indtastet mailadresse med en liste af mailadresser i en fil.

Dette er filen med mail-adresser. En txt-fil.
------------
bruger@mail.dk|kode|Brugernavn|Navn|
user@mail.dk|password|User|User|
testbruger@mail.dk|test|Testbruger|Bruger|
-----------


Dette er scriptet: (includen skulle være fejlfri)
-----------
<!--#include virtual="/includes/fso_include.asp"-->

<%

' får oplysningerne fra en anden side
    dim mail, kode

    mail = lcase(request.form("txtMail"))
    kode = lcase(request.form("txtKode"))


' Disse to linjer er for at kunne teste scriptet, dvs. at det ikke er permanent
    mail = "user@mail.dk"
    kode = "password"

' Brugerlisten indeholder en liste over brugerne
    Indhold = OpenFile("brugerliste.txt")
    antal = cdbl(OpenFile("brugerantal.txt"))


nyt = split(Indhold, "|")

dim fundet
fundet = 0


' Søger efter en lignende mailadresse
    for n = 1 to antal
      konkretmail = lcase(nyt((n*4)-4))
      konkretmail = replace(konkretmail, " ", "")
   
      if konkretmail = mail then
        fundet = n
      end if
    next


if fundet =0 then
  response.write "mailadressen var ikke fundet!"
else


' Tjekker kodeord
if nyt((cdbl(fundet)*4)-3) = kode then
  response.write "kodeord korrekt"
else
  response.write "Forkert kodeord"
end if


end if
%>
----------

Problemet er, at koden IKKE genkender mail-adressen, selvom den burde.

Mvh. Rasmus