Senaste inlägget först

de e väl bara att göra såhär:

SQL = "select * from forum where id="&Request.Querystring("forum_id") ORDER BY forum_id DESC"

order by gör att inlägget sorteras efter forum_id.
desc gör att den börjar nerifrån va?

------------------
nakoz
there is no such thing as sömn :)

[Redigerat av nakoz den 25 nov 2000]

Hmm ja det är så jag har testat men det vill sig inte....

den fråga som nakoz gav dig, som för övrigt är fel, borde ju hur som helst bara returnera ett svar, eftersom du har med villkoret att id ska vara något speciellt.

om det däremot är så att det är forumid som du ska ha i wheresatsen så borde en fungerande fråga se ut något sånt härnt:

SQL = "select * from forum where [b]forum_id[/b]= " & Request.Querystring("forum_id") & " ORDER BY [b]id[/b] DESC"

capisce?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
that's what brian boitano would do!</A>

haha, anders... nu känner jag mig lite orättvist behandlad... :)

glömde ju bara en dubbelfnutt och ett ochtecken (&)... men frågan i sig är ju inte fel i övrigt, beroende på vad Bj:s kolumner heter... jag ides inte kolla Vides forum... men Bj kanske hade bytt namn på dessa tabeller? :)

------------------
nakoz
there is no such thing as sömn :)

Jag har nog formulerat frågan lite fel och testar igen.

I Vides forum så gäller det sidan som visar ämnesrubrikerna i forumet. (forum.asp)

Där lägger sig de nystartade ämnena längst ner på sidan. Jag skulle vilja ha det senast startade ämnet högst upp.

Så här ser koden ut där man antagligen skall ändra.

Do While NOT RS2.EOF

SQL = "select \* from inlagg where forum_id="&Request.Querystring("id")
Set RS_inlagg = Databas.Execute(SQL)

SQL = "select count(\*) AS count_svar from inlagg where svar_id="&RS2("id")
Set RS_count_svar = Databas.Execute(SQL)

SQL = "select count(\*) AS datum_check from inlagg where svar_id="&RS2("id")
Set RS_datum_check = Databas.Execute(SQL)

If RS_datum_check("datum_check") \<\> 0 then

	SQL = "select datum from inlagg where svar_id="&RS2("id")
	SQL = SQL & " order by datum desc"
	Set RS_datum = Databas.Execute(SQL)

Else

	SQL = "select datum from inlagg where id="&RS2("id")
	SQL = SQL & " order by datum desc"
	Set RS_datum = Databas.Execute(SQL)

End If		
color=color+1

If color mod 2 = 0 then
	bgcolor=RS_format("bgcolor")
Else
	bgcolor=RS_format("bgcolor2")
End If

If Cint(Request.Querystring("str_id")) = Cint(RS2("id")) then
	SQL = "select \* from inlagg where svar_id="&RS2("id")
	Set RS_svar = Databas.Execute(SQL)
	%\>