Antal besvarelser

Prøv at kalde:
select count(svar) as svar from mintabel ....

Jeg tror ikke helt du forstår mig (forståeligt nok)

Jeg prøver igen...
Min sql-streng returnere kun 1 værdi. Hvordan får jeg den værdi til at blive skrevet på skærmen? spurgte jeg dumt.

SELECT COUNT AS svar FROM MinTabel WHERE svar = "& rec("ID")

altså...
response.write SELECT COUNT AS svar FROM MinTabel WHERE svar = "& rec("ID")

???

nej vel?
men hvis man kunne det, var det det jeg ville! (o:

I min tabel er der felt -> svar ..
Er der også ID ..
Select count(svar) as antal from mintabel where id = " & rec("ID")
Så kan du bruge antal ..
Det er lidt svært, når man ikke kender din tabel.

Min tabel kan du se på http://www.grunden.dk/uis/tabel.gif

og her er min kode.


<%

    dbtabel = request.querystring("dbt")

    Set rec = Server.CreateObject("ADODB.Recordset") 

    set conn = server.createobject("ADODB.connection")

    conn.Open "DBQ=" & Server.Mappath("musik") & ";Driver={Microsoft Access Driver (*.mdb)}"

    SQL = "select * from " & dbtabel & " where svar = 0 order by ID DESC"

    rec.Open SQL, conn, 1, 3
%>


<%

aaben = request.form ("ulrikergod") 

if aaben = "jo" then

v_dato = FormatDateTime(NOW)
v_emne = request.Form ("bruger_emne")
v_brugernavn =  request.Form ("bruger_navn")
v_tekst =  Replace(request.form("bruger_tekst"), vbCrLf, "<br>")
v_tekst =  Replace(v_tekst, "'", "&#146;")
v_tekst =  Replace(v_tekst, "'", "&#146;")
v_brugernavn =  Replace(v_brugernavn, "<", "&#60;")
v_brugernavn =  Replace(v_brugernavn, "<", "&#60;")
v_emne =  Replace(v_emne, "'", "&#146;")
v_emne =  Replace(v_emne, "<", "&#60;")

if (v_brugernavn = "" or v_tekst = "" or v_emne = "") then
response.write "<script language='javascript'>" & VBCRLF 
response.write "alert ('Du skal udfylde alle boxene!')" & VBCRLF 
response.write "</script>" & VBCRLF 
end if

if NOT (v_brugernavn = "" or v_tekst = "" or v_emne = "") then

rec.AddNew 
rec.Fields("dato") = v_dato
rec.Fields("emne") = v_emne
rec.Fields("brugernavn") = v_brugernavn
rec.Fields("tekst") = v_tekst
rec.Fields("svar") = 0
rec.Update 
response.redirect ("kat_show.asp?dbt=" & dbtabel)

end if
end if

%>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="da">
<head>
<title>Generalt</title>
<META NAME="Description" CONTENT="">
<META NAME="Author" CONTENT="Ulrik Ishøj Søndergaard">
<META NAME="Keywords" CONTENT="">
<META NAME="Reply-to" CONTENT="gryn@grunden.dk">
<META NAME="Title" CONTENT="">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="styles.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<p class="hoved1">Forum > <%= dbtabel %></p>

<br>

<%   
'navigationssystemet

currentPage = request.queryString ("id")
If currentPage = "" then 
    currentPage = "1" 
End If 

pageSize = 50

Records = rec.RecordCount       

if NOT (Records = 0) then     
    rec.pageSize = pageSize
    rec.AbsolutePage = currentPage     
End If

pageNext = currentPage + 1
pagePrev = currentPage - 1
Pages = Records \ pageSize 
if Records mod pageSize then
Pages = Pages + 1
End If

%>

<p><font face="verdana, arial" size="1"><% if NOT pagePrev < 1 then %><a href=kat_show.asp?id=<% = pagePrev %>&dbt=<% = dbtabel %> id='boardlink'>Forrige</a> <% else %> Forrige <% End If %> | <%  While NOT pageNumber = Pages pageNumber = pageNumber + 1  %>  <% if CInt (pageNumber) = CInt (currentPage)  then %>  <% = pageNumber %> |  <% else %>  <a href=kat_show.asp?id=<% = pageNumber %>&dbt=<% = dbtabel %> id='boardlink'> <% = pageNumber %> </a> |  <% End If %>  <% Wend %>  <% if NOT pages < pageNext then %> <a href=kat_show.asp?id=<% = pageNext %>&dbt=<% = dbtabel %> id='boardlink'>Næste</a> <% else %> Næste <% End If %></font></p>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#000000">
<tr>
<td align="left" class="debat-top"><b>ID</b></td>
<td align="left" class="debat-top"><b>Brugernavn</b></td>
<td align="left" class="debat-top"><b>Emne</b></td>
<td align="left" class="debat-top"><b>Dato</b></td>
</tr>
<%

    if rec.eof then

        response.write "Der er ingen debatter i øjeblikket."

else

if NOT (CInt(Records) = 0) then  'if there are no records in the database it doesn't go on dysplaying then and only sais that there are no records 

Do While (Not rec.EOF) and (currentRecords < pageSize)  'runs through the records and dysplays them
currentRecords = currentRecords + 1  'counts currently dysplayed records


response.write "<tr><td class='debat-celle'>" & rec("ID") & "</td>"
response.write "<td class='debat-celle'>" & rec("brugernavn") & "</td>"
response.write "<td class='debat-celle'><a href='kat_show_debat.asp?spm=" & rec("ID") & "&dbt=" & dbtabel & "' class='kat-link'>" & rec("emne") & "</a></td>"
response.write "<td class='debat-celle'>" & rec("dato") & "</td>"
response.write "</tr>"
rec.movenext
loop

end if
end if
%>

</table>


<br>
<table cellpadding="2" cellspacing="0" border="0" width="100%">
<form action="kat_show.asp?dbt=<% = dbtabel %>" method="post">
    <input type="hidden" name="ulrikergod" value="jo">
<tr>
<td>    <font face="verdana, arial" size="1">Navn:</font> </td><td><input type="text" size="17" name="bruger_navn" value="">     <font face="verdana, arial" size="1">Emne:</font> <input type="text" size="17" name="bruger_emne" value=""></td>
</tr>
<tr><td>    <font face="verdana, arial" size="1">Besked:</font> </td><td><textarea cols="35" rows="6" name="bruger_tekst" value=""></textarea></td>
</tr><tr>
<td>&nbsp;</td><td><input type="submit" value="Skriv"> <input type="reset" value="Annuller">    <font face="verdana, arial" size="1"> <b>Samlede antal debatter <% = Records %></b></font></td>
<form>
</table>



<% 
rec.Close
Set rec = Nothing
conn.Close
Set conn = Nothing
%> 


</body>
</html>


i kan se det på http://www.grunden.dk/uis/musik/kat_show.asp?dbt=generalt

Jeg vil gerne have en kolonne i tabellen(html-tabellen), son skriver, hvor mange indlæg der er i den pågældende debat.

SELECT COUNT(SVAR) AS antalsvar FROM MinTabel WHERE svar = " & rec("ID")
..

så udskriver du resultatet med <%=antalsvar%>

-- xs

JA, det kommer jeg også frem til ..

takker!