Archivio per argomenti

**dpal** · 08-12-2004, 17:27

Grazie anche all’aiuto del Forum ho creato un DB con una serie di campi:
| ID | cod | area | titolo_1| Titolo | Data | Contenuto | nota |

Ho una pagina (archivio.asp) che interroga il DB e restituisce l’elenco di tutti i documenti inseriti indicando solo alcuni campi: titolo_1 – titolo – data

%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
Do While iRecordsShown < iPageSize And Not RS.EOF
%>
<tr>
<td width="2%">></td>
<td width="98%">"><%=RS("titolo_1")%>
<%=RS("titolo")%> [b] - <%=RS("data")%></td>
</tr>
<%

Poiché all’interno del DB sono inseriti documenti che appartengono ad aree diverse, è possibile modificare il codice per ottenere, come risultato, una pagina che contenga solo i documenti compresi in una certa area ? In pratica, vorrei otenere un archivio per argomento.

E’ possibile reperire in rete qualche motore di ricerca facilmente configurabile?

**Roby_72** · 08-12-2004, 18:26

Devi modificare la query che però nel tuo script non hai postato.

Roby

**dpal** · 08-12-2004, 20:31

Grazie!

Ma come imposto la query?
Potresti essere così gentile da inviarmi il codice

**Roby_72** · 08-12-2004, 20:33

La devi modificare... Vediamo quella che hai usato tu.

Roby

**dpal** · 08-12-2004, 21:09

Grazie per l'aiuto.
Ti posto il codice dell'intera pagina che restituisce tutto il contenuto del DB, senza restrizioni.

Credo di capire che è necessario inserire una query che restringa il campo dei risultati ma non so come impostare/inserire il codice.

<html>

<head>
<title>ARCHIVIO NEWS</title>
</head>

<body>

Archivio news

<%
' NUMERO DI NEWS PER PAGINA
iPageSize = 15

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RS = Server.CreateObject("ADODB.Recordset")

' FA LA RICHIESTA AL DATABASE
sql = "SELECT * FROM GIURIS ORDER BY " & strOrderBy & " DESC;"

RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize

RS.CacheSize = iPageSize

iPageCount = RS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' NESSUNA NEWS INSERITA -> VIENE VISUALIZZATO UN MESSAGGIO CHE INFORMA CHE NON E' PRESENTE
' NEMMENO UNA NEWS NEL DB
If iPageCount = 0 Then
%><hr>
Nessuna news presente!
<hr>
<%
Else

RS.AbsolutePage = iPageCurrent
iRecordsShown = 0

' SE INVECE SONO PRESENTI NEWS
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
Do While iRecordsShown < iPageSize And Not RS.EOF
%>
<tr>
<td width="2%">

<color="#000080">

<color="#000080">

</td>
<td width="98%">"><%=RS("titolo_1")%>
<%=RS("titolo")%> [b] - <%=RS("data")%></td>
</tr>
<%
' COMPLETA LA VISUALIZZAZIONE DEI TITOLI DELLE NEWS E CHIUDE LA CONNESSIONE
' AL DATABASE

iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
</table>
<%
End If

RS.Close
Set RS = Nothing
Conn.Close
%><center>
<%
' MOSTRA IL NUMERO DELLE PAGINE
' DATO CHE VERRANNO MOSTRATI
' IN QUESTO ESEMPIO 15 NEWS PER PAGINA

For x=1 to iPageCount
%>
[ <%=x%> ]
<%
next
%>

</body>

</html>

**Roby_72** · 08-12-2004, 21:48

Tu la query già la usi (e forse non lo sai...

). Devi solo modificarla filtrando l'area.

codice:

area = "area1"
sql = "SELECT * FROM GIURIS WHERE area = '"& area &"' ORDER BY " & strOrderBy & " DESC;"

Nell'ipotesi che il campo "area" sia di tipo testo.

Roby

**dpal** · 11-12-2004, 00:35

Scusa per il ritardo ma, purtroppo, sono stato fuori.

Grazie per l'info: provo e ti faccio sapere.

**dpal** · 12-12-2004, 18:55

Ciao, ho provato lo script; funziona tutto benissimo (almeno credo).

Grazie.

Discussione: Archivio per argomenti

Strumenti discussione

Ricerca discussione

Visualizza

Archivio per argomenti

Permessi di invio