Home > Archive > ASP > December 2006 > table rows
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
|
|
|
| hey gang. i have a question that is probably simple, and i could do it at
one time, but i forget how.
ok, how to explain
i need to retrieve records from a db. which is no problem. but instead of
displaying them with normal rows, i need to display them across 2 columns,
then down.
here is the example
http://scrimwars.gig-gamers.com/test1.asp
this way, with the sort, i can show 1 and 2 on the same line... 3 and 4 on
the same line and so on.
i know it will have to do with an i MOD, but not sure how to set it up.
can someone get me going here. here is what i have so far.
<%
Set matches1 = Conn.Execute("SELECT clan_initials FROM clans ORDER BY wins
desc")
i = 1
DO UNTIL matches1.EOF
IF NOT i MOD 2 = 0 THEN
opposition = matches1.Fields("clan_initials").Value
%>
not not sure how to set the table up here
| |
| Evertjan. 2006-11-21, 3:55 am |
| Jeff wrote on 21 nov 2006 in microsoft.public.inetserver.asp.general:
> hey gang. i have a question that is probably simple, and i could do it
> at one time, but i forget how.
>
> ok, how to explain
>
> i need to retrieve records from a db. which is no problem. but instead
> of displaying them with normal rows, i need to display them across 2
> columns, then down.
>
> here is the example
> http://scrimwars.gig-gamers.com/test1.asp
>
> this way, with the sort, i can show 1 and 2 on the same line... 3 and
> 4 on the same line and so on.
>
> i know it will have to do with an i MOD, but not sure how to set it
> up.
>
> can someone get me going here. here is what i have so far.
> <%
>
> Set matches1 = Conn.Execute("SELECT clan_initials FROM clans ORDER BY
> wins desc")
>
> i = 1
> DO UNTIL matches1.EOF
>
> IF NOT i MOD 2 = 0 THEN
> opposition = matches1.Fields("clan_initials").Value
>
> %>
If I understand you correctly, you want:
1 2
3 4
5 6
7
try:
newRow = true
response.write "<table>"
DO UNTIL matches1.EOF
if newRow then response.write "<tr>"
newRow = not newRow
response.write "<td>" & matches1("fieldname")
matches1.MoveNext
Loop
if not newRow then response.write "<td> "
response.write "</table>"
not tested
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)
| |
| Anthony Jones 2006-11-21, 7:55 am |
|
"Jeff" <gig_bam@adelphia.net> wrote in message
news:uKydnfrfNMp89P_YnZ2dnUVZ_oidnZ2d@ad
elphia.com...
> hey gang. i have a question that is probably simple, and i could do it at
> one time, but i forget how.
>
> ok, how to explain
>
> i need to retrieve records from a db. which is no problem. but instead of
> displaying them with normal rows, i need to display them across 2 columns,
> then down.
>
> here is the example
> http://scrimwars.gig-gamers.com/test1.asp
>
> this way, with the sort, i can show 1 and 2 on the same line... 3 and 4 on
> the same line and so on.
>
> i know it will have to do with an i MOD, but not sure how to set it up.
>
> can someone get me going here. here is what i have so far.
> <%
>
> Set matches1 = Conn.Execute("SELECT clan_initials FROM clans ORDER BY wins
> desc")
>
> i = 1
> DO UNTIL matches1.EOF
>
> IF NOT i MOD 2 = 0 THEN
> opposition = matches1.Fields("clan_initials").Value
>
> %>
> not not sure how to set the table up here
>
See my answer to subject 'Qry data to Page' posted by BaWork on 20 Nov 2006
02:48 GMT
The advantage to using a Mod is that the number of columns can be changed by
simply changing the operand in the Mod function.
| |
|
|
"Anthony Jones" <Ant@yadayadayada.com> wrote in message
news:OSUY50UDHHA.3444@TK2MSFTNGP04.phx.gbl...
>
> "Jeff" <gig_bam@adelphia.net> wrote in message
> news:uKydnfrfNMp89P_YnZ2dnUVZ_oidnZ2d@ad
elphia.com...
>
> See my answer to subject 'Qry data to Page' posted by BaWork on 20 Nov
> 2006
> 02:48 GMT
>
> The advantage to using a Mod is that the number of columns can be changed
> by
> simply changing the operand in the Mod function.
>
>
i have looked at that. the scripting makes sense.
i guess i am just having a problem with the html part.
i can't get it to put "against" between the two columns. let me show my
code.
<%
Set teams = Conn.Execute("SELECT clan_initials, wins FROM clans ORDER BY
wins desc")
%>
<div align="center">
<table height="55" border="0" cellpadding="0" cellspacing="0"
bordercolor="#000000" id="AutoNumber1" width="58">
<tr>
<%
i = 1
DO UNTIL teams.EOF
w1 = teams.fields.item("wins").value
t1 = trim(teams.fields.item("clan_initials").value)
IF NOT i MOD 2 = 0 THEN
%>
<td width="30">
<div align="center">
<table width="100%" border="1" cellspacing="1" bordercolorlight="#66B2F8"
bordercolordark="#175085">
<tr>
<td width="50" bgcolor="#175085" align="center"><div
align="center"><font face="Georgia" size="2" font color="#FFFFFF">
<b>1<%=t1%></b></div></td>
</tr>
<tr>
<td width="50" bgcolor="#66B2F8" align="center"><div
align="center"><font face="Georgia" size="2" font color="#000000">
<b>1<%=w1%></b></div></td>
</tr> </table></div> </td>
<% ELSE %>
<td width="28">
<div align="center">
<table width="100%" border="1" cellspacing="1" bordercolorlight="#66B2F8"
bordercolordark="#175085">
<tr>
<td width="50" bgcolor="#175085" align="center"><div
align="center"><font face="Georgia" size="2" font color="#FFFFFF">
<b>1<%=t1%></b></div></td>
</tr>
<tr>
<td width="50" bgcolor="#66B2F8" align="center"><div
align="center"><font face="Georgia" size="2" font color="#000000">
<b>1<%=w1%></b></div></td>
</tr> </table></div> </td></tr></table>
<table cellpadding="0" cellspacing="0"><tr>
<%
END IF
i = i + 1
teams.MoveNext
LOOP
%>
</table> </table>
</div>
this is how that code appears now
http://scrimwars.gig-gamers.com/schedule2.asp
would have prefered it on the same table, and just show up as rows, but i
have forgotten more than i know about doing this.
| |
| Anthony Jones 2006-11-21, 6:55 pm |
|
"Jeff" <gig_bam@adelphia.net> wrote in message
news:saKdnYbRlpBRlP7YnZ2dnUVZ_u2dnZ2d@ad
elphia.com...
>
> "Anthony Jones" <Ant@yadayadayada.com> wrote in message
> news:OSUY50UDHHA.3444@TK2MSFTNGP04.phx.gbl...
at[color=darkred]
of[color=darkred]
changed[color=darkred]
>
> i have looked at that. the scripting makes sense.
> i guess i am just having a problem with the html part.
> i can't get it to put "against" between the two columns. let me show my
> code.
>
> <%
> Set teams = Conn.Execute("SELECT clan_initials, wins FROM clans ORDER BY
> wins desc")
> %>
>
>
> <div align="center">
> <table height="55" border="0" cellpadding="0" cellspacing="0"
> bordercolor="#000000" id="AutoNumber1" width="58">
> <tr>
>
> <%
> i = 1
> DO UNTIL teams.EOF
> w1 = teams.fields.item("wins").value
> t1 = trim(teams.fields.item("clan_initials").value)
>
> IF NOT i MOD 2 = 0 THEN
> %>
> <td width="30">
> <div align="center">
> <table width="100%" border="1" cellspacing="1" bordercolorlight="#66B2F8"
> bordercolordark="#175085">
> <tr>
> <td width="50" bgcolor="#175085" align="center"><div
> align="center"><font face="Georgia" size="2" font color="#FFFFFF">
> <b>1<%=t1%></b></div></td>
> </tr>
> <tr>
> <td width="50" bgcolor="#66B2F8" align="center"><div
> align="center"><font face="Georgia" size="2" font color="#000000">
> <b>1<%=w1%></b></div></td>
> </tr> </table></div> </td>
> <% ELSE %>
> <td width="28">
> <div align="center">
> <table width="100%" border="1" cellspacing="1" bordercolorlight="#66B2F8"
> bordercolordark="#175085">
> <tr>
> <td width="50" bgcolor="#175085" align="center"><div
> align="center"><font face="Georgia" size="2" font color="#FFFFFF">
> <b>1<%=t1%></b></div></td>
> </tr>
> <tr>
> <td width="50" bgcolor="#66B2F8" align="center"><div
> align="center"><font face="Georgia" size="2" font color="#000000">
> <b>1<%=w1%></b></div></td>
> </tr> </table></div> </td></tr></table>
> <table cellpadding="0" cellspacing="0"><tr>
> <%
> END IF
> i = i + 1
> teams.MoveNext
> LOOP
> %>
> </table> </table>
> </div>
>
> this is how that code appears now
> http://scrimwars.gig-gamers.com/schedule2.asp
>
> would have prefered it on the same table, and just show up as rows, but i
> have forgotten more than i know about doing this.
>
I see. The solution had a flaw if you want to adjust the number of columns.
The following is better and adjusted to your requirments:-
<table>
<tr><td>
<%
Const cColumnCount = 2
Dim i : i = 1
Dim fldWins : Set fldWins = rs("wins")
Dim fldIntiials : Set fldInitials = rs("clan_initials")
Do Until rs.EOF
DrawCell fldInitials.Value, fldWins.Value
rs.MoveNext
If Not rs.EOF Then
If (i Mod cColumnCount) <> 0 Then
Response.Write "</td><td>"
Else
Response.Write "</td></tr><td>"
End If
End If
i = i + 1
Loop
%>
</td></tr>
</table>
<%
Function DrawCell(initals, wins)
%>
<div align="center">
<table width="100%" border="1" cellspacing="1" bordercolorlight="#66B2F8"
bordercolordark="#175085">
<tr>
<td width="50" bgcolor="#175085" align="center"><div
align="center"><font face="Georgia" size="2" font color="#FFFFFF">
<b>1<%=intials%></b></div></td>
</tr>
<tr>
<td width="50" bgcolor="#66B2F8" align="center"><div
align="center"><font face="Georgia" size="2" font color="#000000">
<b>1<%=wins%></b></div></td>
</tr> </table></div>
<%
End Function
%>
Although I think you could lose the <b><font> and <div> elements and use CSS
styles to tidy this up a lot.
| |
|
| "
> I see. The solution had a flaw if you want to adjust the number of
> columns.
> The following is better and adjusted to your requirments:-
>
>
> <table>
> <tr><td>
> <%
> Const cColumnCount = 2
> Dim i : i = 1
> Dim fldWins : Set fldWins = rs("wins")
> Dim fldIntiials : Set fldInitials = rs("clan_initials")
> Do Until rs.EOF
>
> DrawCell fldInitials.Value, fldWins.Value
>
> rs.MoveNext
>
> If Not rs.EOF Then
> If (i Mod cColumnCount) <> 0 Then
> Response.Write "</td><td>"
> Else
> Response.Write "</td></tr><td>"
> End If
> End If
> i = i + 1
> Loop
> %>
> </td></tr>
> </table>
>
>
> <%
> Function DrawCell(initals, wins)
> %>
> <div align="center">
> <table width="100%" border="1" cellspacing="1" bordercolorlight="#66B2F8"
> bordercolordark="#175085">
> <tr>
> <td width="50" bgcolor="#175085" align="center"><div
> align="center"><font face="Georgia" size="2" font color="#FFFFFF">
> <b>1<%=intials%></b></div></td>
> </tr>
> <tr>
> <td width="50" bgcolor="#66B2F8" align="center"><div
> align="center"><font face="Georgia" size="2" font color="#000000">
> <b>1<%=wins%></b></div></td>
> </tr> </table></div>
> <%
> End Function
> %>
>
> Although I think you could lose the <b><font> and <div> elements and use
> CSS
> styles to tidy this up a lot.
>
>
>
if you refresh the
http://scrimwars.gig-gamers.com/schedule2.asp
you see the result.
| |
|
| This line:
Response.Write "</td></tr><td>"
should ge:
Response.Write "</td></tr><tr><td>"
you close the <tr>, but you dont open the next 'row'.
"Jeff" <gig_bam@adelphia.net> wrote in message
news:_oqdnQjsmJGitP7YnZ2dnUVZ_hydnZ2d@ad
elphia.com...
> "
> if you refresh the
> http://scrimwars.gig-gamers.com/schedule2.asp
> you see the result.
>
>
| |
|
|
"Jeff" <gig_bam@adelphia.net> wrote in message
news:uKydnfrfNMp89P_YnZ2dnUVZ_oidnZ2d@ad
elphia.com...
> hey gang. i have a question that is probably simple, and i could do it at
> one time, but i forget how.
>
> ok, how to explain
>
> i need to retrieve records from a db. which is no problem. but instead of
> displaying them with normal rows, i need to display them across 2 columns,
> then down.
>
> here is the example
> http://scrimwars.gig-gamers.com/test1.asp
>
> this way, with the sort, i can show 1 and 2 on the same line... 3 and 4 on
> the same line and so on.
>
> i know it will have to do with an i MOD, but not sure how to set it up.
>
> can someone get me going here. here is what i have so far.
> <%
>
> Set matches1 = Conn.Execute("SELECT clan_initials FROM clans ORDER BY wins
> desc")
>
> i = 1
> DO UNTIL matches1.EOF
>
> IF NOT i MOD 2 = 0 THEN
> opposition = matches1.Fields("clan_initials").Value
>
> %>
> not not sure how to set the table up here
>
>
thanks for the help guys. i believe i am going with this layout
http://scrimwars.gig-gamers.com/schedule.asp
|
|
|
|
|