Det virker stadig ikke.. Min kode ser således ud:
<%
Dim selectnewskat
Dim newskat
Dim antalnews
If Request.Cookies("user")("antalnews") = 0 then
antalnews = 5
else
antalnews = Request.Cookies("user")("antalnews")
End if
countSQL = "SELECT Count(news_id) as antal FROM kommentar Left outer JOIN news ON kommentar.news_id = news.id group by kommentar.news_id"
Set countRs = Conn.Execute(countSQL)
If countRs("antal") = "" then
countRs("antal") = "Ingen"
End if
selectnewskat = Request.QueryString("newskat")
if selectnewskat = "pct" then
sql ="Select * from news,kommentar where newskat in ('pct','alle') order by dato desc Limit 0,"& antalnews & ""
elseif selectnewskat = "lasercut" then
sql ="Select * from news,kommentar where newskat in ('lasercut','alle') order by dato desc Limit 0,"& antalnews & ""
else
sql ="Select * from news,kommentar order by dato desc Limit 0,"& antalnews & ""
End if
Set rs = Conn.Execute(sql)
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="../images/smalltable_03.jpg" width="15" height="19"></td>
<td width="100%" bgcolor="#C7C8D6" align="right"><a href="news/opret_nyhed.asp" target="_self">Opret nyhed</a> - <a href="?newskat=alle" target="_self">Alle
nyheder</a> - <a href="?newskat=pct" target="_self">pct</a> - <a href="?newskat=lasercut" target="_self">Lasercut</a></td>
<td><img src="../images/smalltable_05.jpg" width="15" height="19"></td>
</tr>
<%
intCount = 0
Do While not rs.EOF and countRs.EOF
If intCount = 0 Then
strColor = "#ffffff"
intCount = 1
ElseIf intCount = 1 Then
strColor = "#E7E7F1"
intCount = 0
End If
inputStr = rs("indhold")
MAX_WORD_COUNT = 200
wordCount = 0
newArr = split(inputStr," ")
outputStr = ""
do while (wordCount < UBOUND(newArr)) AND (wordCount < MAX_WORD_COUNT)
outputStr = outputStr & newArr(wordCount) & " "
wordCount = wordCount + 1
loop
%>
<tr>
<td width=15 colspan=0 class=tableleft rowspan=0> </td><td rowspan=0 bgcolor="<%=strColor%>"><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td width=450><div class="overskrift_table"><%= rs("overskrift") %></div><div class=brodtekst><%= outputStr %>...<br><br><a href="news/visnyhed.asp?id="<%= rs("id") %>" target="_self">Læs hele tråden...</a></div><br></td><td valign="bottom"><a href="news/visnyhed.asp?id="<%=rs("id")%>"><div class="brodtekst2"><%= countRs %> kommentarer</a><br>Oprettet af: "<%= rs("initialer") %> d.<%= rs("dato") %> Kategori: <%= rs("newskat") %></td></tr></table>
</div></td>
<td width=15 colspan=0 class=tableright rowspan=0> </td></tr>
<%
countRs.MoveNext()
loop
rs.MoveNext()
loop
%>
<tr>
<td class="tableleft"> </td>
<td> </td>
<td class="tableright"> </td>
</tr>
<tr>
<td height="7" bgcolor="#C7C8D6"></td>
<td height="7" bgcolor="#C7C8D6"></td>
<td height="7" bgcolor="#C7C8D6"></td>
</tr>
</table>
Den vil stadig ikke udskrive de nyheder som ikke har tilknyttet en kommentar. Håber du har lyst til lige at kigge det igennem :)
