troubleshooting Question

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Avatar of Stacie
StacieFlag for United States of America asked on
C#ASP.NET
7 Comments1 Solution1235 ViewsLast Modified:
I get the following error bellow when I run this source code. I'm at a loss on what is the issue. This error when you do a POST when you submit for an insert.

Error:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/LDA/Role_Assign_1.asp, line 231

Application URL: /LDA/Role_Assign_1.asp?UID=21&PCID=902600&CID=&ADD=Y

Code Base:

<%@ Language=VBScript %>

<%Response.Buffer =true%>

<%Response.Expires=0%>
<html>
<head>

<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">


<link rel="stylesheet" type="text/css" href="css/master.css">
    <link rel="stylesheet" type="text/css" href="css/globalNav.css">
    <script language="JavaScript" type="text/javascript" src="js/global.js"></script>
    <script language="JavaScript" type="text/javascript" src="js/globalNav.js"></script>

<script language="javascript">
// Set these to true to enable debugging or tracing

    function change_form_action(targetpage) {
    document.form1.action = targetpage;
    document.form1.submit();
}
function change_action(targetpage) {
document.form1.action = targetpage;
}


function popit1a(targetpage, UID, PCID, CID)  {
  //  var winpops = window.open("RMK_Dept_Review.asp?rekn=" + rekn, "",  "toolbar=no,width=400,height=400,resizable=no,top=200,left=100");
    window.location="http://apps.tweddle.com/LDA/" + targetpage + "UID=" + rekn + UID + "&PCID=" +  PCID + "&CID=" + CID;
 //  alert("test");
        } 

</script>
</head>

<!--#include file="includes/topNav1.inc"-->
<!--#include file="includes/DB_Connect.asp"-->
<body onload="init();">
<%UID=Request.QueryString("UID")
ADD=Request.QueryString("ADD")
PID=REquest.QueryString("PID")
    IsAdmin=Session("IsAdmin")
    CID=Request.QueryString("CID")
    PCID=Request.QueryString("PCID")%>
<%DIM NUID%>
<%DIM SBU%>
<%Dim K%>
    <%SQLQT=Chr(39) %>

<%K=1%>
<table  cellpadding=7>
<% j="Yes" %>
<tr><td valign=top>

<tr><td>
<INPUT  type= "submit"  value= "Return To Me" id= submit6 name= submit6 class = "LDAButton2e" onclick = "location.href='Startmenu.asp?UID=<%=UID%>&PCID=<%=PCID%>'"></td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td><td class="Subhead1b">&nbsp;&nbsp;&nbsp;Assign My Role to Candidate</td>
    </tr></table>

<table  cellpadding=5  cellspacing=3>

 <form id="form1" name="form1"  method="post" action="Role_Assign_1.asp?UID=<%=UID%>&PCID=<%=PCID%>">



 




<%  Dim FieldCount

%>

<% 

    
%>

<table border="1" cellpadding="3" cellspacing="0" width="620" >



 <tr><td bgcolor="#ffefd3" class="Subhead2w3"><font color="navy">Select Role</font></td><td>

   <select name="F_Role" id="F_Role" class="Subhead2w4"
          onchange = form1.submit();>
   


          <% set oRsSdat2 = server.CreateObject ("ADODB.Recordset") %>		  
<%if IsAdmin=1 then %>
<%strSQL3="SELECT JobTitle, ReportsTo from LDA_ROLE order by MGR_ID"%>
<%else %>
<%strSQL3="SELECT JobTitle, ReportsTo from LDA_ROLE where MGR_ID='" & UID & "' or Current_HOLDER='" & PCID & "'"%>
    <%end if%>

	 

		  <% set oRsSdat2 = server.CreateObject ("ADODB.Recordset") %>
          <% oRsSdat2.Open strSQL3, hrDSN %> 
       <option value="-SELECT-">-SELECT-</option>
                 <% Do While Not oRsSdat2.EOF %> 
          <option<%If Cstr(oRsSdat2.Fields(0))= Cstr(Request.Form("F_Role")) Then Response.Write(" selected")%>  value ="<%=oRsSdat2.Fields(0)%>">

          <%="-" & oRsSdat2.Fields(0)%>

          <% oRsSdat2.MoveNext()%>
          <% loop %>
    

          <% if oRsSdat2.Fields.Count>0 then  oRsSdat2.Close %>
          <% set oRsSdat2=nothing %>

      <option>      
         </select></td>
 

 <tr><td bgcolor="#ffefd3" class="Subhead2w3"><font color="navy">Select Candidate</font></td><td>

   <select name="F_Candi" id="F_Candi" class="Subhead2w4"
          onchange = form1.submit();>

          <% set oRsSdat2 = server.CreateObject ("ADODB.Recordset") %>		  
<%'if IsAdmin=1 then %>
<%strSQL3="SELECT Name,Cur_Title, CAN_ID, PCHEX_ID from LDA_CANDI order by Name,MGR_ID"%>
       <%'else %>
<%'strSQL3="SELECT Name,Cur_Title, CAN_ID, PCHEX_ID from LDA_CANDI where MGR_ID='" & UID & "'"%>
    <%'end if%>

	 

		  <% set oRsSdat2 = server.CreateObject ("ADODB.Recordset") %>
          <% oRsSdat2.Open strSQL3, hrDSN %> 
       <option value="-SELECT-">-SELECT-</option>
                 <% Do While Not oRsSdat2.EOF %> 
          <option<%If Cstr(oRsSdat2.Fields(0))= Cstr(Request.Form("F_Candi")) Then Response.Write(" selected")%>  value ="<%=oRsSdat2.Fields(0)%>">

          <%=oRsSdat2.Fields(0)%>

          <% oRsSdat2.MoveNext()%>
          <% loop %>
    

          <% if oRsSdat2.Fields.Count>0 then  oRsSdat2.Close %>
          <% set oRsSdat2=nothing %>

      <option>    
         </select></td>
     </tr>
    <tr>

    	<% strSQL= "Select * from LDA_CANSTatus where sortord<100 order by SortOrd asc "'"%>
      <% zcol="SH2c"%>
          <% set oRsV = server.CreateObject ("ADODB.Recordset") %>	
      <td bgcolor="#ffefd3" class="Subhead2w3"  align=left>Set Initial Candidate Readiness</td><td  class ="Subhead2w5"><select name="status1" id="status1"
        onchange = form_main.submit();>
          <% oRsV.Open strSQL, hrDSN %>

<% if Not oRsV.BOF And Not oRsV.EOF then %>
 
				<% Do While Not oRsV.EOF %>
					<option <%If oRsV.Fields(1) = Request.Form("status1")  Then Response.Write("selected ")%> value ="<%=oRsV.Fields(1)%>">
					<% = oRsV.Fields(1)%>
					<% oRsV.MoveNext() %>
				<% loop %>
<% end if %>
          <% oRsV.Close %>
                        <%GFLAG=1 %>
          <% set oRsV=nothing %>
                        <% %>
          </class="Subhead2w6">
  <% set oRsV=nothing %>  
                    <br />
 </td>

          <br />
          
</td>
 
   <tr><td></td><td class="Subhead2w4">If the Candidate you wish to assign does not show up on the drop down, go to "Manage Candidates" and drill down through Reports until you find them, then click<Font color="red"><b> ADD</b></Font></td>
        </tr>
    <tr><td></td><td class="Subhead2w4">You can now assign any Candidate to your Role, not just those in your organization. However not all employees may be loaded as Candidates, you may need to request the employees Manager to <Font color="red"><b>"ADD"</b></Font> the employee as a Candidate</td>
        </tr>
 <tr><td></td><td class="Subhead2w4"> For employee development you and your employee may wish to assign them to a Role outside your organization. In this case click on <Font color="red"><b>Use Roles Not Owned by Me</b></Font> for that selection.
     </tr>
</table>
     <%TDATE=Date %>
     <%strSQL1="Select Name, PCHEX_ID from LDA_USERS where id='" & UID & "'" 
       set oRsSdat2 = server.CreateObject ("ADODB.Recordset")
       oRsSdat2.Open strSQL1, hrDSN
         MYNAME=oRsSdat2("Name")
         MYID=oRsSdat2("PCHEX_ID")
         oRsSdat2.Close
         set oRsSdat2=nothing

     IF ADD="Y" THEN %>
      <%SQLQT=Chr(39)
		 FROLE=Request("F_Role")
		 FROLE=Replace(FROLE, SQLQT,SQLQT & SQLQT)
         FCANDI=Request("F_Candi")

             FCANDI=Replace(FCANDI,SQLQT,SQLQT & SQLQT)
             FSTATUS=Request("status1")
             if FSTATUS="RED" Then
              s1=0
             elseif FSTATUS="YELLOW" then
              s1=1
             elseif FSTATUS="GREEN" Then
              s1=2
             end if
    MYNAME=Replace(MYNAME,SQLQT,SQLQT & SQLQT)         
            If FCANDI="-SELECT-" or FROLE="-SELECT-" then
                 Response.write("<td ><Font color=RED Size=5><B>Incomplete Data Selection</B></Font></td>")
             else
                 set oRsSdat2 = server.CreateObject ("ADODB.Recordset")
                 strSQL1="Select PCHEX_ID, PCHEX_SUP_ID from LDA_CANDI where Name='" & FCANDI &"'"

                 oRsSdat2.Open strSQL1, hrDSN
                 CID=oRsSdat2("PCHEX_ID")
             SPCID=oRsSdat2("PCHEX_SUP_ID")
                 oRsSdat2.Close
             IF uid=1 or UID=2 then
                strSQL1="Select ID from LDA_ROLE where JobTitle='" & FROLE & "'"
             else
                 strSQL1="Select ID from LDA_ROLE where JobTitle='" & FROLE & "' and ((MGR_ID='" & UID & "') or (CURRENT_HOLDER='" & PCID & "'))"
             end if
     '        response.write(strSQL1)
	 
                 oRsSdat2.Open strSQL1, hrDSN
                 RID=oRsSdat2("ID")
                  oRsSdat2.Close
                 strSQL2="Select * from LDA_CAN_ROLE where CAN_ID='" & CID & "' and ROLE_ID='" & RID & "'"
                 oRsSdat2.Open strSQL2, hrDSN
                if oRsSdat2.eof=True then
                    oRsSdat2.close
                    strSQL2="Insert into LDA_CAN_ROLE values('" & CID & "','" & RID & "', '" & TDATE & "','" & MYNAME & "','" & MYID & "')"
                    oRsSdat2.Open strSQL2, hrDSN
                    strSQL2="SELECT ID from LDA_CAN_ROLE where CAN_ID='" & CID & "' and ROLE_ID='" & RID & "'"
                    oRsSdat2.Open strSQL2, hrDSN
                    CRID=oRsSdat2("ID")
                    oRsSdat2.Close
                    strSQL2="Insert into LDA_CAN_ROLE_GAP Values('" & CRID & "','No Data','No Data','No Data','" & Date() & "','" & FSTATUS & "', 'No Data','No Data','No Data','', '" & CID & "','" & SPCID & "','" & s1 & "','0', 'No Data','No Data','No Data')"
                '   response.write(strSQL2)
                    oRsSdat2.Open strSQL2, hrDSN
                    Response.write("<td ><Font color=Navy Size=5><B>&nbsp;&nbsp;...Added Succesfully</B></Font></td>")
                else
                   oRsSdat2.close
                   Response.write("<td ><Font color=RED Size=5><B>&nbsp;&nbsp;...Candidate Assignment Exists</B></FONT></td>")
                end if
         end if
   else
   end if
             
              zcol="SH2w" & s1%>
     <%targetpage="Role_Assign_1.asp?UID=" & UID & "&PCID=" & PCID &  "&CID=" & CID & "&ADD=Y"%>
<table border="0" cellpadding="3" cellspacing="0" width="600" >
    <tr><td></td></tr>
    <tr>
<td><input type="button" class="LDAButton2e" size="1" onclick="change_form_action('<%=targetpage%>');"  value="Assign Role"></td>
        <td></td>
 <%targetpage="Role_Assign_2.asp?UID=" & UID & "&PCID=" & PCID &  CID &  "&CID=" & "&ADD=N"%>
<td><input type="button" class="LDAButton2ROLE" size="1" onclick="change_form_action('<%=targetpage%>');"  value="Use Roles Not Owned By Me"></td>
    </tr>
    <%response.write("<td>x" & s1 & FCANDI & "</td>") %>


</table>



  



</body>
</html>
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 7 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 7 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros