Problemet är om man ska kolla i ett forum så lista sej alla topics som är i just det forumet och så står det vem som svarade sist
MEN! den markera inte den som svarade sist utan den som gjorde den senaste topicen i forumet :(
Behöver lite hjälp så att jag slipper jobba på min födelsedag :)
hmm.. kanske.. men om man tar order by date.. så sortera den inte efter datum.. utan fortfarande tal.. så om vi posta en kl 14:20 och en 15:10 så kommer 14:20 före tror jag...
en rolig funktion testa att ändra style=1 till 2 eller 3 :)
SQL = "SELECT datum FROM topics WHERE id=" & RS2("id") &" OR svar_id=" & RS2("id") & " ORDER BY svar_id DESC"
'SQL = "select datum from topics where svar_id="&RS2("id")
SQL = SQL & " order by datum desc"
Set RS_datum = Databas.Execute(SQL)
SQL = "select skribent from topics where forum_id = " & RS2("id") &" order by datum DESC"
Set RS_skribent = Databas.Execute(SQL)
Else
SQL = "select datum from topics where id="&RS2("id")
SQL = SQL & " order by datum desc"
Set RS_datum = Databas.Execute(SQL)
SQL = "select skribent from topics where forum_id = " & RS2("id") &" order by datum DESC"
Set RS_skribent = Databas.Execute(SQL)
End If
SQL = "select \* from topics where forum_id="&Request.Querystring("id")
Set RS_inlagg = Databas.Execute(SQL)
SQL = "select count(\*) AS count_svar from topics where svar_id="&RS2("id")
Set RS_count_svar = Databas.Execute(SQL)
SQL = "select count(\*) AS datum_check from topics where svar_id="&RS2("id")
Set RS_datum_check = Databas.Execute(SQL)
If RS_datum_check("datum_check") \<\> 0 then
SQL = "SELECT datum FROM topics WHERE id=" & RS2("id") &" OR svar_id=" & RS2("id")
SQL = SQL & " order by datum desc"
Set RS_datum = Databas.Execute(SQL)
SQL = "select skribent from topics where forum_id = " & RS2("id") &" order by datum DESC"
Set RS_skribent = Databas.Execute(SQL)
Else
SQL = "select datum from topics where id="&RS2("id")
SQL = SQL & " order by datum desc"
Set RS_datum = Databas.Execute(SQL)
SQL = "select skribent from topics where forum_id = " & RS2("id") &" order by datum DESC"
Set RS_skribent = Databas.Execute(SQL)
End If
SQL = "SELECT \* FROM topics WHERE id=" & RS("id") &" OR svar_id=" & RS2("id") & " ORDER BY svar_id DESC"
Set RS_senastetest = Databas.Execute(SQL)
Nu har jag fått det att fungera med datum saken.. men jag får inte ut "Senaste svar av: " saken! argh!
<%
SQL = "select skribent from topics WHERE id=" & RS("id") &" OR svar_id=" & RS2("id") & " order by datum DESC"
Set RS_skribent = Databas.Execute(SQL)
%>
<b>Senaste svar av: <%=RS_skribent("skribent")%></b>
Error Type:
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/voigtan/voigt/forum/forum2.asp
<%
SQL = "select skribent from topics WHERE id=" & RS("id") &" OR svar_id=" & RS2("id") & " order by datum DESC"
'Set RS_skribent = Databas.Execute(SQL)
typ.. nu är error för att det finns inget svar... så jag skrev så här:
<%
SQL = "select skribent from topics WHERE forum_id=" & RS("id") &" and svar_id=" & RS2("id")
SQL = SQL & " order by datum desc"
Set RS_skribent = Databas.Execute(SQL)
%>
<%
if RS_skribent("skribent") <> "" then
response.write RS_skribent("skribent")
else
response.write ""
end if
%>