Liste rækker
Hej...Jeg er støt på et problem, jeg skal have listet et udtræk fra mysql db. Det skulle gerne listes sådan her:
1 2 3
4 5 6
7 8 9
10 11 12
osv.
Men jeg kan ikke helt få det til at virke, den lister det under hinanden lige nu.
Her er min kode:
<%
SQLhotbilleder = "select * from hotbilleder where profilerID=" & request.QueryString("id")
set RShotbilleder = conn.execute(SQLhotbilleder)
do until RShotbilleder.EOF
for i = 1 to 3
if not RShotbilleder.EOF then
SQLgen2 = "SELECT COUNT(*) AS count FROM hotstemmer where hotbillederID = " & RShotbilleder("id")&""
Set RSgen2 = Conn.Execute(SQLgen2)
if not RSgen2("count") = "0" then
SQLgen1 = "SELECT SUM(point) FROM hotstemmer where hotbillederID = " & RShotbilleder("id")&""
Set RSgen1 = Conn.Execute(SQLgen1)
gennemsnit = RSgen1(0)/RSgen2("count")
end if
%>
<br>
<table width="100" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td>
<a href="/default.asp?mode=picture&pictureID=<%=RShotbilleder("id")%>"><img src="/images/hotbilleder/thumb/<%=RShotbilleder("billede")%>" width="100" border="0"></a></td>
<td> </td>
</tr>
<tr>
<td align="center" valign="top" background="/images/loginbg.jpg">
<%if not RSgen2("count") = "0" then
Response.Write(FormatNumber(gennemsnit,2))
else%>
Ingen stemmer!<br>
<%end if%>
<br>
<%
Sql = "SELECT count(*) as count FROM hotstemmer WHERE profilerID = "& request.QueryString("id") &" AND hotbillederID = "& RShotbilleder("id") &""
Set RS0 = conn.execute(sql)
if not RS0("count") = 0 then
response.Write(RS0("count")&" stemmer")
end if%></td>
<td align="center" valign="top"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<%
end if
if not RShotbilleder.EOF then RShotbilleder.movenext
next
loop
%>
På forhånd tak!
// Rene
