Hello,
I created a report in asp which is suppose to list payments that are pending checks. However, it is only displaying one record. The weird part is when I add the line rs.movenext it displays the next record only. Am I missing something? Any help I would appreciate. :D

slypunk

__________________
slypunk

Could you post any code? Check your query, that the params being passed in are valid and not causing it to return one row. rs.MoveNext must be there for a loop...

Brian

slypunk,

I think, you don't use any loop mechanism to move through all records and display them. Posting some code would be helpful though.

Cheers!

_________________________
- Vijay G
Strive for Perfection

Yeah sorry about that here is the code that loops the recordset:

<%
'loop through each contract
Set rs = GetEstPaymentReport()

dim iRow
iRow = 1

%>
    <tr>
        <td align="center">

                <%=rs.Fields("contno")%>

        </td>
        <td align="center">

                <%=rs.Fields("estno")%>

        </td>
        <td align="center">

                <%=rs.Fields("contractor")%>

        </td>
        <td align="center">

                $<%=rs.Fields("netestamt")%>

        </td>
        <td align="center">

                <%=rs.Fields("submittoap")%>

        </td>
        <td align="center">

                <%=rs.Fields("checkno")%>

        </td>
        <td align="center">

                <%=rs.Fields("checkdate")%>

        </td>
    </tr>
    <%
        ' Update temp field to current project
        currContract = rs.Fields("contno")
    end if
    %>

    <%
    'check if we have read past end of file
    'if not eof, get current contract no
    if not rs.EOF then
        nextContract=rs.Fields("contno")
    else
        nextContract=""
    end if
    %>

I'm not exactly sure if I'm missing something this is the function used to execute the table:


' --- FUNCTIONS STARTS BELOW

Function GetEstPaymentReport()
    ' Add Project
    set rs = server.CreateObject("adodb.recordset")
       SQL = "select * from tblEstimatePayments e(nolock)WHERE e.eststatus='a/p' "
    SQL = SQL & "order by submittoap"

    'if not rs.EOF then
    'run query
      with rs
          .Open sql, cn, 0, 3
          .Update
      end with
    'end if

    '--same concept but more code required
    ' Run Query
    'rs.open sql, cn
    ' Update temp field to current contract
    'rs.Update

    ' Return Records
    set GetEstPaymentReport = rs
    set rs = nothing
End Function

' --- PROCESSING LOGIC STARTS BELOW

dim currContract, nextContract

%>

slypunk

Hi slypunk,

I don't see any need for .Update there within that function after recordset open is performed. You may remove that.

Also I could just see a comment saying 'loop through each contract, but there is no code used to loop through the recordset, which caused this problem for you.

This entire code should be run within a While .... Wend loop as shown below.     Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection