Rowset position cannot be restarted.

Hello,
I have been working on a page, it has a horozontal recordset but I have a problem with it as I get the following error.

Microsoft OLE DB Provider for SQL Server error '80040e18'

Rowset position cannot be restarted.

/plunke_profile.asp, line 369

-~-~-~ I have commented line 369 -~-~-~-~

This is the recordset it was created in dreamweaver


<%
Dim Rectabmenu__KTColParam1
Rectabmenu__KTColParam1 = "0"
If (Request.QueryString("leektakerid") <> "") Then
  Rectabmenu__KTColParam1 = Request.QueryString("leektakerid")
End If
%>

<%
Dim Rectabmenu
Dim Rectabmenu_cmd
Dim Rectabmenu_numRows

Set Rectabmenu_cmd = Server.CreateObject ("ADODB.Command")
Rectabmenu_cmd.ActiveConnection = MM_connpeepeek_STRING
Rectabmenu_cmd.CommandText = "SELECT skill_list.skill_name, indiv_skill.skill_idusr, indiv_skill.skill_what, indiv_skill.skill_why, indiv_skill.skill_where, indiv_skill.skill_ref, skill_list.skill_pk FROM (indiv_skill LEFT JOIN skill_list ON skill_list.skill_pk=indiv_skill.skill_ref) WHERE indiv_skill.skill_idusr=?"
Rectabmenu_cmd.Prepared = true
Rectabmenu_cmd.Parameters.Append Rectabmenu_cmd.CreateParameter("param1", 5, 1, -1, Rectabmenu__KTColParam1) ' adDouble
Set Rectabmenu = Rectabmenu_cmd.Execute
Rectabmenu_numRows = 0
%><%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Rectabmenu_numRows = Rectabmenu_numRows + Repeat1__numRows
%>

--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~

this is the body section below I have commonted the line giving the error



<div class="p7TP_tabs">
                  <%
Dim i, css_class
i = 0

While ((Repeat1__numRows <> 0) AND (NOT Rectabmenu.EOF))
      i = i + 1
      if i = 1 then
            css_class = "down"
      else
            css_class = ""
      end if
%>
                   
<div id="p7tpb1_<%=i%>" class="<%=css_class%>"><a class="<%=css_class%>" href="javascript:;"><%=(Rectabmenu.Fields.Item("skill_name").Value)%> </a></div>
                  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Rectabmenu.MoveNext()
Wend
Rectabmenu.MoveFirst() ' this is where I get the error
%>    
                    <br class="p7TPclear">
                  </div>
                  <div class="p7TPcontent">
<%
i = 0
While ((Repeat1__numRows <> 0) AND (NOT Rectabmenu.EOF))
i = i + 1
%>
                  <div id="p7tpc1_<%=i%>">
                      <!-- panel content start -->
                      dfgdfgd <%=(Rectabmenu.Fields.Item("skill_what").Value)%>
                      <!-- panel content finish -->
                    </div>
                    <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Rectabmenu.MoveNext()
Wend
Rectabmenu.MoveFirst()
%>
                  </div>
                </div>


Am grateful for any enlightment

cheers

Kenny




Start Free Trial