---
title: "Skriva ut antalet svar!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/97810-skriva-ut-antalet-svar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "k0ffe"
published: "2004-02-20T15:26:25.000Z"
updated: "2004-02-20T17:19:11.000Z"
replies: 5
views: 240
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/97810-skriva-ut-antalet-svar"
---

# Skriva ut antalet svar!

## #1 — k0ffe, 2004-02-20T15:26Z

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
%>
```

Permalänk: https://www.webforum.nu/p/97810

## #2 — k0ffe, 2004-02-20T16:34Z

Ingen? Behöver hjälp!

Permalänk: https://www.webforum.nu/p/1280617

## #3 — Engine^, 2004-02-20T16:56Z

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. ;)

Permalänk: https://www.webforum.nu/p/1280625

## #4 — k0ffe, 2004-02-20T17:14Z

Funkar kalas, TACK!

Permalänk: https://www.webforum.nu/p/1280632

## #5 — Engine^, 2004-02-20T17:16Z

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

Permalänk: https://www.webforum.nu/p/1280634

## #6 — @nders, 2004-02-20T17:19Z

k0ffe: <http://www.webforum.nu/misc.php?s=&action=faq&page=2#status>

Permalänk: https://www.webforum.nu/p/1280636

---

Tråden på webben: https://www.webforum.nu/amne/asp/97810-skriva-ut-antalet-svar