ASP fejl?
Hejsa NG..Er der nogen der kan se en fejl i denne her kode. Det er koden Antalkommentarer den er gal med.
Koden giver ikke fejl som sådan, men den tæller ikke, og derfor står der 0 konstant.
<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../../db/anmeld.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect
strSQL = "SELECT TOP 5 * FROM anmeld ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)
'Udskriv top 5
placering = 1
do while (not rs.EOF)
Response.Write (" <td width='88' height='115' valign='center' align='center'><div id='boxanmeld'><br><a href='review.asp?id=" & rs("Id") & "'><img src='../pics/" & rs("pic") & "' height='70' width='55' border='0'></a><br>" & rs("titel"))
AntalKommentar=0
if isNumeric(ID) then
Set rs2=objConn.Execute("SELECT COUNT(*) FROM commentsanmeld where nyhedid=" & id)
AntalKommentar=rs2(0).Value
Response.Write "(<font color='#FF9C00'>" & AntalKommentar & "</font>)"
end if
Response.Write ("</div></td>")
placering = placering + 1
rs.MoveNext
loop
%>
