select count

**mic3000** · 18-05-2007, 10:48

codice:

<%
Dim Conn 
Dim SQL
Dim RS

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/annunci.mdb") 
%>
<tr>
<td class="icona_categorie">[img]immagini/icona_casa.gif[/img]
</td>
<td class="testo_categorie"> )</br>
<a class="offro_cerco_categorie" href="visualizza_annunci_immobili.asp">Offro (
<%Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select COUNT(categoria) AS totaleRecord FROM annunci WHERE categoria = 'immobili' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_immobili.asp">Cerco(
<%Set rs = Server.CreateObject("ADODB.Recordset") SQL = "select COUNT(categoria) AS totaleRecord FROM annunci WHERE categoria = 'immobili' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
rs.Close
Set rs = Nothing%> )</a>
</td>
<td class="icona_categorie">[img]immagini/icona_lavoro.gif[/img]</td>
<td class="testo_categorie"> )</br>
 )</br>
 )
</td>
</tr>
</table>
<%
conn.Close 
Set conn = Nothing
%>

**mic3000** · 18-05-2007, 10:54

forse avevo fatto casini con copia incolla

codice:

<%
Dim Conn 
Dim SQL
Dim RS

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/annunci.mdb") 
%>
<tr>
<td class="icona_categorie">[img]immagini/icona_casa.gif[/img]
</td>
<td class="testo_categorie"><a class="link_categorie" href="visualizza_annunci_immobili.asp">Immobili (
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili'"
rs.Open SQL,conn
Response.Write(Rs("totaleRecord"))
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_immobili.asp">Offro (
<%Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_immobili.asp">Cerco(
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
rs.Close
Set rs = Nothing%> )</a>
</td>
<td class="icona_categorie">[img]immagini/icona_lavoro.gif[/img]</td>
<td class="testo_categorie"><a class="link_categorie" href="visualizza_annunci_lavoro.asp">Lavoro (
<%Set rs=Server.CreateObject ("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'lavoro'"
rs.Open SQL,conn
Response.Write(Rs("totaleRecord"))
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_lavoro.asp">Offro (
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'lavoro' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
Rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_lavoro.asp">Cerco (
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'lavoro' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
rs.Close
Set rs = Nothing%> )</a>
</td>
</tr>
</table>
<%
conn.Close 
Set conn = Nothing
%>

**optime** · 18-05-2007, 10:59

segna in rosso dove ti dà l'errore

**mic3000** · 18-05-2007, 11:05

codice:

<%
Dim Conn 
Dim SQL
Dim RS

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/annunci.mdb") 
%>
<tr>
<td class="icona_categorie">[img]immagini/icona_casa.gif[/img]
</td>
<td class="testo_categorie"><a class="link_categorie" href="visualizza_annunci_immobili.asp">Immobili (
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili'"
rs.Open SQL,conn
Response.Write(Rs("totaleRecord"))
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_immobili.asp">Offro (
<%Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if 
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_immobili.asp">Cerco(
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if 
rs.Close
Set rs = Nothing%> )</a>
</td>
<td class="icona_categorie">[img]immagini/icona_lavoro.gif[/img]</td>
<td class="testo_categorie"><a class="link_categorie" href="visualizza_annunci_lavoro.asp">Lavoro (
<%Set rs=Server.CreateObject ("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'lavoro'"
rs.Open SQL,conn
Response.Write(Rs("totaleRecord"))
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_lavoro.asp">Offro (
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'lavoro' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if 
Rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_lavoro.asp">Cerco (
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'lavoro' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if 
rs.Close
Set rs = Nothing%> )</a>
</td>
</tr>
</table>
<%
conn.Close 
Set conn = Nothing
%>

Anche se sinceramente nell'errore mi da

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/categorie.asp, line 0

**optime** · 18-05-2007, 11:15

qui non c'è controllo...

<%Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili'"
rs.Open SQL,conn
Response.Write(Rs("totaleRecord"))
rs.Close
Set rs = Nothing%>

correggi

**mic3000** · 18-05-2007, 11:19

qui deve visualizzarmi solo il totale offro+cerco...e sembra funzionare...devo mettere il controllo comunque??anche perchè se non ci sono annunci mi visualizza 0...

**optime** · 18-05-2007, 11:21

a logica, ogni volta che leggi un recordset dovresti assicurarti che ci sia dentro qualcosa...

**mic3000** · 18-05-2007, 11:23

ok ora metto il controllo, ma correggimi se sbaglio, non dovrebbe dipendere da quello l'errore

**mic3000** · 18-05-2007, 11:48

comunque

codice:

<%
Dim Conn 
Dim SQL
Dim RS

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/annunci.mdb") 
%>
<tr>
<td class="icona_categorie">[img]immagini/icona_casa.gif[/img]
</td>
<td class="testo_categorie"><a class="link_categorie" href="visualizza_annunci_immobili.asp">Immobili (
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili'"
rs.Open SQL,conn
Response.Write(Rs("totaleRecord"))
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_immobili.asp">Offro (
<%Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_immobili.asp">Cerco(
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'immobili' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
rs.Close
Set rs = Nothing%> )</a>
</td>
<td class="icona_categorie">[img]immagini/icona_lavoro.gif[/img]</td>
<td class="testo_categorie"><a class="link_categorie" href="visualizza_annunci_lavoro.asp">Lavoro (
<%Set rs=Server.CreateObject ("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'lavoro'"
rs.Open SQL,conn
Response.Write(Rs("totaleRecord"))
rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_lavoro.asp">Offro (
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'lavoro' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
Rs.Close
Set rs = Nothing%> )</a></br>
<a class="offro_cerco_categorie" href="visualizza_annunci_lavoro.asp">Cerco (
<%Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select COUNT(*) AS totaleRecord FROM annunci WHERE categoria = 'lavoro' GROUP BY modo"
rs.Open SQL,conn
If not rs.EOF then
Response.Write(Rs("totaleRecord"))
else
Response.Write("0")
end if
rs.Close
Set rs = Nothing%> )</a>
</td>
</tr>
</table>
<%
conn.Close 
Set conn = Nothing
%>

In questo modo se c'è un annuncio in offro e uno in vendo mi visualizza sempre 2 sia in totale sia in offro che in vendo...non mi visualizza offro(1) e vendo(1) come invece dovrebbe essere

Discussione: select count

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio