---
title: "Visa det senaste inlägget!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14177-visa-det-senaste-inlägget"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "graf"
published: "2002-02-03T21:02:00.000Z"
updated: "2002-02-03T21:57:00.000Z"
replies: 5
views: 198
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14177-visa-det-senaste-inlägget"
---

# Visa det senaste inlägget!

## #1 — graf, 2002-02-03T21:02Z

Hej!
Har ett forum men jag vill bara visa ett inlägg, det senaste alltså.
Hur gör jag då?

Såhär ser forum koden ut:

\<html\>

\</html\>

\<style\>
\<!--
a			{ text-decoration: none }
a:hover		{ color: #cococo; text-decoration: underline }
\--\>
\</style\> 

\<!-- #include file="adovbs.inc" --\>
\<html\>
\<head\>
\<title\>....\</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="#F5F5F5" 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"\> 
      \<p align="left"\>\<b\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"\>

      \<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="#CCCCCC"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<b\>
   \<A HREF="forum.asp"\>\<IMG SRC="uppd.jpg" border="0"\>\</A\>     \<A HREF="nyinlagg.asp"\>\<IMG SRC="skriv.jpg" border="0"\>\</A\>  
   \<A HREF="sok.asp"\>\<IMG SRC="sok.jpg" border="0"\>\</A\>\</B\> 
\<%
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("ANTALSVAR")%\>\] \<%=RecSet("NAMN")%\>  \</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\>
      

\</body\>
\</html\>
\</SELECT\>
\</FORM\>
\</FONT\>\</UL\>

Permalänk: https://www.webforum.nu/p/14177

## #2 — LarsG, 2002-02-03T21:25Z

Ersätt detta

```
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("ANTALSVAR")%>] <%=RecSet("NAMN")%> </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
```

med

```

if not recset.eof then %>
<tr> 
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
<a href="read.asp?ID=<%=RecSet("ID")%>" target="huvud"> 
<%=RecSet("RUBRIK")%></a> [<%=RecSet("ANTALSVAR")%>] <%=RecSet("NAMN")%> </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>
<%
end if
```

Permalänk: https://www.webforum.nu/p/309267

## #3 — graf, 2002-02-03T21:35Z

Stort tack!
Kul att du blev årets användare på webforum ;-)

Permalänk: https://www.webforum.nu/p/309268

## #4 — graf, 2002-02-03T21:40Z

hmm, om jag vill ha fler än 1 inlägg, t ex. de 5 senaste inläggen, vad ska jag ändra då? vet du det?
tack på förhand!

Permalänk: https://www.webforum.nu/p/309269

## #5 — LarsG, 2002-02-03T21:49Z

```
x=0
do until x = 5 or recset.eof
%>
<tr> 
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
<a href="read.asp?ID=<%=RecSet("ID")%>" target="huvud"> 
<%=RecSet("RUBRIK")%></a> [<%=RecSet("ANTALSVAR")%>] <%=RecSet("NAMN")%> </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
x = x + 1
loop
```

Permalänk: https://www.webforum.nu/p/309270

## #6 — graf, 2002-02-03T21:57Z

Tack!

Permalänk: https://www.webforum.nu/p/309271

---

Tråden på webben: https://www.webforum.nu/amne/asp/14177-visa-det-senaste-inlägget
