5 svar · 223 visningar · startad av wborg
Hej,
har problem att loopa ut data så som jag vill ha det.
Så här ser det ut nu: http://www.monow.se/borg/mystat/klubb_filt.asp
men vill ha det så här: http://www.monow.se/borg/mystat/wanted.asp
Jag vill ha en tabell utloopad för varje datum (tbl_res.Date)
och här är koden som den ser ut just nu:
<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")%> <%=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>
Någon som har en bra lösning på detta?
/S
Du kan använda din räknare (i=i+1). Räknaren motsvarar ju antalet rader som skrivs ut.
När räknaren t.ex har räknat till fem då så bryter du av tabellen. Sedan så fortsätter du så när du vill bryta av tabellen vid olika antal rader.
Vet inte om det är så som du menar. Om det är det så har du något att gå på.
Jag vet inte om det är så jag tänkt mig, förstår inte riktigt hur du menar.
Kan du visa hur det skulle se ut i praktiken på något sätt?
HEJ!
Det finns ett antal kodexempel på detta, man gör så när man vill avsluta tex en tabell för att börja en ny.
if i=5 then response.write "</tr></table><table><tr>"
Beroende på övrig kod, kanske du måste nollställa i och/eller skapa </td><td> också.
Hej igen,
har nu gjort vissa modifieringar i koden (Johnny, fick ej ngn pli på ditt förslag) :S
Det som händer nu är att sidan säger "Det finns inga resultat!" men jag vet att det finns resultat i db:n eftersom dte kommer fram på denna sida:
http://www.monow.se/borg/mystat/klubb_filt_skarp.asp
men inte på denna sida:
http://www.monow.se/borg/mystat/klubb_filt.asp
lite missvisande namn på filerna kanske eftersom den som heter skarp inte är den som jag arbetar med :D
min db ser ut så här:
tbl_res [Id (räknare, primärnyckel), PlayerId (text), Surface (text), Date (datum/tid), Comp_Name (text), Varv (text), AMT1 (tal), AMT2 (tal), AMT3 (tal), AMT4 (tal), AMT5 (tal), AMT6 (tal), AMT7 (tal), AMT8 (tal), AMT9 (tal), AMT10 (tal), AMT11 (tal), AMT12 (tal), AMT13 (tal), AMT14 (tal), AMT15 (tal), AMT16 (tal), AMT17 (tal), AMT18 (tal), TOTAL (tal)
tbl_player [Id (räknare, primärnyckel), Namn (text), Efternamn (text), PlayerId (text), Visa (ja/nej)
och koden så här:
<%
Sub createNewTableStart(endPrevTable)
if endPrevTable then response.write vbCrLf & "</table>" & vbCrLf & "<br />" & vbCrLf
%>
<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>
<%
End Sub
%>
<html>
<head>
<title></title>
<style type="text/css">
td {
font-size: 11px;
font-family: verdana;
color: black;
}
a {
text-decoration: none;
}
.blueText {
color:blue;
font-weight: bold;
}
.greenText {
color:green;
font-weight: bold;
}
.redText {
color:red;
font-weight: bold;
}
.blackText {
color:black;
font-weight: bold;
}
</style>
<link rel="stylesheet" type="text/css" href="css/table.css">
</head>
<body>
<%
dim Conn, objrs, i, prevDate, currDate, strTot
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/xlr13x3sm.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, tbl_res.Date, tbl_res.Comp_Name FROM tbl_player INNER JOIN tbl_res ON tbl_player.PlayerId=tbl_res.PlayerId WHERE tbl_res.Comp_Name='"&strCompName&"' AND tbl_res.Surface ='Filt' ORDER BY tbl_res.Date, tbl_res.Varv")
i=0
while not objrs.BOF and not objrs.EOF
currDate = objrs("Date")
if IsEmpty(prevDate) then 'first iteration
createNewTableStart(false)
elseif prevDate <> currDate then
createNewTableStart(true)
end if
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">
<%
strTot = objrs("TOTAL")
if strTot < 30 then
response.write "<span class=""blueText"">"&strTot&"</span>"
elseif strTot < 36 then
response.write "<span class=""greenText"">"&strTot&"</span>"
elseif strTot < 40 then
response.write "<span class=""redText"">"&strTot&"</span>"
elseif strTot > 39 then
response.write "<span class=""blackText"">"&strTot&"</span>"
End if
response.write vbCrLf & "</td>" & vbCrLf & "</tr>" & vbCrLf
prevDate = currDate
objrs.movenext
wend
if i=0 then 'empty recordset
response.write "<tr><td colspan=""19"">Det finns inga resultat!</td></tr>"
end if
%>
</table>
<%
'close and kill recordset/connection objects
objrs.close
set objrs = nothing
Conn.close
set Conn = nothing
%>
</body>
</html>
Hoppas någon kan hjälpa mig få ordning på detta.
/S
HEJ!
wborg skrev:
har nu gjort vissa modifieringar i koden (Johnny, fick ej ngn pli på ditt förslag)
Vad för pli är det du saknade, eller det är inte den vägen du vill gå?