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