webForumDet fria alternativet

Markera nytt inlägg

ASP

0 svar · 413 visningar · startad av Biasse

Medlem sedan aug. 2003480 inlägg
Frågan#1

Jag sparar topic info i en accessdatabas enligt följande när en användare läser en tråd. Skriver man ett svar så raderas alla poster med aktuell id (lastTopic) i tabellen last_topic.

Tabell: topic_last
lastTopic - huvud inläggets id
lastUser - id på den som läst
lastKat - inläggets kategori

Inläggen sparas i tabellen "forum_topic" där ett huvudämne har värde "topic_ref = 0". amnes id(topic_id) och kategori(topic_kat).

Står jag inne i en kategori och jämför om de olika inläggen är lästa fungerar följande utan problem:

<%
userID = Clng(Request.Cookies("userID"))
topic = Clng(newTopic("topic_id"))

Set inlaggLast = Connect.Execute("SELECT * FROM topic_last WHERE lastTopic="& topic &" AND lastUser="& userID &"")
%>
<td><%If NOT inlaggLast.EOF Then%><img src="no_new.gif"><%Else%><img src="new.gif"><%End If%></td>

Men på min index.asp där alla kategorier finns blev det genast svårare eftersom jag inte har nått givet "topic_id" från tabell "forum_topic". Jag har provat enligt följande men det vill inte hitta alla olästa poster som finns i de olika kategorierna:

<%
userID = Clng(Request.Cookies("userID"))

Set inlaggLast = Connect.Execute("SELECT * FROM forum_topic WHERE topic_kat = "& Clng(kat("kat_id")) &" AND topic_ref = 0")
Do Until inlaggLast.EOF
topic = Clng(inlaggLast("topic_id"))
inlaggLast.MoveNext
Loop
inlaggLast.Close : Set inlaggLast = Nothing
 
Set inlaggLast2 = Connect.Execute("SELECT * FROM topic_last WHERE lastUser = "& userID &" AND lastTopic = "& topic &" AND lastKat = "& Clng(kat("kat_id")) &"")
%>
<td><%If NOT inlaggLast2.EOF Then%><img src="no_new.gif"><%Else%><img src="new.gif"><%End If%></td>

Tycker jag har provat allt men får inte detta att fungera som det ska :q

256 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)