Salve a tutti
ho un problema, dovrei realizzare un archivio che mi visualizzi dei titoli di notizia sotto forma di link incolonnati per data.
Per capirci come questi: http://www.agi.it/news.pl?id=agionline.esteri
Come si può notare in fondo alla pagina ci sono due tabelle con la data e le notizie ad essa legate + la paginazione avanti ed indietro per visualizzarne altre.
Io ho provato ad impostare il codice nel modo seguente ma così facendo non riesco a visualizzare le date una sola volta, nel senso che se ho due 26/05/2006 me la tira su e me la fa vedere due volte con la relativa notizia.
Io invece vorrei che la data vennisse su una sola volta e che si visualizzassero in maniera di link i titoli di notizia legati a quella data.
Il secondo codice invece mi mostra una sola data e tutti i titoli.
Dove sbaglio? oppure se è tutto errato quale codice può fare al caso mio?
<% Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/easywebcms.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT DISTINCT date_online, title, page_id FROM archivio order by date_online", conn
%></p>
</div>
<%while NOT RS.EOF
%>
<table border="0" cellpadding="0" cellspacing="0" width="577" height="26">
<tr>
<td width="577" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="576">
<tr height="10">
<td class="titoloarancio" bgcolor="#00cc99" height="10"><% Dim date_online
date_online=rs("date_online")
response.write(date_online)
%></td>
</tr>
<tr height="8">
<td class="titoloarancio" height="8"></td>
</tr>
<tr height="10">
<td class="titoloarancio" height="10">
<div align="left">
<div class="titoloarancio">
<p class="titoloarancio"><%id=rs("page_id")
link=rs("title")%><span class="sottotitoloarancio"><%=link%></span>
</div>
</div>
</td>
</tr>
<tr height="8">
<td height="8"></td>
</tr>
</table>
</td>
</tr>
</table>
<% RS.MoveNext
WEND
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>
<%
SET cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/easywebcms.mdb")
SET rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT DISTINCT date_online FROM archivio order by date_online;"
rs.Open strSQL, cn, 0, 1
if not rs.eof then
Dim date_online
date_online=rs("date_online")
response.write(date_online)
end if
rs.close
strSQL="SELECT title, page_id FROM archivio WHERE date_online = date_online ;"
rs.open strSQL, cn
while not rs.eof
Response.write "<tr><td>" & rs("title") & "</td></tr>"
rs.MoveNext
wend
rs.close
set rs=nothing
cn.close
set cn=nothing
%>
Rispondi quotando
