Semplice numerazione records

[jonnyl]

CIao ragazz,
vorrei inserire il NUMERO dei commenti presenti per ogni articolo del tipo Commenti(3)

faccio una connessione veloce al DB dei commenti
intid=rsOldnews("id")
set rsComment = connect.execute ("select commento,idarticolo from commenti WHERE idarticolo = " & intid &"")

so che non c'è tutta la string rsoldnews ma mi serve solo per associare i commenti con l'articolo, quindi non ve la riporto.

ora per stampare a video che ci sono 3 commenti per quell'articolo come si fa?

Response.Write(".............................") ???

Grazie in anticipo =)

[jonnyl]

allora ho provato con una select count cozi:

set rsComment = connect.execute ("SELECT COUNT(*) AS idarticolo from commenti WHERE idarticolo = " & intid &"")

poi per stampare il numero ho messo

<% =rsComment("idarticolo")%>


ma adesso mi riporta 2 commenti per ogni articolo quando invece ce ne sono 2 solo per quello in cima alla lista visualizzata.

cosa sbaglio

[jonnyl]

mannaggia ho setta pure il loop, adesso mi da 2 commenti per il primo articolo e zero per tutti gli altri, mentre il secondo ed il terzo ne hanno uno uff T_T

set rsOldnews = Server.CreateObject("ADODB.RecordSet")
rsOldnews.Open "select id, letto, rubrik, ingress, bild, link, bildtext, datum, visa, forfattare, eforfattare, nyheter from nyheter WHERE visa=1 order by datum desc",connect,1,3
intid=rsOldnews("id")
set rsComment = connect.execute ("SELECT COUNT(*) AS idarticolo from commenti WHERE idarticolo = " & intid &"")


If rsOldnews.EOF Then
 response.write "Non è stato trovato nulla che corrisponda alla sua ricerca !!"
 else

rsOldnews.PageSize = intAntal
rsOldnews.AbsolutePage = page
totpage=Cint(rsOldnews.PageCount)
alignment="right"
antal=0


do until rsoldnews.eof or antal = intantal


%> 

    <table width="95%" border="0" cellpadding="2" cellspacing="0" class="artcappello" style="border-collapse: collapse">
      <tr>
        <td width="100%">[img]articolo.gif[/img]</td>
      </tr>
</table>

<table width="95%" border="0" cellpadding="3" cellspacing="3" bordercolor="#000000" bgcolor="#000000"  style="border-collapse: collapse; background-color: #000000">
  <tr>
    <td valign="top" bgcolor="#000000" class="arttitolo" cellpadding="2"><a href ="leggi.asp?id=<% =rsOldnews("id")%>">
    [img]fade.gif[/img]:::.
    <% =rsOldnews("Rubrik") %>

     
    <font color="#FF6600">Leggi...</font></a></td>
  </tr>
  <tr bgcolor="#000000" class="artcorpo">
  <% if rsoldnews("ingress") >"" then %>
    <td colspan="2" valign="top"><font size="2" class="artcorpo">
      <% =rsOldnews("ingress") %>
      </font></td>
	<% else %>
	    <% end if %>
  </tr>
  <tr bgcolor="#333333" class="artcorpo">
    <td valign="top">
    <div align="right" >
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100%">
        <tr>
          <td width="50%"><font size="1">Pubblicato:
      <% =kaos_date("%D/%M/%Y", (rsOldnews("Datum"))) %>
        

          Autore: <a href="mailto:<%=rsOldnews("eforfattare")%>">
          
      <% =rsOldnews("Forfattare") %>
          </a> 
          </font></td>
		   <% If rsComment.EOF Then %>
<td width="50%">
          <p align="center">commenti (0)<a href="leggi_commenti.asp?idarticolo=
<% =rsoldnews ("id") %>"> 
[img]leggi.gif[/img]
</a>
">[img]scrivi.gif[/img]
</td>
  <% else %>
		  
		  
		  <% do until rsComment.eof %>
		  
          <td width="50%">
          <p align="center"> commenti (<% =rsComment("idarticolo")%>)
<a href="leggi_commenti.asp?idarticolo=<% =rsoldnews ("id") %>"> 
[img]leggi.gif[/img]
</a><a href="ins_commento.asp?idarticolo=<% =rsoldnews ("id") %>">
[img]scrivi.gif[/img]
</a>
</td>
        	<% rsComment.movenext
	loop 
	end if  %>
		</tr>
      </table>
    </div>    </td>
  </tr>
</table>
  </center>
</div>



      <font size="1" color="ffffff">
<%
	antal=antal+1
	rsOldnews.movenext
	loop

Response.Write "

<center>"
If Not Cint(Page)=1 Then %>
<a href="archivio.asp?page=<%= page - 1 %>&search=<%= srch %>">
<font color="#FFCC66">Pagina
precedente</font></a></font><font size="1" color="#FFCC66"> |
<% End If

For pag=1 to rsoldnews.PageCount
 If Cint(page)=Cint(pag) Then
     Response.Write pag
   Else
     Response.Write "<A href='archivio.asp?page=" & pag & "&search=" & srch
     Response.write "'>-" & pag & "-</A> "
   End If
Next

If Not Cint(Page)=totpage Then  %> 
| </font>
<font size="1" color="ffffff"><font color="#FFCC66">Pagina successiva</font><font size="1" color="#FFCC66">
<% End if
Response.Write "</center></P>"


rsOldnews.close
set rsoldnews = nothing
rsantal.close
set rsantal = nothing
rsComment.close
set rsComment = nothing
	
'********************************

End if%>

AIUTO

[optime]

rscomment(0)

[jonnyl]

ho messo rscomment(0) adesso mi da tutti i commenti uguali a zero

[jonnyl]

vabbo grazie ho risolto, bastava mettere la query all'interno del loop stupido me