marcone1973 ha scritto:
All'inizio di ogni ciclo devi verificare se il valore di date_online è diverso rispetto a quello del ciclo precedente (dopo il primo, naturalmente).
Se è diverso stampi la data e chiudi la tabella, se è uguale stampi una riga sempplice senza il date_online.
Potresti farmi un esempio più comcreto?
Sono un po di coccio e non sufficentemente esperto.
Io ho provato a fare ciò che mi hai detto ma non ho ottenuto risultati.
<%
' Apre la connessione al database
Set Con = Server.CreateObject( "ADODB.Connection" )
strCon="driver={Microsoft Access Driver (*.mdb)}; "
strCon=strCon & " DBQ=" & Server.MapPath("database/easywebcms.mdb")
Con.Open strCon
%>
<link href="text.css" rel="stylesheet" media="screen">
<body>
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr><UL>
<ul>
<td colspan="3" valign="bottom"><span class="categorie">
<% Set catRS = Server.CreateObject( "ADODB.Recordset" )
catRS.ActiveConnection = Con
sqlString = "SELECT DISTINCT date_online, title, page_id FROM archivio "
sqlString = sqlString & "WHERE parent_page_id=75 "
sqlString = sqlString & "ORDER BY date_online"
catRS.Open sqlString
%>
<% WHILE NOT catRS.EOF %>
<%=catRS( "date_online" )%>
<% IF catRS( "date_online" ) = catRS( "date_online" ) THEN %>
</b><a href='default.asp?=<%=Server.URLEncode( catRS( "page_id" ) )%>'><%=catRS( "title" )%></a>
<%response.write "<br>"%>
</span>
</ul>
<td width="7"></td>
</tr>
<tr height="5">
<td valign="bottom" width="45" height="5"></td>
<td width="8" height="5" valign="bottom"> </td>
<td width="118" height="5" valign="middle"><span class="categorie"><font color="red"><b>
<% ELSE %><%=catRS( "date_online" )%> </b><a href='default.asp?=<%=Server.URLEncode( catRS( "page_id" ) )%>'><%=catRS( "title" )%></a></font></span></td>
</tr><% END IF %></span>
</ul>
<tr>
<td colspan="3" valign="bottom"><%
catRS.MoveNext
WEND
%><% catRS.Close %>
Grazie mille
Modificato da grafichero il 29 maggio 2006 19.05 -
Modificato da grafichero il 29 maggio 2006 19.09 -
