asp连接oracle92问题

set cn=server.CreateObject("adodb.connection")
cn.Provider="MSDAORA.1"
cn.Open "password=wasuser;persist security info=true;user id=was;data source=was"
set rs=server.CreateObject("adodb.recordset")
rs.CursorLocation=adUseserver
rs.CursorType=adOpenForwardOnly
strsql="select rname,frompage from wv_archcontent " & _
"where archid=(select getidbypos((select arcloc from regyzdata where cqxz='2007072341')) from dual) " & _
"order by frompage"
rs.Open strsql,cn
do while not rs.EOF
Response.Write Trim(rs.Fields("rname")) & "-" & Trim(rs.fields("frompage")) & ";"
rs.MoveNext
loop这是我的代码。
昨天还可以连接oracle，执行sql语句，今天早上重启过一次服务器，然后再打开*。asp页面后，就出现“http 500 内部服务器错误”。
这种情况出现过两次了，我现在都烦了。
求助。