用sub怎么插入flash?我写的一段代码运行出错，高手看看，谢谢
<%Sub IndexHeader()
with Response
.write "<div><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,19,0" width="942" height="188"><param name="movie" value="/images/top.swf" /><param name="quality" value="high" /><embed src="/images/top.swf" quality="high" pluginspage="http://www. type="application/x-shockwave-flash" width="942" height="188"></embed></object></div>"&vbcrlf
End with
End Sub
%>
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/include/1.asp, line 4, column 30
.write "<div><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,19,0" width="942" height="188"><param name="movie" value="/images/top.swf" /><param name="quality" value="high" /><embed src="/images/top.swf" quality="high" pluginspage="http://www. type="application/x-shockwave-flash" width="942" height="188"></embed></object></div>"&vbcrlf
-----------------------------^
