Chat max indlæg problematik

Du laver da bare en COUNT() funktion der heletiden tjekker at der ikker er mere end 10 records i din tabel!

fx.

strSQL = "SELECT ID, COUNT(Indlæg) AS CountIndlaeg FROM tblChat ORDER BY [ID] DESC"
Set objRs = objConn.Execute(strSQL)

If objRs("CountIndlaeg") > 10 Then
  objConn.Execute("DELETE * FROM tblChat WHERE ID > " & objRs("ID")
End If

//>Rune

Sorry...

strSQL = "SELECT ID, COUNT(Indlæg) AS CountIndlaeg FROM tblChat ORDER BY [ID] DESC"
Set objRs = objConn.Execute(strSQL)

If objRs("CountIndlaeg") > 10 Then
  objConn.Execute("DELETE * FROM tblChat WHERE ID > " & objRs("ID"))
End If

-manglede en slutparantes!

//>Rune

Hmm prøv lgie med denne:

strSQL = "SELECT COUNT(ID) AS CountIndlaeg FROM tblChat"
Set objRs = objConn.Execute(strSQL)

strSQL = "SELECT TOP 1 FROM tblChat"
Set objRsTop1 = objConn.Execute(strSQL)

If objRs("CountIndlaeg") > 10 Then
  objConn.Execute("DELETE * FROM tblChat WHERE ID > " & objRsTop1("ID"))
End If

//>Rune

Hov, min fejl..:

sådan

<%
    strSQL = "SELECT COUNT(ID) AS CountIndlaeg FROM tblChat"
    Set objRs = objConn.Execute(strSQL)

    strSQL = "SELECT TOP 1 FROM tblChat"
    Set objRsTop1 = objConn.Execute(strSQL)

    If objRs(0) > 10 Then
      objConn.Execute("DELETE * FROM tblChat WHERE ID > " & objRsTop1("ID"))
    End If
%>

//>Rune

Thx 4 Poinz

//>Rune

men det virkede ikke...

Hvis du eksvis kan vise ialt 18 linier i chat vinduet:
Så gemmer du max 18 public chat beskeder til dem som ikke får private beskeder for at fylde vinduet ud. Så skal du gemme 18 private beskeder pr person for en sikkerhedsskyld dog er man nød til at tjekke for hver om afsender/modtager har 18 beskeder ialt inden en besked slettes:


Efter indsættelse i databasen:



'Find antallet af public beskeder ved til = 'Alle'
SQL = "SELECT ID FROM beskeder WHERE til = 'Alle' ORDER BY ID DESC"
rs.Open SQL,Conn, 1,3

if Int(rs.RecordCount) >= 18 then
  rs.Move 17
  ID = rs("ID")
 
  SQL = "DELETE FROM beskeder WHERE ID < " & ID
  Conn.Execute(SQL)
end if
rs.Close

'Dette er at gentage det lidt men den slette så der max er 18 private beskeder
'ved den bruger som er logget ind Session("login") både til og fra
SQL = "SELECT ID, til, fra FROM beskeder WHERE til = '" & Session("login") & "' OR fra = '" & Session("login") & "' ORDER BY ID DESC"
rs.Open SQL,Conn, 1,3

if Int(rs.RecordCount) >= 18 then
  rs.Move 17

  delID = ""
  do while not rs.EOF
    if rs("til") = Session("login") then
      SQL = "SELECT Count(ID) as antal FROM beskeder WHERE (til = 'Alle' OR til = '" & rs("fra") & "' OR fra = '" & rs("fra") & "') AND ID > " & rs("id")
    else
      SQL = "SELECT Count(ID) as antal FROM beskeder WHERE (til = 'Alle' OR til = '" & rs("til") & "' OR fra = '" & rs("til") & "') AND ID > " & rs("id")
    end if
    Set temp = Conn.Execute(SQL)
    if Int(temp("antal")) >= 18 then
      delID = delID & "," & rs("id")
    end if
    rs.MoveNext
  loop
  if delID <> "" then
    delID = Mid(delID,2) 'Fjerner første ,
    SQL = "DELETE FROM beskeder WHERE ID IN (" & delID & ")"
    Conn.Execute(SQL)
  end if
end if

rs.Close
conn.Close

den siger fejl linje 8