用ADODB.Stream生成html代码

[pwycctv]

我想用ADODB.Stream 生成html文件,
下面是从网上找的资料,运行通过,但生不了html文件,不知道什么原因.
请指点
<%
Function SaveToFile(fName,str)

On Error Resume Next

Dim objStream

Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
'.Type = adTypeText
.Mode = adModeReadWrite
.Open
.Charset = "gb2312"
.Position = objStream.Size
.WriteText = str
.SaveToFile fName,adSaveCreateOverWrite
.Close
End With
Set objStream = Nothing
Err.Clear

End Function

fname="/sy.htm"
fname=Server.MapPath(fname)
str="能看到我吗?"
call SaveToFile(fName,str)

%>
---------------------------------------

[hfdsoft]

不要那个斜杠试试。

[笨笨兔兔兔兔兔]

.Position = 0

[pwycctv]

不行啊,为什么我生不成sy.htm文件呢,你们可以吗?