Hehe, nu visades inget!
Sista posten ska visa annorluna bild
60 svar · 1 208 visningar · startad av wunderbaren · sida 3 av 4
Frågan, av wunderbaren
Hejsan! Nedan visar en kod som postar poster ur databasen, men hur gör man så att den sista posten ska visa annorlunda bild? Det är mest ett filnamn jag vill ändra, från "files/iconlines.gif" till files/iconlines2.gif. \<% Set RecSet=Conn.Execute("Select \ From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn") If RecSet.EOF Then%\> Inga kategorier inlagda i
Läs frågan i sin helhet →
Hur ska man göra då? :P
Tja, du kan ju prova att använda Response.Write, som du använder för att skriva ut saker din övriga kod. ;)
Var skrev du den då?
response.write intCounter & "-" & RecSet.RecordCount
Response.Write lRecordCount
Och sen under också, men den visade ingen :S
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
Negativt svar :( ska säga att jag verkligen uppskattar hjälpen!!
Vad menar du? På vilket sätt fungerar det inte?
Ja alltså att det inte skrivs up något..
Och inget felmeddelande? Du har inte on error resume next någonstans, hoppas jag?
Nej, kopierade raKt av..
Och innan du lade till min GetRows-kod så skrev den ut saker?
Ja, alltså den skrev ut något då ja.
Då fattar jag inte. Kan du klippa in precis hela sidan här, så ska jag fundera en extra gång...
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
%>
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
Weeee! :)