B berntg Medlem sedan feb. 2001 87 inlägg Frågan 24 feb. 2002 20:33 #1 Har ett chatscript som jag vill modifiera, men inte lyckas riktigt.
Jag vill ha att senaste inlägget hamnar överst, men var i koden skriver jag det?
Vidare vill jag att allt äldre än ex. 2 timmar gammalt raderas.
Koden:
set RSMessages = conn.Execute("select ChatID, Message from Chat where " _
& "ChatID > " & Session("LastEntry"))
do until RSMessages.EOF
Session("Thread") = Session("Thread") & RSMessages("Message") & chr(13)
Session("LastEntry") = RSMessages("ChatID")
RSMessages.MoveNext
Loop
L LarsG Medlem sedan dec. 2000 12 464 inlägg set RSMessages = conn.Execute("select ChatID, Message from Chat where " _
& "ChatID > " & Session("LastEntry") & " order by ChatID desc")
B berntg Medlem sedan feb. 2001 87 inlägg Tack, men det gjorde ingen skillnad.
Jesper T Medlem sedan nov. 2001 7 144 inlägg databas.execute "delete from Chat where datediff('h',Date,now()) > 2",,128
Detta kanske du kan sätta innan selectsatsen för att ta bort de gamla inläggen. Vad gäller sorteringen så skall DESC sortera det senaste inlägget först och ASC åt det andra hållet. Har du tänkt att radera inlägg äldre än två timmar borde du ha en kolumn som heter datum eller så och då kan du ju sortera efter datum istället.
MVH Jesper T
:h
I Ivar Medlem sedan aug. 2002 218 inlägg Sortera efter Datum?
Hej!
Jag vill att senaste inlägget hamnar överst hur gör man?
Nuvarande kod:
<%
dim connect, classifieds, query, category
category = trim(request("category"))
if ("category") = "" then
Response.write "Ingen categori vald.<p>"
else
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
query = "select id,item,price,stad,datecreated from items "
query = query & "where category='" & category & "'"
set classifieds = connect.execute(query)
%>
<font size="4"><b>
<% if category="categori1" then %>
<% elseif category="categori2" then %>
<%=categori2%>
<% elseif category="categori3" then %>
<%=categori3%>
<% elseif category="categori4" then %>
<%=categori4%>
<% elseif category="categori5" then %>
<%=categori5%>
<% end if %>
</b></font>
<table border=0 bgcolor=#FFFFFF width=100% cellspacing=0 cellpadding=0 bordercolor=#FFFFFF align="center">
<tr bgcolor="#CCCCCC">
<th align=left width="35%">Föremål</th>
<th align=left width="18%">Pris</th>
<th align=left width="24%">Stad</th>
<th align=left width="23%">Datum</th
</tr>
<% do while not classifieds.EOF %>
<tr>
<td width="35%"> <a href=detail.asp?item=<%=classifieds("id")%>>
<%=classifieds("item")%></a></td>
<td width="18%"><%=classifieds("price")%></td>
<td width="24%"><%=classifieds("stad")%></td>
<td width="23%"><%=classifieds("datecreated")%></td>
</tr>
<% classifieds.movenext
loop
end if
%>
Jesper T Medlem sedan nov. 2001 7 144 inlägg Order by datum i din sql-sats kanske.
query = "select id,item,price,stad,datecreated from items "
query = query & "where category='" & category & "' Order by datum DESC"
förutsätter att du har en datumkolumn.
Använd [ kod ]-taggarna tack!