Jag fick snabb hjälp med mitt paging-problem så sent som igår, men nu har jag självklart stött på ett nytt problem. Jag börjar ångra att jag lovade att hjälpa min svärfar med det här. Hoppas i alla fall att ni förstår min vimsiga förklaring.
När jag hämtar värden till min sql-sats med en querystring hämtad från en meny från sidan innan ser allt först ok ut, men när jag klickar på paging-länken för nästa post får jag ett felmeddelande (Type mismatch: 'Ubound'). Använder jag statiska värden i sql-satsen fungerar allt.
Jag har kollat att det är rätt värden som hämtas med querystringen.
arkiv = Request.QueryString("arkiv")
volym = Request.QueryString("volym")
Set oConn = ConnectDB()
sql = "SELECT * FROM tblBilder WHERE Arkiv = '" & arkiv & "' AND Volym = '" & volym & "' ORDER BY Id"
Set Rs = oConn.Execute(Sql)
If Rs.EOF Then
arrRs = ""
Else
arrRs = Rs.GetRows()
End If
PosterPerSida = 1
ForstaPosten = Request.QueryString("post")
If Len(ForstaPosten) = 0 Then
ForstaPosten = 0
Else
ForstaPosten = CInt(ForstaPosten)
End If
AntalPoster = Ubound(arrRs,2)
If AntalPoster >= (PosterPerSida + ForstaPosten) Then
SistaPosten = PosterPerSida + ForstaPosten - 1
Else
SistaPosten = AntalPoster
End If
If IsArray(arrRs) Then
If ForstaPosten > 0 Then
Response.Write("<a href=""sida1.asp?post=" & ForstaPosten-PosterPerSida & """>Föregående</a> ")
End If
If SistaPosten < AntalPoster Then
Response.Write("<a href=""sida1.asp?post=" & ForstaPosten+PosterPerSida & """>Nästa</a>")
End If
For i = ForstaPosten To SistaPosten
Response.Write("<p>" & arrRs(1,i) & " " & arrRs(2,i) & " " & arrRs(4,i) & "</p>")
Response.Write("<p><img src='bilder/" & arrRs(8,i) & "'></p>")
Next
Else
Response.Write("Arkivbilden saknas")
End If
Ha, ha, ha! Hur korkad får man vara? Tusen tack för din hjälp! Nu hoppas jag resten löser sig så svärfar blir nöjd. Annars kanske min julklapp brinner inne ;-)
253 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
