Sista posten ska visa annorluna bild

Antingen genom att loopa ut posterna med for ... next eller så använder du en räknare. I båda fallen kollar du räknaren om den är lika med RecSet.RecordCount och då byter du sökväg till bilden.

Kan du visa kod? :)

Jodå...

<%
intCounter = 0

While Not RecSet.EOF
  intCounter = intCounter + 1

  if(intCounter < RecSet.RecordCount) then
    strPath = "files/icon_lines.gif"
  else
    strPath = "files/icon_lines2.gif"
  end if
%>
...<img src="<%=strPath%>" border="0">...
<%

  RecSet.MoveNext
Wend
%>

Något åt det hållet kanske...

Jag förstår inte riktigt hur man får in den i den nuvarande koden, kan du hjälpa mig? Kan du inte lägga in den i den koden som finns nu?

Kan verkligen ingen hjälpa mig? :) Behöver bara hjälp att sätta ihop dom.

Givetvis... ska genast klippa och klistra lite ;)

intCounter = 0

Set RecSet=Conn.Execute("Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn")

if(RecSet.EOF) then
  Response.Write "Inga kategorier inlagda i kategorin " & Request.QueryString("kat")
else
  While Not RecSet.EOF
    set objRS = Conn.Execute("SELECT * FROM galleri WHERE namn = '" & RecSet("namn") & "'")
    set objPicture = Conn.Execute("SELECT TOP 1 * FROM bilder WHERE namn = '" & RecSet("namn") & "' ORDER BY datum DESC")
    set objCount = Conn.Execute("SELECT COUNT(*) AS CountOfBilder FROM bilder WHERE namn = '" & RecSet("namn") & "'")
    
    intCounter = intCounter + 1

    if(intCounter < RecSet.RecordCount) 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>"
    
    RecSet.MoveNext
  Wend
end if

Du kan ju börja med att testa om ovan fungerar.

Nja, det fungerar på ett sätt. Alla poster får nu bilden som den sista posten ska ha.

HEJ!

Det borde bero på att du skapar recodsetet på fel sätt, då blir
intCounter=1 och RecSet.RecordCount=-1 dvs 1<-1 dvs false vilket ger andra bilden.

Använd
RecSet.Open sql, Conn, 1, 2
för att öppna rs:et korrekt.

[R]Ändrat till Conn[/R]

Vart exakt ska man stoppa in den?

HEJ!

Där du använder RecSet, dvs rad två/tre.

Får felmeddelande:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/webpages/bilder.asp, line 23

Klistrade in det så här, fel eller?

intCounter = 0
RecSet.Open sql, dbconn, 1, 2
Set RecSet=Conn.Execute("Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn")

HEJ!

Ja, det jag skickade ska ersätta det du använder, lägg själva sql-strängen i en variabel, och använd Conn som ditt databasobjekt heter istället.

Hehe, jag förstår inte nåt av det du säger, jag lär mig fortfarande ASP. Kan du inte visa i koden?

HEJ!

J.N. skrev:

...det jag skickade ska ersätta det du använder...

Ta bort
Set RecSet=Conn.Execute("Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn")

J.N. skrev:

...lägg själva sql-strängen i en variabel...

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

J.N. skrev:

...använd Conn...

RecSet.Open sql, Conn, 1, 2

Detta resulterar i:
intCounter = 0
sql = "Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn"
RecSet.Open sql, Conn, 1, 2

Gjorde exakt som du sa, fick samma felmeddelande..hmm..

Den klagar på denna raden:
RecSet.Open sql, Conn, 1, 2

Koden ser nu ut så här:

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

intCounter = 0

RecSet.Open sql, Conn, 1, 2

Du måste skapa recordset-objektet först.

Set RecSet = Server.Createobject("ADODB.Recordset")

Mvh

okej, nu fick jag inga felmeddelanden, men samma problem, alltså att den bilden som ska komma på sista posten kommer på Alla...

Detta är koden nu:

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

intCounter = 0

Set RecSet = Server.Createobject("ADODB.Recordset")
RecSet.Open sql, Conn, 1, 2

if(RecSet.EOF) then
  Response.Write "Inga kategorier inlagda i kategorin " & Request.QueryString("kat")
else
  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")
    
    intCounter = intCounter + 1

    if(intCounter < RecSet.RecordCount) 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"">&nbsp;&nbsp;"
    Response.Write "<a href=""./?page=galleri&kat=" & Request.QueryString("kat") & "&id=" & RecSet("namn") & """>" & RecSet("namn") & "</a><br>"
    
    RecSet.MoveNext
  Wend
end if

HEJ!

Har du en
Set RecSet = Server.CreateObject("ADODB.RecordSet")
med i din db-anslutning?

Trådåtervinning!

Okej, då är det endast att skriva ut de variabler du skapar och se vad som blir fel!

Vad är alltså intCounter och RecSet.RecordCount?

Min kod som är precis ovanför SQL ser ut såhär:

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