lo que no se es si realmente estas leyendo el strlinea
si es asi.
Realiza el siguiente cambio
<div align="center">
<textarea name="informe" id="informe"></textarea>
<option value><% Response.Write i & " " & Server.HTMLEncode(strLine) & "<br>"
End If%></option>
</div>
<%
loop
' cerramos y destruimos los objetos
TS.Close
Set TS = Nothing
Set FSysObj = Nothing
%>
espero te sirva ....