Problemas al leer un fichero

Hola a todos

Tengo un pequeño problema, estoy leyendo un fichero, y cuando lo escribo en
la pagina, me repite la ultima linea dos veces, ¿por que sucede esto?. Como
lo soluciono.

El codigo que utilizo es el siguiente

<%
filename = "miarchivo.txt"
set fs = Server.CreateObject("Scripting.FileSystemObject")
'Asi escribimos en el archivo
Set Mfilen = fs.OpenTextFile("i:\sitios web\a\" & filename,1,false,0)
do
s = mfilen.Readline
response.write s & vbcrlf & "<br>"
loop until mfilen.AtEndOfStream
mfilen.close

Response.write s

Set Mfilen = nothing
Set fs = nothing
%>

Muchas gracias

Jose Mª Cousiño