ReadLine skal sammenligne 2 linier

Jeg har følgende kode:
Function checkfile()
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.MapPath(Request.Querystring("tlf") & ".txt")
Set f = fso.OpenTextFile(filespec,1)
For intLine = 1 to 6
  f.SkipLine
Next
' udskriv den 7 & 8 linie
'Response.write f.ReadLine & "<br>"
'Response.write f.ReadLine & "<br>"
f.Close
'Dette virker som det skal, nu vil jeg i stedet for at udskrive linierne have fonktionen til at sammenligne dem! Noget ala...

if 7.ReadLine <> 8.ReadLine Then ' Hvis linie 7 & 8 IKKE er ens skriv...
Response.Write "Password er forkert indtastet"
Else  ' Hvis liinie 7 & 8 ER ens skriv...
Response.Write "Password er korekt indsastet"
End If
End Function

Håber i kan følge mig

//Beach