请看看这个button的响应函数怎么不执行？请高手过目

<script language="vbscript">
sub output_onclick()
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.createtextfile("..\website\databases\daochu.txt")
set myconn=server.createobject("adodb.connection")
myconn.open "autrade"
set rs=myconn.execute("select * from company")
while not rs.eof
response.write(rs("type"))
if int(rs("type"))=int(d1) then
mytextfile.writeline(rs("name"))
end if
rs.movenext
wend
rs.close
myconn.close
mytextfile.close
end sub
</script>
总提示我说是缺少server对象。