记录网页访问IP,输入到文本

代码:

<%
set fs=server.createobject("scripting.filesystemobject")
set file=fs.opentextfile("F:\小旋风AspWebServer\wwwroot\jsq.txt",2)
do while file.AtEndOfStream=true
file.skipline
loop
file.writeline(request.servervariables("REMOTE_ADDR"))
file.close
%>



错误提示:


Microsoft VBScript 运行时错误 '800a0036'

错误的文件模式

\wwwroot\jsq.asp, line 4


请问那里错了?