网页刷新时为什么会出错。

[roj]

第一次打开没有问题。而网页在刷新的时候就要出错。出错后关闭IE重新打开也是正确的。
<%@ Language=VBScript %>
<%
'连接系统数据库
set conn = server.CreateObject("adodb.connection")
conn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("db1.mdb")
conn.Open ConnectionString
'查询数据
Set RSEnquiryResult = conn.Execute("select products_link as k1 , products_name as k2 from tb_product where yw_type = '外贸业务' and products_type = '马达'" )
%>

<%
if not IsEmpty(RSenquiryResult) then
do Until RSEnquiryResult.eof

Response.write "<TR><TD height='22' colspan='3' align=left vAlign=middle background='products_ima/menu_back.JPG'>"
Response.write "<TABLE width=137 border=0 align='left' cellPadding=0 cellSpacing=0><TBODY><TR>"
Response.write "<TD width='137' colspan='3' align=left vAlign=middle><div align='right'>"
Response.write "<a href= '"
Response.write RSEnquiryResult("k1")
Response.write "' >"
'Response.write "<a href= 'wm_products2.htm'> "
Response.write RSEnquiryResult("k2")
Response.Write "</a></div></TD>"
Response.write "</TR></TBODY></TABLE></TD></TR>"
RSEnquiryResult.Movenext
Loop
end if

'关闭数据库连接
RSEnquiryResult.close()
conn.close()
set RSEnquiryResult = nothing
set conn = nothing

%>

[roj]

没有人帮忙马？？

[wxiaol]

提示的是什么错误啊？

RSEnquiryResult.close()
conn.close()
set RSEnquiryResult = nothing
set conn = nothing
这里有函数调用么？
还不如直接
RSEnquiryResult.close
set RSEnquiryResult = nothing
conn.close
set conn = nothing

[roj]

报的错误如下：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Provider 错误 '80004005'

未指定的错误

/test/wm_products1.asp，行8


在程序里面行8是：conn.Open ConnectionString

[roj]

up一下

[roj]

没有人告诉我怎么回事吗？？

[zy51]

代码本身没问题啊? 我在本机测试很正常的.

[woshihuzi]

你用的是winXP吧？
好像是win2k+iis下这是可以的，winXP+iis下是不行的。
你换如下的连接字符串看看：
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db1.mdb")

[roj]

邪门了，你们测试都没有问题？？
我是在Win2k＋iis啊!

[roj]

同样的问题在另外一段程序中出错，报错地方于上面的程序相同。
高手救命！

[roj]

可能是因为电脑操作系统和IIS的原因，换了台电脑就不出问题了。
奇怪ing