Visa det senaste inlägget!

ASP

5 svar · 187 visningar · startad av graf 3 feb. 2002

grafMedlem sedan aug. 2001174 inlägg

Frågan3 feb. 2002 21:02#1

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>

<html>
<head>
<title>....</title>
<style>

</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

  \<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>

LarsGMedlem sedan dec. 200012 464 inlägg

3 feb. 2002 21:25#2

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

------------------
essentitia preter non sans multiplicandum

grafMedlem sedan aug. 2001174 inlägg

3 feb. 2002 21:35#3

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

grafMedlem sedan aug. 2001174 inlägg

3 feb. 2002 21:40#4

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!

LarsGMedlem sedan dec. 200012 464 inlägg

3 feb. 2002 21:49#5

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

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 03 feb 2002]

grafMedlem sedan aug. 2001174 inlägg

3 feb. 2002 21:57#6

Tack!