If Then skal se bort fra den første tekst i fil

Jeg har ikke testet det, men du burde kunne

pw1 = f.ReadLine
pw2 = f.ReadLine
a1=split(pw1,":");
a2=split(pw2,":");
If a1[1] <> a2[1] Then
  .........

>>>erikjacobsen
Sorry den lange svartid, men E var nede i LAAAAANG tid i går!
Det ser ikke ud til at virke:-(
Jeg har nu følgende kode:
Function checkfile()
Dim fso, f, filespec
Dim pw1, pw2, a1, a2
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.MapPath(Request.Querystring("tlf") & ".txt")
Set f = fso.OpenTextFile(filespec,1)
For intLine = 1 to 5
  f.SkipLine
Next
pw1 = f.ReadLine
pw2 = f.ReadLine
a1=split(pw1,":");
a2=split(pw2,":");
'Checker om PW er indtastet ens
If a1[1] <> a2[1] Then
'Text-filen lukkes inden den slettes!!!
f.Close
'Filen slettes fra serveren, men kan oprettes igen ved korekt indtastning af PW
fso.DeleteFile Server.MapPath(Request.Querystring("tlf") & ".txt")
Set fso=Nothing

'Sender bruger retur til forige side hvis PW ikke er ens
Response.Write("<script language=""JavaScript"">" & vbCrLf & "")
Response.Write("    {" & vbCrLf & "")
Response.Write("        document.location='java script:history.back(1);';" & vbCrLf & "")
Response.Write("    }" & vbCrLf & "")
Response.Write("    </script>" & vbCrLf & "")

End If
f.Close
End Function

Nu kommer siden frem med en HTTP 500 - Intern serverfejl

//Beach

Alle lader til at falde fra når jeg komme med en mindre kryptisk børge:-(
Er det umuligt at køre det, eller kræver det en del mere kode end det jeg har på plakaten eller.....
Sig frem, der er nu 60 potinat hente på den der kan løse opgaven på den ene eller den anden måde!
Se evt. her:
http://www.eksperten.dk/spm/174930
//Beach

En lille banal fejl.... Det er jo nemt nok at løse

Men du begik den fejl at oprette to spørgsmål om det samme
på eksperten, og så gider jeg ikke hjælpe. Du må klare det selv

>>>erikjacobsen
Grunden til at jeg opretter et spørgsmål mere er at jeg her bruger en helt anden indgangsvinkel end den som vi har gang i her.
Du vil meget gerne bruge Split og det har jeg så forsøgt mig med en hel del gange desvære uden at få det til at virke.
Jeg går så i krig med min ASP bog som ingen omtale overhovedet har omkring Spilt men finder ved læsning af 4-5 sider at der er en helt anden mulighed og indgangsvinkel til at løse problemet med en anden kommando nemlig Mid.

Så nej, jer har da ikke "overtråt" nogle regler da mit nye spørgsmål (de ligner godt nok hinanden i overskriften) kun går på hvorfor jeg ikke kan få Mid til at virke.
Dette har intet med Split at gøre, den eneste sammenhæng er at outputtet i den sidste ende skal være ens, nemlig at vise mig om pw1 & pw2 er ens eller forskellige.

Grunden til at jeg går i krig med min bog og ikke venter i næsten 2 dage på at du kommer tilbage er at jeg ikke rigtigt kan komme videre før ovenstående eller mit nye problem er løst.
Jeg håber du kan se at jeg ikke har oprettet 2 ens spørgsmål og at du derfor vender tilbage og hjælper mig med at finde løsningen på Split problemet.
Jeg vil stadig arbejde med Mid da den måske vil kunne bruges i andre sammenhænge og man kan jo ikke lære for meget af alt det her ASP selv om det er hård kost for en som er flasket op med Basic og HTML:-)

//Beach

Jeg gider ikke læse dine argumenter. Du har fortsat ikke
lukket dette spørgsmål, og har altså gang i 2.

Som om handler 2 forskellige ting!
Det er da ikke ulovligt at have flere spørgsmål åbne på en gang så længe de ikke omhandler det samme, og forøvrigt er det spørgsmål du tænker blevet lukket for 24 minutter siden!
Så prøv lige at læse ovenstående alligevel da det måske ville ændre lidt på sagen.

//Beach

Det lader ikke til at du er villig tl at hjælpe mig selv om du ikke kan sammenligne de 2 spørgsmål som du tænker på. Tak for det-(
Fremover så skal det ifgl. din mening måske også kun være ulovligt at stille mere end et spøgsmål til samme site eller hvad?

Med venlig tak og hilsen
//Beach