recordset into 2d array using getrows() 
Author Message
 recordset into 2d array using getrows()

I'm having trouble displaying records that I've put into a
2d recordset using getrows.

I run a stored procedure in sqlserver2000 which returns
the correct data if I write it out using <%=rsblahblah
("fieldname")%>. If I run it in query analyser, it returns
the correct data. However if I try to write it out in a
For Next Loop, as you will see in the code, random records
seem to disappear.

I hope I've explained enough for this code to make sense.
I've been scratching my head for 2 days now!

*********************code****************************

<%Function valNull(valIn)
        If valIn = "" or IsNull(valIn) Then
                valNull = "null"
        Else
                valNull = valIn
        End If
End Function

TitleArray = array
("Id","Project", "Location", "Client", "Main
Contractor", "Contractor", "Contract", "Programme", "Specif
ication", "Scope", "Method")

%>                  

<table border=0 cellspacing=3 cellpadding=3 width=620
height="850">
<tr>
        <td valign="top">
                <table border=0 cellspacing=3
cellpadding=3 width="100%">
                <%If request("reload") <> 1 Then

                strgetproject = "sp_LAM_get_project "
                strgetproject = strgetproject & intcontid

                set connection = server.createobject
("adodb.connection")
                connection.open gstrConn

                set rsprojects = server.createobject
("adodb.recordset")
                rsprojects.Open strgetproject ,connection

                If rsprojects.eof Then
                        response.write "<tr
valign='center'><td bgcolor='#ffffff' class='projectbody'
colspan='2'>There are no details available for this
project at present</td></tr>"
                Else    
                %>
                        <form name="getprojectdetails"
method="post" action="projectdetails.asp">
                        <tr valign="center">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        Project:
                                </td>
                                <td>
                                <select name="projtitle"
onChange="submit()" class="projectbody">
                                        <option value="">--
Select Project--</option>
                                        <%Do while not
rsprojects.eof%>
                                        <option value="<%
=rsprojects("projtitle")%>"><%=rsprojects("projtitle")%

Quote:
></option>

                                        <%
rsprojects.movenext
                                        Loop%>
                                </select>
                                </td>
                        </tr>
                        <input type="hidden" name="reload"
value=1>
                        <input type="hidden" name="id"
value="<%=intcontid%>">
                        </form>
                <%
                End If
                Else
                        If request("projtitle") = "" Then

        response.redirect "projectdetails.asp?
id="&intcontid
                        End If  

                strgetproject
= "sp_LAM_get_project_details '"
                strgetproject = strgetproject &
request.form("projtitle") & "'"

                set connection = server.createobject
("adodb.connection")
                connection.open gstrConn

                set rssoddingdetails = server.createobject
("adodb.recordset")
                rssoddingdetails.Open
strgetproject ,connection

                Dim strvalues
                strvalues = rssoddingdetails.GetRows()

                Dim iRowLoop, iColLoop%>
                        <tr bgcolor="#ffffff">
                                <td colspan="2"
class="projectbody">This is what I get</td>
                        </tr>
                <%For iRowLoop = 0 to UBound(strvalues, 2)
          For iColLoop = 1 to UBound(strvalues, 1)

                If cstr(valNull(strvalues(iColLoop,
iRowLoop))) = "null" Then
                        response.write "empty col = " &
iColLoop & " empty row = " & iRowLoop & "<br>"
                Else    
                        response.write "full col = " &
iColLoop & " full row = " & iRowLoop & "<br>"
                        Response.Write "<tr
valign='top'><td bgcolor='#003399' class='whiteheader'
width='20%'>"&titlearray(iColLoop)&":</td><td
class='projectbody' bgcolor='#ffffff'>"&cstr(valNull
(strvalues(iColLoop, iRowLoop)))&"</td></tr>"
                End If

            Next 'iColLoop

                Next 'iRowLoop

                rssoddingdetails.movefirst
%>  
                        <tr bgcolor="#ffffff">
                                <td colspan="2"
class="projectbody">However, the correct fields are
below</td>
                        </tr>
                        <tr valign="center">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(1)%>:
                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=rssoddingdetails
("projtitle")%>
                                </td>
                        </tr>            
<%

If rssoddingdetails("projlocation") = "" or IsNull
(rssoddingdetails("projlocation")) Then%>
                        <tr valign="top">
                                <td class="projectbody"
colspan=2>
                                        There is currently
no information for this project<br>
                                        <a
href="projectdetails.asp?id=<%=intcontid%>"
class="newbody">back</a>
                                </td>
                        </tr>                    
<%Else%>                  

                        <tr valign="top">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(2)%>:
                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=rssoddingdetails
("projlocation")%>
                                </td>
                        </tr>                    
                        <tr valign="top">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(3)%>:
                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=rssoddingdetails
("projclient")%>
                                </td>
                        </tr>            

                        <tr valign="top">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(4)%>:
                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=rssoddingdetails
("projmaincontractor")%>
                                </td>
                        </tr>            

                        <tr valign="top">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(5)%>:
                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=rssoddingdetails
("projcontractor")%>
                                </td>
                        </tr>    
                        <tr valign="top">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(6)%>:
                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=rssoddingdetails
("projcontract")%>
                                </td>
                        </tr>    
                        <tr valign="top">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(7)%>:
                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=rssoddingdetails
("projprogramme")%>
                                </td>
                        </tr>            
                        <tr valign="top">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(8)%>:
                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=rssoddingdetails
("projspec")%>
                                </td>
                        </tr>    
                        <tr valign="top">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(9)%>:
                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=rssoddingdetails
("projscope")%>
                                </td>
                        </tr>    
                        <tr valign="top">
                                <td bgcolor="#003399"
class="whiteheader" width="20%">
                                        <%=titlearray(10)%

Quote:
>:

                                </td>
                                <td class="projectbody"
bgcolor="#ffffff">
                                        <%=replace
(rssoddingdetails("projmethod"), "^", "'")%>
                                </td>
                        </tr>    
<%

        End If
End If
%>                  
                </table>
        </td>
</tr>
</table>



Sun, 16 Oct 2005 21:14:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Transpose the Recordset.GetRows Array

2. Array of Arrays and 2D array

3. wsh/ jscript : BUG : array of array, 2D array

4. Using the array returned by GetRows()

5. Using GetRows with large recordsets!

6. Using a var in 2D-array

7. Array Filter Function and 2D Array

8. 2D Array to 1D Array

9. Convert 2d array to 1d array

10. Problem with Jscript and Recordset GetRows() method

11. COM object that returns GetRows Array

12. How to check a empty array from the return of the method GetRows

 

 
Powered by phpBB® Forum Software