webForumDet fria alternativet

Skriva ut antalet svar!

ASP

5 svar · 233 visningar · startad av k0ffe

Medlem sedan maj 2003352 inlägg
Frågan#1

Blev helt galet, någon som kan hjälpa mig?
Jag vill skriva ut antalet svar, brevid varje debatt-rubrik.
Svaren ligger i tabellen, debatt_svar.

 Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT (select count(*) from debatt) As AntalDebatt, *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM debatt order by DID desc"
RecSet.Open SQL, Connection, adOpenStatic, adLockOptimistic

response.write "<b>" & recset("AntalDebatt") & "</b>"
 %>
 
debatter

<%
while not recset.eof 
%>

<% response.write (" <br> &raquo; " & "<a href=""visa_debatt.asp?DID=" & recset("DID") & """>" & Recset("rubrik") & "</a>" ) %>

<%= FormatDateTime(recset("datum"),2) %>

SKRIVEN AV 
<%=RecSet("forfattare")%>

<%
recset.movenext
wend

set recset = nothing
%>
Medlem sedan maj 2003352 inlägg
#2

Ingen? Behöver hjälp!

Medlem sedan dec. 20003 887 inlägg
#3

En liten lösning, som inte är så himla snygg...

Set RecSet = Server.CreateObject("ADODB.Recordset")
Set objRSAnswer = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT (select count(*) from debatt) As AntalDebatt, *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM debatt order by DID desc"
RecSet.Open SQL, Connection, adOpenStatic, adLockOptimistic

Response.Write "<b>" & recset("AntalDebatt") & "</b><br><br>debatter</br></br>"

While Not RecSet.EOF 
  Response.write (" <br> » " & "<a href=""visa_debatt.asp?DID=" & RecSet("DID") & """>" & RecSet("rubrik") & "</a>" )
  Response.Write FormatDateTime(RecSet("datum"),2)
  Response.Write "SKRIVEN AV " & RecSet("forfattare")

  strSQL = "SELECT Count(*) FROM debatt_svar WHERE DID = " & RecSet("DID")
  objRSAnswer.Open strSQL, Connection, adOpenStatic, adLockOptimistic

  Response.Write "Antal svar: "

  If objRSAnswer.EOF Then
    Response.Write "0 st."
  Else
    Response.Write objRSAnswer(0) & " st."
  End If

  objRSAnswer.Close 

  RecSet.MoveNext
Wend

RecSet.Close
Set RecSet = Nothing
Set objRSAnswer = Nothing
%>

Eftersom jag inte vet hur debatt_svar är kopplat till debatt antog jag att det är via DID.

Du lär behöva snygga till utskrifterna också, men det är ju ett smärre problem. ;)

Medlem sedan maj 2003352 inlägg
#4

Funkar kalas, TACK!

Medlem sedan dec. 20003 887 inlägg
#5

Varsågod. Det var så lite så.

Medlem sedan juni 200032 967 inlägg
266 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
137 ms — deklarationer (db)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)
137 ms — ändringar (db)