Problem med QueryString

Hej!

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

Hur bygger du upp dina bläddringslänkar?

Här kommer resten av koden:

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

Du måste skicka med arkiv och volym i bläddringslänkarna också - de behövs till SQL-frågan.

If ForstaPosten > 0 Then
Response.Write("<a href=""sida1.asp?post=" & ForstaPosten-PosterPerSida & "&arkiv=" & Request.QueryString("arkiv") & "&volym=" & Request.QueryString("volym") & """>Föregående</a> ")
End If

If SistaPosten < AntalPoster Then
Response.Write("<a href=""sida1.asp?post=" & ForstaPosten+PosterPerSida & "&arkiv=" & Request.QueryString("arkiv") & "&volym=" & Request.QueryString("volym") & """>Nästa</a>")
End If

Mvh

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 ;-)