fejler denne kode noget

på linie 65 melder compileren fejl, noget med den ikke kan finde stien

Dim filesys, peoplefile, fornavn, efternavn, email, hjemmeside, kommentar
            Set filesys = CreateObject(\"Scripting.FileSystemObject\")
            Set peoplefile = filesys.OpenTextFile(\"http://www.kjaersholmfestival.dk/scripts/gbpeople.txt\", 1)
            Do While Not peoplefile.AtEndOfStream
            fornavn = peoplefile.ReadLine
            Efternavn = peoplefile.ReadLine
            email = peoplefile.ReadLine
            hjemmeside = peoplefile.ReadLine
            kommentar = peoplefile.ReadLine
            Response.Write fornavn & \" \" & efternavn & \"<BR>\"
            Response.Write email & \"<BR>\"
            Response.Write \"<A HREF=\"\"\" & hjemmeside & \"\"\"> \" & hjemmeside & \"</A><BR>\"
            Response.Write \"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\" & kommentar & \"<P>\"
            Loop
            peoplefile.Close