---
title: "Sista posten ska visa annorluna bild"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/123566-sista-posten-ska-visa-annorluna-bild/page3"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "wunderbaren"
published: "2005-03-02T11:10:09.000Z"
updated: "2005-03-07T14:07:12.000Z"
replies: 60
views: 1262
page: 3
pages: 4
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/123566-sista-posten-ska-visa-annorluna-bild"
---

# Sista posten ska visa annorluna bild

_Sida 3 av 4._

## #41 — wunderbaren, 2005-03-06T17:44Z

Hehe, nu visades inget!

Permalänk: https://www.webforum.nu/p/1566274

## #42 — @nders, 2005-03-06T18:14Z

Usch, vad fånigt. :)

Kan du skriva ut värdet i *lRecordCount* för att se vad det har för värde?

Permalänk: https://www.webforum.nu/p/1566286

## #43 — wunderbaren, 2005-03-06T18:29Z

Hur ska man göra då? :P

Permalänk: https://www.webforum.nu/p/1566294

## #44 — @nders, 2005-03-06T18:49Z

Tja, du kan ju prova att använda *Response.Write*, som du använder för att skriva ut saker din övriga kod. ;)

Permalänk: https://www.webforum.nu/p/1566301

## #45 — wunderbaren, 2005-03-06T18:52Z

Provade det, med denna kod, men inget skrevs ut.

Response.Write lRecordCount

Permalänk: https://www.webforum.nu/p/1566306

## #46 — @nders, 2005-03-06T18:56Z

Var skrev du den då?

Permalänk: https://www.webforum.nu/p/1566307

## #47 — wunderbaren, 2005-03-06T18:59Z

response.write intCounter & "-" & RecSet.RecordCount
    Response.Write lRecordCount

Och sen under också, men den visade ingen :S

Permalänk: https://www.webforum.nu/p/1566312

## #48 — @nders, 2005-03-06T19:01Z

Hmm, ok. Ett nytt försök:

```
sql = "Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn"

intCounter = 0

Set RecSet = conn.execute(sql)

if(RecSet.EOF) then
  Response.Write "Inga kategorier inlagda i kategorin " & Request.QueryString("kat")
else
  lRecordCount = Ubound(RecSet.GetRows(), 2)
  While Not RecSet.EOF
    set objRS = Conn.Execute("SELECT * FROM galleri WHERE namn = '" & RecSet("namn") & "'")
    set objPicture = Conn.Execute("SELECT * FROM bilder WHERE namn = '" & Request.Querystring("kat") & "' ORDER BY namn DESC LIMIT 1")

    if(intCounter < lRecordCount) then
      strPath = "files/icon_lines.gif"
    else
      strPath = "files/icon_lines2.gif"
    end if

    Response.Write "<img border=""0"" src=""files/icon_lines_empty.gif"" width=""17"" height=""20"" align=""absmiddle"">"
    Response.Write "<img border=""0"" src=""" & strPath & """ width=""17"" height=""20"" align=""absmiddle"">"
    Response.Write "<img border=""0"" src=""files/icon_folder.gif"" width=""16"" height=""15"" align=""absmiddle"">  "
    Response.Write "<a href=""./?page=galleri&kat=" & Request.QueryString("kat") & "&id=" & RecSet("namn") & """>" & RecSet("namn") & "</a><br>"
    
    intCounter = intCounter + 1
    RecSet.MoveNext
  Wend
end if
```

Permalänk: https://www.webforum.nu/p/1566317

## #49 — wunderbaren, 2005-03-06T19:03Z

Negativt svar :( ska säga att jag verkligen uppskattar hjälpen!!

Permalänk: https://www.webforum.nu/p/1566318

## #50 — @nders, 2005-03-06T19:07Z

Vad menar du? På vilket sätt fungerar det inte?

Permalänk: https://www.webforum.nu/p/1566320

## #51 — wunderbaren, 2005-03-06T19:09Z

Ja alltså att det inte skrivs up något..

Permalänk: https://www.webforum.nu/p/1566323

## #52 — @nders, 2005-03-06T19:11Z

Och inget felmeddelande? Du har inte *on error resume next* någonstans, hoppas jag?

Permalänk: https://www.webforum.nu/p/1566325

## #53 — wunderbaren, 2005-03-06T19:12Z

Nej, kopierade raKt av..

Permalänk: https://www.webforum.nu/p/1566328

## #54 — @nders, 2005-03-06T19:13Z

Och innan du lade till min GetRows-kod så skrev den ut saker?

Permalänk: https://www.webforum.nu/p/1566329

## #55 — wunderbaren, 2005-03-06T19:14Z

Ja, alltså den skrev ut något då ja.

Permalänk: https://www.webforum.nu/p/1566330

## #56 — @nders, 2005-03-06T19:16Z

Då fattar jag inte. Kan du klippa in precis hela sidan här, så ska jag fundera en extra gång...

Permalänk: https://www.webforum.nu/p/1566331

## #57 — wunderbaren, 2005-03-06T19:18Z

okej!

```
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=databas;USER=user;PASSWORD=password;OPTION=3;"

sql = "Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn"

intCounter = 0

Set RecSet = conn.execute(sql)

if(RecSet.EOF) then
  Response.Write "Inga kategorier inlagda i kategorin " & Request.QueryString("kat")
else
  lRecordCount = Ubound(RecSet.GetRows(), 2)
  While Not RecSet.EOF
    set objRS = Conn.Execute("SELECT * FROM galleri WHERE namn = '" & RecSet("namn") & "'")
    set objPicture = Conn.Execute("SELECT * FROM bilder WHERE namn = '" & Request.Querystring("kat") & "' ORDER BY namn DESC LIMIT 1")

    if(intCounter < lRecordCount) then
      strPath = "files/icon_lines.gif"
    else
      strPath = "files/icon_lines2.gif"
    end if

    Response.Write "<img border=""0"" src=""files/icon_lines_empty.gif"" width=""17"" height=""20"" align=""absmiddle"">"
    Response.Write "<img border=""0"" src=""" & strPath & """ width=""17"" height=""20"" align=""absmiddle"">"
    Response.Write "<img border=""0"" src=""files/icon_folder.gif"" width=""16"" height=""15"" align=""absmiddle"">  "
    Response.Write "<a href=""./?page=galleri&kat=" & Request.QueryString("kat") & "&id=" & RecSet("namn") & """>" & RecSet("namn") & "</a><br>"
    
    intCounter = intCounter + 1
    RecSet.MoveNext
  Wend
end if
%>
```

Permalänk: https://www.webforum.nu/p/1566333

## #58 — @nders, 2005-03-06T19:26Z

Hmm, frågan är om kanske recordsetet blir EOF när du kört GetRows. Prova att lägga till en movefirst direkt efter. Alltså:

```
else
  lRecordCount = Ubound(RecSet.GetRows(), 2)
  [b]RecSet.Movefirst[/b]
  While Not RecSet.EOF
```

mvh

Permalänk: https://www.webforum.nu/p/1566337

## #59 — wunderbaren, 2005-03-06T19:29Z

DET FUNKAR!!! :D

Tack, verkligen!! :birp  :birp

Permalänk: https://www.webforum.nu/p/1566343

## #60 — @nders, 2005-03-06T19:31Z

Weeee! :)

Permalänk: https://www.webforum.nu/p/1566346

---

Tråden på webben: https://www.webforum.nu/amne/asp/123566-sista-posten-ska-visa-annorluna-bild/page3  
Föregående sida: https://www.webforum.nu/amne/asp/123566-sista-posten-ska-visa-annorluna-bild/page2.md  
Nästa sida: https://www.webforum.nu/amne/asp/123566-sista-posten-ska-visa-annorluna-bild/page4.md