Hej hopp!

Jag håller på att göra ett webforum, med

Datum Namn Rubrik Svar
2002-01-03 Adam Pannkakor 2
2002-01-03 Bertil Bröd 3
2002-01-03 Casandra Kakor 1


I svar skall det anges hur många svar det finns till varje inlägg. För varje svar finns det i Acessdatabasen en cell i fältet SvarsID som hänvisar till orginalmedellandet, tex så anges alla inlägg som svarar på ett visst inlägg med tex "22"(om ID är 22 för orginalinlägget). Jag har fått allt att fungera utom just att visa hur många svar(dvs hur många celler ID=SvarsID det finns i fältet SvarsID) det finns för varje inlägg. Nu visas ingenting där det borde stå antal svar. Så förmodligen är det något fel på denna rad:

<% SQL = " SELECT COUNT(*) AS Antalsvar FROM inlagg WHERE SvarsID = RecSet("ID") "

Tack på förhand.

Mvh Klas


Hela kodbiten:

<table border="1" cellpadding="0" cellspacing="0">

<tr>
<td width="80">Datum</td>
<td width="100">Namn</td>
<td width="100">Rubrik</td>
<td width="40">Svar</td>
</tr>


<h6>
<%Do While Not RecSet.EOF %>

<tr>


<% SQL = " SELECT COUNT(*) AS antalsvar FROM inlagg WHERE SvarsID = RecSet("ID") "
RecSet.Open SQL, Databas, adOpenStatic, adLockOptimistic %>

<td width="80"><% =RecSet("Datum")%></td>
<td width="100"><% =RecSet("Namn")%></a></td>
<td width="100">')">
<% =RecSet("Rubrik") %></td>
<td width="40"><% = RecSet("antalsvar") %></a></td>

</tr>

<% RecSet.MoveNext %>
<% Loop %>

</table>

Ni är snälla :-)

Ska prova sen ikväll om jag får det att fungera.

Mvh Klas

Hur ser sql koden för RecSet ut???

Hej hopp!

Här är den.

(Menar du detta eller missförstår jag dig nu?)

Mvh Klas


<%Hamta = "SELECT * FROM inlagg WHERE SvarsID = " & Request.QueryString("id") & " "

RecSet.Open Hamta, Databas, adOpenStatic, adLockOptimistic %>

Hej!

Nu har jag nästan fått det att fungera, med detta så får jag siffror i svarskolumnen, dock samma hela tiden då ID inte räknas upp, när jag lägger det inne i loppen, vill det sig inte riktigt.

Mvh Klas

<%

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

SQL = "SELECT COUNT(*) AS antalsvar FROM inlagg WHERE SvarsID = " & RecSet("ID")
RecSet2.Open SQL, Databas, adOpenStatic, adLockOptimistic

%>

<h6>
<%Do While Not RecSet.EOF %>

<tr>

<td width="80"><% =RecSet("Datum")%></td>
<td width="200"><% =RecSet("Namn")%></a></td>
<td width="300">')">
<% =RecSet("Rubrik") %></td>

<td width="42"><% = RecSet2("antalsvar") %></a></td>



</tr>

<% RecSet.MoveNext %>
<% Loop %>

<code>
Set RecSet2 = Server.CreateObject("ADODB.Recordset")

<h6>
<%Do While Not RecSet.EOF
SQL = "SELECT COUNT(*) AS antalsvar FROM inlagg WHERE SvarsID = " & RecSet("ID")
RecSet2.Open SQL, Databas, adOpenStatic, adLockOptimistic
%>

<tr>

<td width="80"><% =RecSet("Datum")%></td>
<td width="200"><% =RecSet("Namn")%></a></td>
<td width="300">')">
<% =RecSet("Rubrik") %></td>

<td width="42"><% = RecSet2("antalsvar") %></a></td>



</tr>

<%RecSet2.Close
RecSet.MoveNext %>
<% Loop %>
</code>

Där har du koden...
Det ska fungera med den, men jag skulle nästan vilja tipsa om att skriva om den lite...
Använd Response.Write för att skriva ut alla taggarna etc...
Blir mycket renare kod när man ska blanda in en massa asp mitt i allt ;)

<code>
Set RecSet2 = Server.CreateObject("ADODB.Recordset")

Response.Write "<h6>"

Do While Not RecSet.EOF
SQL = "SELECT COUNT(*) AS antalsvar FROM inlagg WHERE SvarsID = " & RecSet("ID")
RecSet2.Open SQL, Databas, adOpenStatic, adLockOptimistic

Response.Write "<tr>"
Response.Write "<td width=""80"">" & RecSet("Datum") & "</td>"
Response.Write "<td width=""200"">" & RecSet("Namn") & "</a></td>"
Response.Write "<td width=""300"">" & RecSet("Rubrik") & "</td>"
Response.Write "<td width=""42"">" & RecSet2("antalsvar") & "</a></td>"
Response.Write "</tr>"

RecSet2.Close
RecSet.MoveNext
Loop
</code>

MvH Thomas

Hej!

Jag vill passa på att tacka er som hjälpt mig, om ni vill se forumet, så kan ni kolla på

http://www25.brinkster.com/receptsidan/

(under Forum, så klart ;-)

Mvh Klas

Bra att du fick igång den!
Tog en titt på den och den ser ju bra ut =)
Designen kanske har lite för stora bokstäver för min smak, men tekniken fungerade bra...

Lycka till i fortsättningen!

MvH Thomas

Hehe, det är fler som sagt det om stora bokstäverna, typsnittet mm så de blir nog mindre på sikt när jag får lust att leka mer med utseendet än det funktionella.

Mvh Klas

Jo, det blir nog bra skulle jag tro =)
När man lär sig tekniken börjar man komma på hur man ska göra med utseendet...

Men men, lycka till igen!
Och om du får problem så är det ju bara att fråga...
Finns nog alltid någon här som kan hjälpa till ;)

MvH Thomas