Delete

strSQL = "SELECT COUNT(poster) AS postcount FROM tblpost WHERE uid = " & Request.QueryString("user") & " ORDER BY postid ASC"
objRS.Open strSQL, objCon

If objRS("postcount") => 5 Then
  i = 0
  Do Until objRS.EOF OR i = 6
    arrPost(i) = objRS("postid")
    i = i + 1
  Loop
  strSQL = "DELETE FROM tblpost WHERE uid = " & Request.QueryString("user") & " AND postid = " & LBound(arrPost)
  objCon.Execute(strSQL)

  strSQL = "INSERT INTO tblpost (post) VALUES ('" & Request.Form("post") & "')"
Else
  strSQL = "INSERT INTO tblpost (post) VALUES ('" & Request.Form("post") & "')"
End If

objCon.Execute(strSQL)
Response.Write("Posten är inlagd")

Det finns säkert många fel i koden eftersom jag inte kunnat testa

Tackar!

Skrivit såhär. FÖr man måste ju få med idnumret på nå sätt men då hittas inte pollId när man kör denna:

  Set RS=MemPoll.Execute("Select pollId,Count(*) As postcount From fraga Where userId=" & Session("sex_id"))
  If RS("postcount") => 5 Then
    i = 0
    Do Until RS.EOF OR i = 6
      arrPost(i) = RS("pollId")
    i = i + 1
    Loop
    MemPoll.Execute("Delete From fraga Where userId=" & Session("sex_id") & " And pollId=" & LBound(arrPost))
    MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  Else
    MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  End If
  Response.Redirect "minsida.asp?id=" & Request.QueryString("id")

Får du något felmeddelande?

Microsoft JET Database Engine error '80040e21'
You tried to execute a query that does not include the specified expression 'pollId' as part of an aggregate function.

/johnny/minsida.asp, line 286

Jag la till Group By i sql strängen å då funkade det.

  Set RS=MemPoll.Execute("Select pollId,Count(*) As postcount From fraga Where userId=" & Session("sex_id") & " GROUP BY pollId")
  If RS("postcount") => 5 Then
    i = 0
    Do Until RS.EOF OR i = 6
      arrPost(i) = RS("pollId")
    i = i + 1
    Loop
    MemPoll.Execute("Delete From fraga Where userId=" & Session("sex_id") & " And pollId=" & LBound(arrPost))
    MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  Else
    MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  End If
  Response.Redirect "minsida.asp?id=" & Request.QueryString("id")

Vad gör Group By då? Är inte så haj på SQL

Ingen aning men det funkade. Sökte å såg att man använder det ibland när man använder Count.

Det där kan inte fungera

 MemPoll.Execute("Delete From fraga Where userId=" & Session("sex_id") & " And pollId=" & LBound(arrPost))

LBound(arrPost) är alltid 0.

mempoll.execute "delete from fraga " & _
" where userid = " & session("sex_id") & _
" and pollId not in (select top 5 pollId from fraga " & _
" where userId = " & session("sex_id") & _
" order by pollid desc,userid) "

Jag såg att den inte radera nå. SÅ ditt funkar nog!

Ojdå! Glömde det arrPost(LBound(arrPost)) skulle det NOG vara

Skulle det bara vara detta kvar om jag använder ditt exempel Lars?

  MemPoll.Execute("Delete From fraga Where userid = " & session("sex_id") & " and pollId Not In (Select Top 5 pollId From fraga Where userId = " & session("sex_id") & " Order By pollid desc,userid)")
  MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  Response.Redirect "minsida.asp?id=" & Request.QueryString("id")

Jo.

Fick skriva Top 4 för annars så sparades 6 st i databasen. Vet du varför?