请教如下的ASP语句有什么问题呢

大家好我的ASP查询经常遇到如下问题
Microsoft OLE DB Provider for ODBC Drivers (0x80040E31)
[Microsoft][ODBC SQL Server Driver]超时已过期
请大家帮忙看下是什么原因呢，万分感谢：以下是代码
<%
ms = Request.QueryString("ms")
if ms <>"" then
dim ms_num
Set ms_num=Server.CreateObject("adodb.recordset")
dim sql1981
sql1981="select mod_firm from NUM_to_Mobile where mobile='"&ms&"'"
ms_num.open sql1981, conn198,3,3
if ms_num.EOF then
Response.Write("没有查到该终端的数据类型")
else
dim no
no = ms_num("mod_firm")
Response.Write(no)
end if
%>
</p>
<p>
                     使用该终端的手机号码有<br>
<%
dim po
Set po=Server.CreateObject("adodb.recordset")
dim sql1982
sql1982="select phonenumber from no_to_imsi where '46003'++imsia in(select imsi from CDMA_1X_Data_V12 where CAST(ucmob_model AS VARCHAR(20)) + '-' + CAST(wMOB_FIRM_REV AS VARCHAR(20)) = '"&no&"')"
po.open sql1982, conn198,3,3
if po.EOF then
Response.Write("该终端在1周内无进行任何呼叫")
else
response.write "一共搜索到"&po.recordcount &"条记录"&"<br>"
do while not PO.eof
response.write po(0)&" <br>"
po.movenext
loop
end if
po.close
set po=nothing
end if
%>
</p>

我在服务器上用查询语句，能够得出结果