Nu har jag inte läst din kod men pricipen går ju ut på att du i din databas har ett fält där tidpunkten står. I mitt fall så gjorde jag så att när man skrev ett nytt inlägg så uppdaterade man ett fält i "huvudinlägget" som hette typ "Senaste" och sedan checkar man bara mot det fältet sedan...
Trådstart#1
Tjena, jag har nu att de senaste skrivna inläggen står längst upp på sidan med inläggsrubrikerna.
Men om jag vill ha de senaste kommenterade inläggen längst upp på sidan, vad ändrar jag då?
Såhär ser koden ut för forumet:
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>Forum</title>
<style>
<!--
a { text-decoration: none }
a:hover { color: #cococo; text-decoration: underline }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FEE1D2" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" border="0" cellspacing="0" cellpadding="2" height="100%" align="center">
<tr>
<td valign="top">
</SELECT>
</FORM></font></b></p>
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#DCDCDC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">[<A HRef="forum.asp">Uppdatera</A>] [<a href="nyinlagg.asp">Skriv inlägg</a>] [<A HREF="sok.asp" target="huvud">Sök</A>] </font></td>
\</td\>
\</tr\>
\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/forum.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From asp WHERE REF_ID = 0 ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
X=0
DO UNTIL X=25 OR RecSet.EOF ' <-- Här visar vi bara de 25 senaste trådarna
nytt = "no"
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Addera2 = "Select DATUM From asp WHERE REF_ID = " &RecSet("ID")
RecSet2.Open Addera2, Connect, adOpenStatic, adLockOptimistic
DO UNTIL RecSet2.EOF OR nytt = "yes"
IF RecSet2("DATUM") \> NOW - 1 THEN
nytt = "yes"
END IF
RecSet2.MOVENEXT
LOOP
RecSet2.CLOSE
%>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<a href="read.asp?ID=<%=RecSet("ID")%>" target="huvud">
<% IF nytt = "yes" THEN %>
\<% END IF %\>\<li\>
\<%=RecSet("RUBRIK")%\>\</a\> \<%=RecSet("NAMN")%\> \[\<%=RecSet("ANTALSVAR")%\>\]\</font\>\</td\>
\<td width="130"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>
\</font\>\</td\>
\<td width="125"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>
</tr>
<%
RecSet.MOVENEXT
LOOP
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
</table>
<hr size="1" width="50%" align="left">
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font><br>
<b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000">
<%
IF Session("fel") <> "" THEN
Response.WRITE Session("fel")
Session("fel") = ""
END IF
%>
</font></b><br>
</p>
</div>
