Vis sidste nye indlæg ASP
Hejsa NG.Jeg er i gang med et forum.
Jeg har to tabeller
- forumoversigt
- kolonner
- overskrifter
- omtale
- indlaeg
- kolonner
- navn
- besked
- dato
- emne
- forumId
- reply
På forsiden af forummet vises "overskrifter" og "omtale" med følgende kode:
<%
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)
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
rs.Close
objConn.Close
%>
Antalkommentarer tæller indlæg hvor forumId er like id.
Nu vil jeg meget gerne have en kode der kan vise de sidste nye indlæg (emne) i tabellen "indlaeg".
Jeg har prøvet på mange forskellige måder, men har ikke kunnet finde én. Derfor har jeg fjernet den igen, i håb der er en venlig sjæl som kan skrive en ny kode ind i den nuværende kode, som viste de sidste nye emner i hvert fora.
Er det til at forstå?
