ASP写入ASP文件时出错，请高手指点，在线等答案

<%
Dim oFso,oFS
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
Set oFS = oFso.CreateTextFile(Server.Mappath("XX.asp"))
oFS.Write Chr(60) & "%" & VbCrLf & _
"'----------XX.asp------------" & VbCrLf & _
" WebName = "新域数据" " & VbCrLf & _
" WebTitle = " 新域数据-专业虚拟主机域名注册服务商!稳定、安全、高速的虚拟主机！域名注册虚拟主机租用" " & VbCrLf & _
"%" & Chr(62)
oFS.Close
Set oFS = Nothing
Set oFso = Nothing
%>
我主要想写一个循环进去
<%
Dim oFso,oFS
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
Set oFS = oFso.CreateTextFile(Server.Mappath("XX.asp"))
oFS.Write Chr(60) & "%" & VbCrLf & _
"'----------XX.asp------------" & VbCrLf & _

for i=1 to 10
"d = ""&i

asp写入数据库出错。 asp-向数据库写入数据时出错 asp向数据库写入数据时出错 ASP写入数字进ACCESS出错？ asp写入时间出错类型不匹配 ASP + FSO 怎样把信息写入文件 asp上传文件功能出错 ASP文件出错,请大家帮忙看一下,谢谢 数据库连接出错,请检查Conn.asp文件中的数据库参数设置。 数据库连接出错，请检查Conn.asp文件中的数据库参数设置。