求帮忙，大数据循环假死

Do While Not rs.eof
If N2S(rs("EDI_NO")) = "01" Then
sel = "×"
Else
sel = ""
End If
'20120329 BIKO_029, BIKO_030追加
Response.Writesel & ";" & _
rs("TORI_NAME") & ";" & _
rs("SITEN_NAME") & ";" & _
fn_get_tkubun_name(N2S(rs("TORI_KBN"))) & ";" & _
rs("HINBAN") & ";" & _
vbCrLf
rs.moveNext
debugmsg(rs("HINBAN"))
DoEvents
Loop

数据量有点大，每次循环到一万9千多条就死了，然后我加了DoEvents，但是加这句之后执行到这里就不执行了

来人啊

ASP都跑这里来了？

你一个页面显示1W9Q条 想干什么