Hur ska jag göra så att man ser nummret på inlägget samtidigt som det är paging? Den buggar även grymt hårt o visar tex. bara 5 inlägg per sida när man kolla på ID > 0... =/
sql="select (select count(*) from kommentarer where kommentarer.anvID = " &intID& " and kommentarer.bildID=0 and kommentarer.festID=0 and kommentarer.borttaget = False) as antal, anv.anv, kommentarer.*, status.* from anv, kommentarer, status where kommentarer.anvID = " &intID& " and kommentarer.bildID=0 and kommentarer.festID=0 and kommentarer.borttaget = False and anv.anvID = kommentarer.avID and anv.status = status.ikonID order by datum desc"
Set objRS = Server.Createobject("Adodb.Recordset")
Dim intSida, intSidor
intSida = Request.QueryString("sida")
If intSida = "" Then intSida = 1
With objRS
.Cursorlocation = 3
.Open sql, objConnect
.Pagesize = 10
.Absolutepage = intSida
End With
intSidor = CInt(objRS.Pagecount)
intDenna = 0
intRaknare = (intSidor + 2)
While Not objRS.EoF and intDenna <= intSidor
intRaknare = (intRaknare - 1)
intDenna = (intDenna + 1)
strFarg = "#dae8ef"
If objRS("privat") = True Then strFarg = "#ffcccc"
Write "<tr ><td style=""border: 1px #ffffff solid; padding: 3px; background-color: " &strFarg& ";"" nowrap=""nowrap"" rowspan=""2"" align=""center"" valign=""top""><a href=""alkisarna.asp?anv=" &objRS("anv")& """><img src=""inc_ikoner/" &objRS("ikon_fil")& """ border=""0"" alt=""" &objRS("ikon_namn")& """ /><br />" &objRS("anv")& "</a></td><td style=""border: 1px #ffffff solid; padding: 1px; background-color: " &strFarg& ";"" valign=""top"">#" &intRaknare& " " &FormatDateTime(objRS("datum"),2)& " - " &FormatDateTime(plush(objRS("datum")),4)& " - <a href=""gb.asp?ID=" &objRS("avID")& """>Svara</a>"
If CInt(Session("ID")) = CInt(objRS("avID")) or CInt(Session("ID")) = intID or (intID = 0 and CInt(Session("Access")) <= 2) Then
Write " - <a href=""gb.asp?a=del&ID=" &intID& "&gbID=" &objRS("kommentarID")& """ onClick=""return confirm('Säker på att du vill ta bort kommentaren?')"">X</a>"
End If
Write "</td></tr><tr><td valign=""top"" style=""border: 1px #ffffff solid; padding: 3px;"">"
If Not objRS("privat") = True Then
delaText(objRS("kommentar"))
ElseIf objRS("privat") = True and CInt(Session("ID")) = CInt(intID) or CInt(Session("ID")) = CInt(objRS("avID")) Then
delaText(objRS("kommentar"))
Else
Write "<b>* Privat inlägg *</b>"
End If
Write "</td></tr>"
objRS.MoveNext
Wend
Vaför buggar pagesize? Den skriver bara ut 4 per sida...
Varför resulterar börjar min räknare på -1?!?!
hur ska man göra för att få fram rätt # på gb inlägget?
With objRS
.Cursorlocation = 3
.Open sql, objConnect
.Pagesize = 30
.Absolutepage = intSida
End With
intSidor = CInt(objRS.Pagecount)
intDenna = 0
intRaknare = intSidor
Sub navigering
If intSidor > 1 Then
Write "<tr><td colspan=""2"" align=""center"">"
If intSida > 1 Then
Write "<a href=""gb.asp?ID=" &intID& "&sida=" &(intSida - 1)& """><< Föregående</a>"
End If
If CInt(intSida) < CInt(intSidor) Then
Write " - <a href=""gb.asp?ID=" &intID& "&sida=" &intSida + 1& """>Nästa >></a>"
End If
Write "</td></tr>"
End If
End Sub
Call navigering
While Not objRS.EoF and intDenna <= intSidor
intRaknare = (intRaknare - 1)
intDenna = (intDenna + 1)
strFarg = "#dae8ef"
If objRS("privat") = True Then strFarg = "#ffcccc"
Write "<tr ><td style=""border: 1px #ffffff solid; padding: 3px; width: 0%; background-color: " &strFarg& ";"" nowrap=""nowrap"" rowspan=""2"" align=""center"" valign=""top""><a href=""alkisarna.asp?anv=" &objRS("anv")& """><img src=""inc_ikoner/" &objRS("ikon_fil")& """ border=""0"" alt=""" &objRS("ikon_namn")& """ /><br />" &objRS("anv")& "</a></td><td style=""border: 1px #ffffff solid; padding: 1px; background-color: " &strFarg& ";"" valign=""top"">#" &intRaknare& " " &FormatDateTime(objRS("datum"),2)& " - " &FormatDateTime(plush(objRS("datum")),4)& " - <a href=""gb.asp?ID=" &objRS("avID")& """>Svara</a>"
If CInt(Session("ID")) = CInt(objRS("avID")) or CInt(Session("ID")) = intID or (intID = 0 and CInt(Session("Access")) <= 2) Then
Write " - <a href=""gb.asp?a=del&ID=" &intID& "&gbID=" &objRS("kommentarID")& """ onClick=""return confirm('Säker på att du vill ta bort kommentaren?')"">X</a>"
End If
Write "</td></tr><tr><td valign=""top"" style=""border: 1px #ffffff solid; padding: 3px;"">"
If Not objRS("privat") = True Then
delaText(objRS("kommentar"))
ElseIf objRS("privat") = True and CInt(Session("ID")) = CInt(intID) or CInt(Session("ID")) = CInt(objRS("avID")) Then
delaText(objRS("kommentar"))
Else
Write "<b>* Privat inlägg *</b>"
End If
Write "</td></tr>"
objRS.MoveNext
Wend
Call navigering
Allså det buggar något otroligt... Sätter jag pagesize till 30 så visar den 3st. sätter jag till 10 så visar den 10 om man har ID = 0 annars visar den ca 8! blir inte klok på detta! Den verkar inte heller hämta ut alla poster eller nåt alls!
268 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
