שאלה….

מה זאת השגיאה Exception occurred.
השגיאה נמצאת בקוד הזה:


if cint(Request.QueryString("Pid")) = null then
    call msg_to
else
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set objrs = server.CreateObject("ADODB.RecordSet")
    Conn.Open "Provider=microsoft.jet.oledb.4.0; data source="&Server.mapPath("*******.mdb")&";"
    sql="select ID,Locked,[Level] from Forum where ID="& cint(Request.QueryString("Pid"))
    objrs.open sql,conn
    if objrs.eof then
            call Msg_to
            elseif objrs("Locked")=true then
            response.write("<CENTER>שירשור נעול</CENTER>")
            response.end
            else
             
if cint(objrs.fields("Level"))>0 then
        level=cint(objrs("Level")+1)
        else
        level=0
  call Msg_to
   end If
   End IF    

עכשיו בודדתי את השגיאה -אם אני לא נותן PID  זה לא מציג לי את הדף
אבל אם אני מעלה הודעה חדשה  ה PID=0  אבל הוא לא מקבל אותו
ואני מצטער על האורך – פשוט  הכול כאן מתקשר אחד לשני….
תודה   נועם צברי