table rows

J

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
 
E

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

%>
Click to expand...

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
 
A

Anthony Jones

Jeff said:
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
Click to expand...

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

Jeff

Anthony Jones said:
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.
Click to expand...

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

Anthony Jones

Jeff said:
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.
Click to expand...

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

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><font> and <div> elements and use
CSS
styles to tidy this up a lot.
Click to expand...
if you refresh the
http://scrimwars.gig-gamers.com/schedule2.asp
you see the result.
 
C

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'.
 
J

Jeff

Jeff said:
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
Click to expand...
thanks for the help guys. i believe i am going with this layout
http://scrimwars.gig-gamers.com/schedule.asp
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Filter table rows based on multiple checkboxes value 2
Only one table shows up with the information 2
Table with two rows of titles 4
Scroll a table by multiple rows at a time? 19
Need total amount displayed of data-price attribute from each table 2
Multiple rows from MySQL query saved in an array structure 0
How do I open PLINK with R studio 0
Looping n rows in table 5

Members online

No members online now.
Total: 36 (members: 1, guests: 35)
Robots: 443

Forum statistics

Threads
473,770
Messages
2,569,584
Members
45,075
Latest member
MakersCBDBloodSupport

Latest Threads

Top