I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
grafichero
grafichero
il 26 maggio 2006 alle 19:46
38 messaggi dal 08 ottobre 2003
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, 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")%><a href="default3.asp?active_page_id=<%=id%>" target="_self"><span class="sottotitoloarancio"><%=link%></span></a><br>

</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
%>
RispondiQuoting
marcone1973
marcone1973
il 28 maggio 2006 alle 21:36
19 messaggi dal 23 settembre 2005
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.
RispondiQuoting
grafichero
grafichero
il 29 maggio 2006 alle 18:23
38 messaggi dal 08 ottobre 2003
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">&nbsp;</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 -
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.