Newsgroup: it.comp.www.asp
Titolo: ordina per data e non per nome

ora ho uno script ASP che legge da un db acces l'organizzazione di una
galleria fotografica. Piu precisamente ci sono due tabelle, in una ci sono
le "categorie" della galleria fotografica, nell altro ci sono i nomi delle
fotografie associate al numero di una determinata categoria.
Lo script funziona egregiamente e quando si apre la pagina in una schermata
mostra dodici thumbinails delle 12 categorie. Ora purtroppo l'ordinameno che
sceglie č quello del nome della categoria ( o ordine alfabetico)  e io
invece vorrei che usasse coe ordinamento magari la data. come si fa?
riporto lo script al complleto
set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.ActiveConnection = MM_connDUgallery_STRING
rsCount.Source = "SELECT COUNT(*) AS PIC_COUNT, (SELECT COUNT(*) FROM
CATEGORIES) AS CAT_COUNT FROM PICTURES WHERE PIC_APPROVED = 1"
rsCount.CursorType = 0
rsCount.CursorLocation = 2
rsCount.LockType = 3
rsCount.Open()
rsCount_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -3
Dim HLooper1__index
HLooper1__index = 0
rsCat_numRows = rsCat_numRows + HLooper1__numRows
%>
<link rel="stylesheet" href="css/default.css" type="text/css">
<DIV CLASS = "LINKS">
  <table border="0" cellspacing="2" cellpadding="2" align="center">
    <tr class="generalTextBold">
      <td align="left" valign="top">
        <div align="center">Ci sono
<%=(rsCount.Fields.Item("PIC_COUNT").Value)%>
          fotografie in <%=(rsCount.Fields.Item("CAT_COUNT").Value)%>
album!</div>
      </td>
    </tr>
    <tr>
      <td align="left" valign="top">
        <table align="center">
          <%
startrw = 0
endrw = HLooper1__index
numberColumns = 3
numrows = -1
while((numrows <> 0) AND (Not rsCat.EOF))
 startrw = endrw + 1
 endrw = endrw + numberColumns
 %>
          <tr align="center" valign="top">
            <%
While ((startrw <= endrw) AND (Not rsCat.EOF))
%>
            <td>
              <table width="145" border="0" cellspacing="1" cellpadding="0"
bgcolor="#333333" height="120">
                <tr>
                  <td align="left" valign="top">
                    <table width="100%" border="3" cellspacing="0"
cellpadding="0" bgcolor="#CCCCCC" bordercolor="#CCCCCC">
                      <tr>
                        <td align="center" valign="middle">
                          <table border="0" cellspacing="1" cellpadding="0"
bgcolor="#000000">
                            <tr>
                              <td align="left" valign="top"><a
href="cat.asp?iCat=<%=(rsCat.Fields.Item("CAT_ID").Value)%>"><img
src="../../../db/coverland/photo/<%=(rsCat.Fields.Item("CAT_IMAGE").Value)%>
" alt = "<%=(rsCat.Fields.Item("CAT_NAME").Value)%>" width = "150" height =
"100" border="0" align="absmiddle"></a></td>
                            </tr>
                          </table>
                        </td>
                      </tr>
                      <tr class="generalTextBold">
                        <td align="center" valign="middle" height="2"><a
href="cat.asp?iCat=<%=(rsCat.Fields.Item("CAT_ID").Value)%>"><%=UCASE(rsCat.
Fields.Item("CAT_NAME").Value)%></a>&nbsp;<font
color="#666666">(<%=(rsCat.Fields.Item("PIC_COUNT").Value)%>)</font></td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
            </td>
            <%
 startrw = startrw + 1
 rsCat.MoveNext()
 Wend
 %>
          </tr>
          <%
 numrows=numrows-1
 Wend
 %>
        </table>
      </td>
    </tr>
grazie

Accidenti non riesco a trovare la stringa SQL dove crei il recordset
rsCAT... sono cecato??? :)
--
:: Fate i bravi e non clonate le pecore!
:: Distractly yours... 
man...@ufologia.net

SELECT *, (SELECT COUNT(*) FROM PICTURES WHERE PIC_APPROVED
= 1 AND PIC_CAT = CAT_ID) AS PIC_COUNT  FROM CATEGORIES ORDER BY CAT_NAME
Ecco qua.. invece di ORDER BY CAT_NAME metti ORDER BY CAMPO_DATA,CAT_NAME


:: Accidenti non riesco a trovare la stringa SQL dove crei il recordset
:: rsCAT... sono cecato??? :)
:: --
l'avevo omessa, scusa
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connDUgallery.asp" -->
<%
set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.ActiveConnection = MM_connDUgallery_STRING
rsCat.Source = "SELECT *, (SELECT COUNT(*) FROM PICTURES WHERE PIC_APPROVED
= 1 AND PIC_CAT = CAT_ID) AS PIC_COUNT  FROM CATEGORIES ORDER BY CAT_NAME"
rsCat.CursorType = 0
rsCat.CursorLocation = 2
rsCat.LockType = 3
rsCat.Open()
rsCat_numRows = 0
%>
<%
e qui continua esattamente nel post di prima

:: Ecco qua.. invece di ORDER BY CAT_NAME metti ORDER BY
:: CAMPO_DATA,CAT_NAME --
:::: Fate i bravi e non clonate le pecore!
:::: Distractly yours... 
man...@ufologia.net
grazie diecimila