为什么我用asp连接数据库页面总是卡死，我的代码如下：

<%
Const SqlDatabaseName = "ETE"
Const SqlPassword = "talent"
Const SqlUsername = "sa"
Const SqlLocalName = "ACER-PC\SQLEXPRESS"
a = request.Form("hiddenField")
response.Write(a)
Sub ConnectionDatabase
Dim ConnStr
dim sql
dim conrs
dim a
a = request.Form("hiddenField")
sql="SELECt usemodel FROM cnbe WHERe PN = " & a & ""
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ""
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
set conrs = server.CreateObject("adodb.recordset")
conrs.open sql,conn
do until conrs.EOF
for each x in conrs.Fields
Response.Write(x.name)
Response.Write(" = ")
Response.Write(x.value & "
")
next
Response.Write("
")
conrs.MoveNext
loop
conrs.close
conn.close
End Sub
call ConnectionDatabase
%>

看出错代码，出错的行。ie把脚本调试打开

期待看到有用的回答！