Asa Medlem sedan dec. 2001 1 860 inlägg Frågan 23 nov. 2002 19:13 #1 Har denna kod men verkar ej funka! Ska när man postar inlägg räkna antal inläggoch sen om man har ex 50 inlägg så ska man inte kunna posta fler! Hur gör jag?
Helst ska inlägg som är nr 50 raderas när nytt inlägg postas!
Är säkert enkelt men jag får ej till det! :(
<%Set Antal=Conn.Execute("Select Count(*) As Antal From gastbok Where id=" & GbId)
If Antal("antal") = 50 Then
Response.Redirect "gastbok.asp?id=" & GbId
Else
Spara til databasen.....
Response.Redirect "gastbok.asp?id=" & GbId
End If%>
L LarsG Medlem sedan dec. 2000 12 464 inlägg Deja vu
If cint(Antal("antal")) >= 50 Then
Asa Medlem sedan dec. 2001 1 860 inlägg Det gick iallafall å posta fler :(
Eitraz Medlem sedan sep. 2002 366 inlägg Skriv ut ditt antal en gång o kontrollera så den verkligen är över 50 eller om det är nåt fel på den ;)
-Eitraz
Asa Medlem sedan dec. 2001 1 860 inlägg Ja det är det! Jag testa med å ändra till 5 å det går å posta fler iallafall!
Asa Medlem sedan dec. 2001 1 860 inlägg Exakt kod ser ut så här:
<%GbId = Request.QueryString("id")
AnvId = Session("mem_id")
Anvnamn = Session("anvnamn")
Inlagg = Request.Form("inlagg")
Set Antal=Conn.Execute("Select Count(*) As Antal From gastbok Where id=" & GbId)
If cint(Antal("antal")) >= 5 Then
Response.Redirect "gastbok.asp?id=" & GbId
Else
Conn.Execute("Update users Set poang=poang+0.1 Where id=" & Session("mem_id"))
Conn.Execute("Insert Into gastbok(gbid,anvid,anvnamn,inlagg) Values(" & GbId & "," & AnvId & ",'" & Anvnamn & "','" & FixaTecken(Inlagg) & "')")
Response.Redirect "gastbok.asp?id=" & GbId
End If%>
Asa Medlem sedan dec. 2001 1 860 inlägg Haha! Fel namn på där jag räknar! Skulle vara:
Set Antal=Conn.Execute("Select Count(*) As Antal From gastbok Where gbid=" & GbId)
Tack för all hjälp!
Asa Medlem sedan dec. 2001 1 860 inlägg Men hur raderar man den gamlaste posten när man postar en ny?
L LarsG Medlem sedan dec. 2000 12 464 inlägg Gammal är äldst
delete from gb as f
where postDate in (select min(postDate) from gb
where gbid = f.gbid)
Frågan är inte riktigt standard men din dbms kanske godkänner den i alla fall.
Annars så går det att lösa med hjälp av en vy.
Asa Medlem sedan dec. 2001 1 860 inlägg Funkar superbra efter jag ändrat lite! Tackar LarsG :)
