quote:

---

What happens when you issue the SELECT COUNT(*) AS DVD_COUNT FROM FORUM_DVD from within Access rather than via an ASP page ?

www.daoc-halo.com

---

If I do that (hadn't done that ever before so I had to use the office help) I get 91 as a result, so that works correctly.



http://www.frutzle.com

Snitz Exchange | Do's and Dont's

quote:

---

Was the part in green just a typo?

Nikkol

---

No, I'm lazy and copied that code from an earlier post instead of my file...



http://www.frutzle.com

Snitz Exchange | Do's and Dont's

<% strSql = "SELECT COUNT(*) FROM " & strTablePrefix & "DVD"
set rstTest = myConn.execute(strSql)
DVD_COUNT = rstTest(0) 
%>

<%
strsql = "SELECT DVDID, Title, Site, Actors FROM " & strTablePrefix & "DVD ORDER BY DVDID ASC"
set rs = my_conn.execute(strsql)

if not rs.EOF then
  
  myDVD = rs.GetRows() ' Places recordset into an Array
  
  ' this is a basic two dimensional array, the first dimension is the data itself. 
  ' The second dimension is the record number - rembering arrays are zero based the 
  ' first record would be 0 the second 1 and so on
  ' So:
  '   myDVD(0,0) = DVDID of First Record
  '   myDVD(1,0) = Title of First Record
  '   myDVD(2,0) = Site of First Record
  '   myDVD(3,0) = Actors of First Record
  '   myDVD(0,1) = DVDID of Second Record
  '   etc ... etc ... etc ...


  ' Right now you could free up resource by doing the rs.close and set rs = nothing
  ' and set my_conn = nothing also as we have completely finished with the
  ' recordset.


  rsCols = ubound(myDVD,1) ' ResultSet Columns
  rsRows = ubound(myDVD,2) ' ResultSet Rows


  ' Setup a variable to contain the record count
  myDVDTotal = rsRows + 1 ' add one becuase Arrays start at 0


  for RowCount = 0 to rsRows
  %>
    <tr class="cellOff" onmouseover="className='cellOn'" onmouseout="className='cellOff'">
      <td valign="top" width="200"><p class=default><%=myDVD(1,RowCount)%></td>
      <td valign="top"><p class=default><%=myDVD(3,RowCount) %></td>
      <td valign="top" width="30"><p class=default><% if Trim(myDVD(2,RowCount) <> "") then %><a href="<%=myDVD(2,RowCount)%>" target="_blank"><img src="images/buy.gif" border="0" title="Buy at Amazon.com" alt="Buy at Amazon.com"></a><% else Response.Write " " end if %></td>
    </tr>
  <%
  next


else

%>
    <tr>
      <td colspan=3 bgcolor="<%=strForumCellColor%>"><p class=default>No DVDs found</td>
    </tr>
<%

end if
rs.close
set rs nothing