categoria

[oric76]

ho fatto una sezione contenente delle notizie in un db, nella pagina
dove visualizzo le notizie vorrei creare un'altra area in cui visualizzo solo tutte le news(dello stesso db) appartenenti alla stessa categoia (ad exempio tutte le news appartenenti alla categoria libri)
qualcuno sa darmi una dritta

grazie

[Roby_72]

strSQL="SELECT * FROM news WHERE cat =" & idcat 'della tabella categoria

Roby

[oric76]

ok adesso ci provo...

[oric76]

allora nn mi funzìona mi da il seg err:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Il driver ODBC non supporta le proprietà richieste.

/lucerabynight.it/Copia di homepage.asp, line 44

::::::::::

strSQL="select * from elenco where categoria =" & id
-elenco (nome tabella db)
-categoria (campo tabella elenco)
-id (idem sopra)


dove ho sbagliato??

[Roby_72]

Stampati la query.

Roby

[Jupy64]

Originariamente inviato da oric76
allora nn mi funzìona mi da il seg err:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Il driver ODBC non supporta le proprietà richieste.

/lucerabynight.it/Copia di homepage.asp, line 44

::::::::::

strSQL="select * from elenco where categoria =" & id
-elenco (nome tabella db)
-categoria (campo tabella elenco)
-id (idem sopra)


dove ho sbagliato??

ma il campo "categoria" è testo o numerico? se è testo, "id" lo devi mettere tra apici

[oric76]

ok grazie per l'aiuto tutto risolto

[oric76]

purtroppo mi sono fatto prendere dall'euforia c'è ancora qualche errore
_________________ <%
rs.MoveNext
end if
Next
end if
end if



' liberiamo le risorse
rs.Close
Set rs = Nothing
cn.Close
set cn = Nothing
%>


<% Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("mdb-database/database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")



strSQL="select * from elenco where categoria =" & id
rs.Open strSQL,cn,1

if page="" then page=1


' ## in questo cxaso bisogna inserire i dati in tutti e due i campi di ricerca
'If sottocategoria="" or trim(sottocategoria)="%" Then
If categoria="id" Then
REsponse.Write("Nessun record.... prova a selezionare una categoria")

Else
TotalRecords = rs.RecordCount
If TotalRecords=0 then
Response.Write "<P align=center>Nessun record presente</P>"
Else
Response.Write "Attualmente sono presenti <font color=ff0000>" & TotalRecords & "</font> pubblicazioni "
%>


__________________________________________________ _________


<%
' paginazione
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
For i=1 to RecordsPerPagina
if Not rs.EOF then
%>

____________________________________________
___________________________________________

</td>
</tr>
</table>
</td>
<td width="270" valign="top" class="testo9bianco"><font color="#999999"><%=rs.fields("data")%> <font color="#FF0000">- <%=rs.fields("categoria")%> - <%=rs.fields("sottocategoria")%></font></font></td>
</tr>
<tr>
<td height="25" valign="top" class="testo11bianco">
<div align="justify"><font color="#FF0000">')" class="testo10biancolink"><%=LEFT(rs("nome"), 50)%></font></div></td>
</tr>
<tr>
<td height="5" colspan="3" align="center" valign="top" class="testo10bianco">[img]immagini/trat_bianco5-4.gif[/img]</td>
</tr>

__________________________________________________ ______



<%
rs.MoveNext
end if
Next
end if
end if



' liberiamo le risorse
rs.Close
Set rs = Nothing
cn.Close
set cn = Nothing
%>



questo e il codice che utilizzo che cavolo sto combinando... un aiuto per favore

[Roby_72]

Se ci dici l'errore e dove si presenta magari...

Roby

[oric76]

ok il problema l'ho risosolto però adesso vorrei che la stringa mi caricasse oltre alla categoria concerti anche la categoria dischi e non riescio a farlo, come poso fare?

ecco come faccio a caricare la categoria concerti

strSQL="select * from elenco where sottocategoria like 'concerti%' order by id desc"


grazie