Loop problem

Speedy · Nov 16, 2005

Hi,

I have this page
http://www.monow.se/borg/mystat/klubb_filt.asp

but I wan't it to look like this:
http://www.monow.se/borg/mystat/wanted.asp

this is my code:

Code:

<html>
<head>
<title></title>

<style type="text/css">

td {
font-size: 11px;
font-family: verdana;
color: black;
}

a  {
text-decoration: none;
}

</style>

<link rel="stylesheet" type="text/css" href="css/table.css">
</head>

<body>

<table border="0">
<tr>
<td valign="top">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("db/db.mdb")
Set objrs = Conn.Execute("SELECT tbl_player.Namn,
tbl_player.Efternamn, tbl_res.AMT1, tbl_res.AMT2, tbl_res.AMT3,
tbl_res.AMT4, tbl_res.AMT5, tbl_res.AMT6, tbl_res.AMT7, tbl_res.AMT8,
tbl_res.AMT9, tbl_res.AMT10, tbl_res.AMT11, tbl_res.AMT12,
tbl_res.AMT13, tbl_res.AMT14, tbl_res.AMT15, tbl_res.AMT16,
tbl_res.AMT17, tbl_res.AMT18, tbl_res.TOTAL FROM tbl_player INNER JOIN
tbl_res ON tbl_player.PlayerId=tbl_res.PlayerId WHERE tbl_res.Surface =
'Filt' ORDER BY Date, Varv")
%>

<table border="1" style="border-collapse: collapse"
bordercolor="1px solid #000000">
<tr bgcolor="#CDD5E4" style="font-weight: bold">
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=1" target="top10">1</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=2" target="top10">2</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=3" target="top10">3</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=4" target="top10">4</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=5" target="top10">5</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=6" target="top10">6</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=7" target="top10">7</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=8" target="top10">8</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=9" target="top10">9</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=10" target="top10">10</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=11" target="top10">11</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=12" target="top10">12</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=13" target="top10">13</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=14" target="top10">14</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=15" target="top10">15</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=16" target="top10">16</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=17" target="top10">17</a></td>
<td width="30" align="center"><a
href="top10.asp?Show=Top10&Lane=18" target="top10">18</a></td>
<td width="30" align="center">Tot</td>
</tr>

<%
If objrs.eof then
response.write "<tr><td colspan=""19"">Det finns inga
resultat!</td></tr>"
Else
do while not objrs.eof
i = i + 1
If i Mod 2 = 0 Then
%>

<tr bgcolor="#EEEEEE">
<% Else %>
<tr bgcolor="#FFFFFF">
<% End If %>

<td align="center"><%=objrs("AMT1")%></td>
<td align="center"><%=objrs("AMT2")%></td>
<td align="center"><%=objrs("AMT3")%></td>
<td align="center"><%=objrs("AMT4")%></td>
<td align="center"><%=objrs("AMT5")%></td>
<td align="center"><%=objrs("AMT6")%></td>
<td align="center"><%=objrs("AMT7")%></td>
<td align="center"><%=objrs("AMT8")%></td>
<td align="center"><%=objrs("AMT9")%></td>
<td align="center"><%=objrs("AMT10")%></td>
<td align="center"><%=objrs("AMT11")%></td>
<td align="center"><%=objrs("AMT12")%></td>
<td align="center"><%=objrs("AMT13")%></td>
<td align="center"><%=objrs("AMT14")%></td>
<td align="center"><%=objrs("AMT15")%></td>
<td align="center"><%=objrs("AMT16")%></td>
<td align="center"><%=objrs("AMT17")%></td>
<td align="center"><%=objrs("AMT18")%></td>
<td align="center" style="font-weight: bold">

<%
strTot = objrs("TOTAL")

if strTot < 30 then
response.write "<font color=""blue"">"&objrs("TOTAL")&"</font>"

elseif strTot < 36 then
response.write "<font color=""green"">"&objrs("TOTAL")&"</font>"

elseif strTot < 40 then
response.write "<font color=""red"">"&objrs("TOTAL")&"</font>"

elseif strTot > 39 then
response.write "<font color=""black"">"&objrs("TOTAL")&"</font>"

End if
%>

</td>
</tr>
<%
objrs.movenext
loop
end if
%>
</table>
</td>
<td valign="top">
<iframe src="top10.asp" name="top10" frameborder="0"
scrolling="no" valign="top" height="480">
<table>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("db/xlr13x3sm.mdb")

Dim strLane
strLane = Request.Querystring("Lane")

Set objrs = Conn.Execute("SELECT TOP 10 tbl_res.PlayerId,
Round(Avg(AMT"&strLane&"+0),3) AS medel, tbl_player.Namn,
tbl_player.Efternamn FROM tbl_res INNER JOIN tbl_player ON
tbl_res.PlayerId = tbl_player.PlayerId GROUP BY tbl_res.PlayerId,
tbl_player.Namn, tbl_player.Efternamn ORDER BY Avg(AMT"&strLane&"+0)")
%>


<%
if objrs.eof then
response.write ""

else
%>

<tr>
<td colspan="2"><span class="rub2">Top 10 - Bana <%=StrLane%></td>
</tr>
<tr>
<td colspan="2" height="10"></td>
</tr>
<tr>
<td width="150"><b>Namn</b></td>
<td><b>Snitt</b></td>
</tr>

<%
do until objrs.eof
%>

<tr onMouseOver="this.style.backgroundColor='#F4F4F4';"
onMouseOut="this.style.backgroundColor='';">
<td><input type="hidden" value="<%=objrs("PlayerId")%>"><a
href="viewstat.asp?PlayerId=<%=objrs("PlayerId")%>"><%=objrs("Namn")%>&nbsp;
<%=objrs("Efternamn")%></a></td>
<td>
<%
Varde = objrs("medel")
Response.Write FormatNumber(Varde, 2)
%>
</td>
</tr>
<tr>
<td bgcolor="#f4f4f4" colspan="2" height="1"></td>
</tr>

<%
objrs.movenext
loop
end if
%>

</table>
</iframe>
</td>
</tr>
</table>
</body>
</html>

Any ideas on how to accomplish this??

/S

paul · Nov 16, 2005

Perhaps this may hopefully give you some ideas:

Classic ASP Design Tips - Grouping Data
http://www.bullschmidt.com/devtip-groupdata.asp

Best regards,
J. Paul Schmidt, Freelance Web and Database Developer
http://www.Bullschmidt.com
Access Database Sample, Web Database Sample, ASP Design Tips

paul · Nov 16, 2005

Perhaps this may hopefully give you some ideas:

Classic ASP Design Tips - Grouping Data
http://www.bullschmidt.com/devtip-groupdata.asp

Best regards,
J. Paul Schmidt, Freelance Web and Database Developer
http://www.Bullschmidt.com
Access Database Sample, Web Database Sample, ASP Design Tips

Can someone tell me if this a real tracker? Or is it one designed to show you a different message at certain times, ie. acting like one?	0	Jan 10, 2021
Uncaught ReferenceError: item is not defined at HTMLButtonElement.onclick in the: <button onclick="item.inserir()">Inserir dados</button>	1	Apr 22, 2023
Image shifts to the right when export the page to pdf	4	May 5, 2023
Can anyone please help? HTML - two tables applying different styles	4	Dec 1, 2020
I am using 2 loops, 1 for input and 1 for td. Can we achieve the same functionality with 1 loop in Jquery?	4	Sep 29, 2023
How to have two html audio players on one page?	0	May 3, 2022
Javascript DOM	1	Mar 29, 2023
Nested Loop Insert Page Break	1	Nov 5, 2021

Loop problem

Speedy

paul

paul

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads