Forum fejl!!!

<!--#include file="top.asp"-->

<table>
<tr>
<td height="20" background="images/overskrift.gif" style="font-size: 16" valign="top"><b>Forum<b></td>
</tr>
</table>

<%
if session("brugernavn") = "" then
  response.redirect("login.asp")
end if
%>

<table><tr valign=top><td><img src=images/forum/opret.gif border=1></td><td><a href='opret.asp' target='_self'><font size=4>Opret ny tråd</font></a><br><font face=verdana size=2>Hvis du ønsker at oprette dit eget spørgsmål, skal du klikke på ovenstående link. Husk at beskriv spørgsmålet så godt som muligt, og vælg den rigtige kategori. Overskriften skal være beskrivende, og ikke f.eks. 'HJÆÆÆÆLP'.</td></tr></table>
<br><blockquote><img src=http://www.fugleonline.dk/images/line.gif></blockquote>

<%
dim farve1
farve1 = "#3399FF"
dim farve2
farve2 = "#99CCFF"


' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("rendmigibiip.mdb")
Conn.Open DSN

'tæller indlæg
strSQL = "SELECT * FROM tråd"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

do

SQL_COUNT = "SELECT COUNT(*) AS ialt FROM forum WHERE svar_id = " & rs("id")
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs_COUNT = Conn.Execute(SQL_COUNT)

response.write "<table><tr><td width=330>&nbsp;Emne</td><td width=170>&nbsp;Kategori</td><td>&nbsp;Indlæg</td></tr>"

response.write "<tr><td><a href='spm.asp?id=" & rs("id") & "' target='_self'><font face=verdana size=4>" & rs("overskrift") & "</a>&nbsp;</td><td>" & rs("kategori") & "</td><td width=125>" & rs_COUNT("ialt") & "</td></tr></table>"


  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing

response.write "<blockquote><blockquote><blockquote><a href='logaf.asp' target='_self'>Log af!</a></blockquote></blockquote></blockquote></td></tr>"
%>

<!--#include file="bottom.asp"-->

Fordi

response.write "<table><tr><td width=330>&nbsp;Emne</td><td width=170>&nbsp;Kategori</td><td>&nbsp;Indlæg</td></tr>"

er inde i din Do/Loop

Men hvis jeg sætter den ud, komemr det til at se helt vildt underligt ud!

???

Ingen hjælp at hente?

Sådan her.
<%
dim farve1
farve1 = "#3399FF"
dim farve2
farve2 = "#99CCFF"


' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("rendmigibiip.mdb")
Conn.Open DSN

'tæller indlæg
strSQL = "SELECT * FROM tråd"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

response.write "<table><tr><td width=330>&nbsp;Emne</td><td width=170>&nbsp;Kategori</td><td>&nbsp;Indlæg</td></tr>"

do

SQL_COUNT = "SELECT COUNT(*) AS ialt FROM forum WHERE svar_id = " & rs("id")
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs_COUNT = Conn.Execute(SQL_COUNT)


response.write "<tr><td><a href='spm.asp?id=" & rs("id") & "' target='_self'><font face=verdana size=4>" & rs("overskrift") & "</a>&nbsp;</td><td>" & rs("kategori") & "</td><td width=125>" & rs_COUNT("ialt") & "</td></tr>"


  rs.MoveNext
Loop While Not rs.EOF
response.write "</table>"
Conn.Close
Set Conn = Nothing

response.write "<blockquote><blockquote><blockquote><a href='logaf.asp' target='_self'>Log af!</a></blockquote></blockquote></blockquote></td></tr>"
%>

svar

1000 tak!
/Lukket