Vis sidst nye indlæg ASP
Hejsa NG...Jeg håber godt nok der er én der kan læse mit lille problem:
Jeg poster koden nedenfor.
Ang. et forum.
Jeg har to tabeller.
1. forumoversigt
2. indlaeg
og i koden kan jeg sagtens koble på "forumsigt", og tælle antal indlæg fra indlaeg.
Men den samme kode som tæller fra den ene tabel, kan jeg ikke få til at vise sidste nye indlæg.
Nogen der kan hjælpe mig ud fra den forklaring?
<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("forum.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect
strSQL = "SELECT * FROM forumoversigt ORDER BY id"
Set rs = objConn.Execute(strSQL)
if rs.eof or rs.bof then
Response.write ""
else
Do While Not rs.EOF
id = rs("id")
overskrifter = rs("overskrifter")
omtale = rs("omtale")
%>
<tr>
<td class="tekstboks" height="5" width="45"> </td>
<td class="tekstboks"></td>
</tr>
<tr>
<td class="tekstboks" width="45"></td>
<td class="tekstboks3">
<strong><u><a href="forumtest.asp?mode=forum_topic&Id=<%=id%>"><%=overskrifter%></a></u></strong><br><%=omtale%><br><br></td>
<td class="tekstboks" width=10"> </td>
<td class="tekstboks2">Indlæg:
<%
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=objConn.Execute("SELECT COUNT(*) FROM indlaeg where forumid like " & ID)
AntalKommentarer=rs1(0).Value
Response.Write "" & AntalKommentarer & ""
end if
%>
<%
rs.movenext
loop
end if
%>
