If a1 <> a2 Then....

Har føølgende kode (forkortet) som ikke vil acceptere at a1 & a2 rent faktisk ER ens! Hvad gør jeg galt?

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

'giv a1 & a2 linie 6 & 7 minus de førsrte 11 & 15 tegn
pw1 = f.ReadLine
pw2 = f.ReadLine
a1 = Mid(pw1,11,20)
a2 = Mid(pw2,15,20)

'Checker om PW er indtastet ens
If a1 <> a2 Then
Response.Write "Fejl i password" & "<br>"
Response.Write (a1) & "<br>"
Response.Write (a2) & "<br>"
End If
f.Close
End Function

Grunden til at jeg bruger "mid(pw1,11,20)" er at der før selve passwordet står "Password: "
Grunden til at jeg bruger "mid(pw2,15,20)" er at der før selve passwordet står "Test password: "
Det der bliver udskrevet er ens, det der bliver indtastet er ens!

Help me......

//Beach