ASP查询大型数据库出错，请高手指点！

asp程序已验证，没有语法错误。 
程序是先从一个access数据库取出username,再到sql 2000数据库中查询，看是否有相同的username，如果没有，则在sql 2000数据库中追加记录。 
当access数据库记录在1000条以下时，程序能循环执行到最后一条记录，当access数据库记录在10000条以上时，程序就不能循环执行到最后一条记录，循环到几百条记录后，便不再执行，浏览器也显示“无法显示网页，您正在查找的网页不存在”。也没有提示超时，我在iis中已设置超时：99999999. 
asp文件如下：
<!--#include file=conn.asp -->
<% Server.ScriptTimeout=999999999
Call Open_Database()
set rsa=server.createobject("adodb.recordset")
sqla="select * from 表1  "
  rsa.open sqla,conn,1,1
  do while not rsa.eof 
  username=rsa("username")         
  Dim rs,sql
  Call Open_Database()
  set rs=server.createobject("adodb.recordset")
  sql="select * from 表2  where  username='"&username&"'"
  rs.open sql,conn,1,3
  if rs.eof  then
rs.addnew
rs("username")=username

rs.update
  end if 
        rs.close 
set rs=nothing
  rsa.movenext
  loop

%>conn.asp文件如下
<%
Dim Conn
Sub Open_Database
' If Application("ConnStr")="" Then
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
Dim ConnStr
    SqlDatabaseName = "db"
SqlPassword = "123"
SqlUsername = "123"
SqlLocalName = "192.168.1.102"
ConnStr = "Provider = Sqloledb.1; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
' Application("ConnStr") = ConnStr
' End If
Set conn = Server.CreateObject("ADODB.Connection")
        
        conn.CommandTimeout =0
conn.ConnectionTimeout =0 conn.open ConnStr
' conn.open Application("ConnStr")
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。" '注释，需要把这几个字翻译成英文。
Response.End
End IfEnd Sub%>请指点，谢谢