Billeder på række

Du kan bruge MOD eller lave en tæller:

counter = 0

do while not rsonline.eof

if counter = 5 then response.write "<hr>"

If rsonline("billede_godkendt") = "2" then
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & rsonline("username") & "'target='_blank'><img src='http://www.minside/profilbilleder/" & rsonline("username") & ".jpg' width=83 height=62 style=border='1'> <br>"
Else
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & rsonline("username") & "'target='_blank'><img src='http://www.rolfenstein.dk/aaaasiluet.gif' width=83 height=62 style=border='1'> <br>"
End IF

counter = counter + 1

rsonline.MoveNext
Loop

Simpelt eksempel med en HR i stedet for ny linie..

Ellers hedder det vel bare:

if counter = 5 then response.write "</td></tr><tr></td>"

Anyways.. ideen med counter er, at man tilføjer en simpel IF-sætning, der indsætter "slut"-kode.. f.eks. "slut td og tr + start tr + td".. eller noget i den stil..

Virker ikke

Hvordan ser din kode ud?

<%
dim SQLChatonline, rsonline, billede

    SQLChatonline = "Select username, billede_godkendt from users where access > 100 order by last_online desc limit 20"
        Set rsonline = Conn.Execute(SQLChatonline)


response.write "<table border='0' cellspacing='0' style='position:absolute; top: 0; left:0;' width='360'>"
response.write "<tr><td colspan='16' bgcolor='navy'><font size='3' color='white'><b><center>Sidste Online Medlemmer</center></td></tr><tr>"

do while not rsonline.eof

If rsonline("billede_godkendt") = "2" then
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & rsonline("username") & "'target='_blank'><img src='http://www.minside/profilbilleder/" & rsonline("username") & ".jpg' width=83 height=62 style=border='1'> <br>"
Else
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & rsonline("username") & "'target='_blank'><img src='http://www.minside/aaaasiluet.gif' width=83 height=62 style=border='1'> <br>"
End IF

rsonline.MoveNext


Loop


response.write "</tr></table>"


%>

Det er jo samme kode om i dit spørgsmål.. :-)

Jeg mente at jeg ville se, hvad det var der ikke virkede..
Det skulle have været den del, hvor der var en tæller..

Sådan:

response.write "<table border='1' cellspacing='0' style='position:absolute; top: 0; left:0;' width='360'>"
response.write "<tr><td colspan='16' bgcolor='navy'><font size='3' color='white'><b><center>Sidste Online Medlemmer</center></td></tr><tr>"

counter = 0
do while not rsonline.eof

if counter = 5 then
    response.write "</tr><tr>"
    counter = 0
end if

' din kode her

counter = counter + 1

rsonline.MoveNext

Loop

Jeg satte border på, for at teste det: border='1'

Du skal bare erstatte '1' med '0'..

Nu ser min kode sådan her ud: 

<%
dim SQLChatonline, rsonline, billede

    SQLChatonline = "Select username, billede_godkendt from users where access > 100 order by last_online desc limit 20"
        Set rsonline = Conn.Execute(SQLChatonline)


response.write "<table border='1' cellspacing='0' style='position:absolute; top: 0; left:0;' width='360'>"
response.write "<tr><td colspan='16' bgcolor='navy'><font size='3' color='white'><b><center>Sidste Online Medlemmer</center></td></tr><tr>"

counter = 0
do while not rsonline.eof

if counter = 5 then
    response.write "</tr><tr>"
    counter = 0
end if


If rsonline("billede_godkendt") = "2" then
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & rsonline("username") & "'target='_blank'><img src='http://www.minside/profilbilleder/" & rsonline("username") & ".jpg' width=83 height=62 style=border='1'> <br>"
Else
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & rsonline("username") & "'target='_blank'><img src='http://www.minside/aaaasiluet.gif' width=83 height=62 style=border='1'> <br>"
End IF

counter = counter + 1

rsonline.MoveNext

Loop

response.write "</tr></table>"

%>


Og virker stadigvæk ikke.... nu for jeg denne fejl:

Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'counter'

/profiler/zztop_online.asp, line 31

du har i dim counter i toppen - prøv det

dim counter, SQLChatonline, rsonline, billede

    SQLChatonline = "Select username, billede_godkendt from users where access > 100 order by last_online desc limit 20"
        Set rsonline = Conn.Execute(SQLChatonline)


response.write "<table border='1' cellspacing='0' style='position:absolute; top: 0; left:0;' width='360'>"
response.write "<tr><td colspan='16' bgcolor='navy'><font size='3' color='white'><b><center>Sidste Online Medlemmer</center></td></tr><tr>"

counter = 0
do while not rsonline.eof

if counter = 5 then
    response.write "</tr><tr>"
    counter = 0
end if


If rsonline("billede_godkendt") = "2" then
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & rsonline("username") & "'target='_blank'><img src='http://www.minside/profilbilleder/" & rsonline("username") & ".jpg' width=83 height=62 style=border='1'> <br>"
Else
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & rsonline("username") & "'target='_blank'><img src='http://www.minside/aaaasiluet.gif' width=83 height=62 style=border='1'> <br>"
End IF

counter = counter + 1

rsonline.MoveNext

Loop

response.write "</tr></table>"

%>

1000000 tak så virkede det.... lad mig give point

du får lige et svar til point

Sådan...

En der så har en ide hvordan jeg får folks navne til at komme frem når jeg føre musen hen over billedet ?

så gør du således:
username = rsonline("username")

If rsonline("billede_godkendt") = "2" then
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & username & "'target='_blank' titel='"&username&"'><img src='http://www.minside/profilbilleder/" & username & ".jpg' width=83 height=62 style=border='1'> <br>"
Else
    response.write "<td bgcolor='#6699FF'><div align='center'><a href='/profiler/show.asp?user=" & username & "'target='_blank' titel='"&username&"'><img src='http://www.minside/aaaasiluet.gif' width=83 height=62 style=border='1'> <br>"
End IF

mitbrugernavn> Synes du selv at det er rimeligt at snuppe pointsne, når jeg kom med løsningen, og det eneste du gjorde var at tilføje "counter" til dim?

Jeg er først kommet online nu, og ville rette fejlen (hvis man vil bruge det ord) ifølge fejlbeskrivelsen, så snart jeg loggede på.


Dit indlæg 05/08-2006 18:46:55 burde have været en kommentar med teksten:
"Det var thesurfer der kom med løsningen, så det er ham der skal have pointsne."


Jeg går ud fra, at du sender pointsne videre..