table rows

[Jeff]

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.]

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>&nbsp;"
response.write "</table>"

not tested

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

[Anthony Jones]

"Jeff" <gi*****@adelphia.netwrote in message
news:uK******************************@adelphia.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.

[Jeff]

"Anthony Jones" <An*@yadayadayada.comwrote in message
news:OS**************@TK2MSFTNGP04.phx.gbl...

>
"Jeff" <gi*****@adelphia.netwrote in message
news:uK******************************@adelphia.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.

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]

"Jeff" <gi*****@adelphia.netwrote in message
news:sa******************************@adelphia.com ...

>
"Anthony Jones" <An*@yadayadayada.comwrote in message
news:OS**************@TK2MSFTNGP04.phx.gbl...

"Jeff" <gi*****@adelphia.netwrote in message
news:uK******************************@adelphia.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.

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><fontand <divelements and use CSS
styles to tidy this up a lot.

[Jeff]

"

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><fontand <divelements 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.

[Cozmo]

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" <gi*****@adelphia.netwrote in message
news:_o******************************@adelphia.com ...

"

>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><fontand <divelements 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.

[Jeff]

"Jeff" <gi*****@adelphia.netwrote in message
news:uK******************************@adelphia.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