SPECIELT LOOP
Jeg ved det meget kode men poster nu alligevelDen følgende kode udgør et loop som udskriver alle navne osv. fra tabellen barometer
problemet ligger i at der inden i loopet skal loopes samlet (et tal) som kommer fra en forespørgsel der hedder samlet
<html>
<head>
<title></title>
</head>
<body>
<div align="center"><center>
<table border="1" width="918" bgcolor="#A0B3C8" bordercolor="#000000" height="71">
<tr>
<strong><small><td width="68" align="center" height="16" valign="middle"><p align="center"><font
face="Arial"><!--webbot bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<small><font face="Arial">Billede</font></small>
<% Else %>
<small><font face="Arial">Billede</font></small>
<% end if %><!--webbot bot="HTMLMarkup"
endspan --><%
order = request.querystring("sort")
if order = "alder" then
strSQL = "Select * From barometer order by alder DESC"
elseif order = "samlet" then
strSQL = "Select * From barometer order by samlet DESC"
elseif order = "patter" then
strSQL = "Select * From barometer order by patter DESC"
elseif order = "roev" then
strSQL = "Select * From barometer order by roev DESC"
elseif order = "krop" then
strSQL = "Select * From barometer order by krop DESC"
elseif order = "charme" then
strSQL = "Select * From barometer order by cme DESC"
elseif order = "klasse" then
strSQL = "Select * From barometer order by klasse ASC"
elseif order = "fornavn" then
strSQL = "Select * From barometer order by fornavn ASC"
elseif order = "mellemnavn" then
strSQL = "Select * From barometer order by mellemnavn ASC"
elseif order = "efternavn" then
strSQL = "Select * From barometer order by efternavn ASC"
elseif order = "aksp" then
strSQL = "Select * From barometer order by aksp DESC"
else
strSQL = "select * from barometer"
end if
Set rs = Conn.Execute(strSQL)
%> </font></small></td>
<td width="229" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<p><font face="Arial" color="#000000"><small><a href="default1.asp?sort=fornavn"
style="color: rgb(0,0,0)">Fornavn</a> - <a href="default1.asp?sort=mellemnavn"
style="color: rgb(0,0,0)">Mellemnavn</a> - <a href="default1.asp?sort=efternavn"
style="color: rgb(0,0,0)">Efternavn</a></small></font>
<% Else %>
<small><font face="Arial">
<p>Navn - Mellemnavn - Efternavn</font></small> <% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
<td width="58" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<a href="default1.asp?sort=alder"><font
face="Arial" color="#000000"><small>Alder</small></font></a>
<% Else %>
<small><font face="Arial">Alder</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
<td width="60" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<a href="default1.asp?sort=klasse"><font
face="Arial" color="#000000"><small>Klasse</small></font></a>
<% Else %>
<small><font face="Arial">Klasse</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
<td width="56" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<a href="default1.asp?sort=samlet"><font
face="Arial" color="#000000"><small>Samlet</small></font></a>
<% Else %>
<small><font face="Arial">Samlet</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
<td width="58" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<a href="default1.asp?sort=patter"><font
face="Arial" color="#000000"><small>Patter</small></font></a>
<% Else %>
<small><font face="Arial">Patter</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
<td width="58" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<a href="default1.asp?sort=roev"><font
face="Arial" color="#000000"><small>Røv</small></font></a>
<% Else %>
<small><font face="Arial">Røv</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
<td width="58" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<a href="default1.asp?sort=krop"><font
face="Arial" color="#000000"><small>Krop</small></font></a>
<% Else %>
<small><font face="Arial">Krop</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
<td width="59" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<a href="default1.asp?sort=cme"><font
face="Arial" color="#000000"><small>Charme</small></font></a>
<% Else %>
<small><font face="Arial">Charme</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
<td width="59" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<a href="default1.asp?sort=aksp"><font
face="Arial" color="#000000"><small>AKSP</small></font></a>
<% Else %>
<small><font face="Arial">AKSP</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
<td width="164" align="center" height="16" valign="middle"><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<small><font face="Arial">Kommentar</font></small>
<% Else %>
<small><font face="Arial">Kommentar</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></td>
</strong>
</tr>
<tr>
<strong><td width="68" height="19" align="center"><!--webbot bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<% if rs("billede") <> "" then
response.write "<a href=""?billede=" & rs("id") & """><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10"" style=""color: rgb(0,0,0); border: 1px solid rgb(0,0,0)""></a>"%>
<%else%>
<small><font
face="Arial">Intet</font></small>
<%end if%>
<% Else %>
<small><font
face="Arial">Intet</font></small>
<% end if %><!--webbot
bot="HTMLMarkup" endspan --></td>
<td width="229" height="19" align="center"><p align="left"><small><font face="Arial"><%if session("lvl") >= "3" then
if rs("mellemnavn") = null then
strNavn = rs("fornavn") & " " & rs("efternavn")
else
strNavn = rs("fornavn") & " " & rs("mellemnavn") & " " & rs("efternavn")
end if
response.write strNavn
else
response.write(rs("efternavn"))
end if%></font></small></td>
<td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "2" then %>
<% if rs("alder") = 0 then
response.write "Ukendt"
else
response.write(rs("alder"))
end if%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
<td width="60" height="19" align="center"><small><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<% =rs("klasse")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
<td width="56" height="19" align="center"><small><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<% =rs("samlet")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
<td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<% =rs("patter")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
<td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<% =rs("roev")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
<td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<% =rs("krop")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
<td width="59" height="19" align="center"><small><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<% =rs("cme")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
<td width="59" height="19" align="center"><small><font face="Arial"><!--webbot
bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<% if rs("aksp") = 0 then
response.write "Ukendt"
else
response.write(rs("aksp"))
end if%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
<td width="164" height="19" align="center"><p align="left"><font face="Arial"><a
href="file:///C:/DOCUME~1/MARKMI~1/LOCALS~1/Temp/default1.asp?id=<%=rs("id")%>"
style="color: rgb(0,0,0)"><!--webbot bot="HTMLMarkup" startspan --><% if session("lvl") >= "3" then %>
<small><font face="Arial"><span
style="color: rgb(0,0,0)"><%=left(rs("kommentar"),20)%></span></font></small>
<% Else %>
<% Response.Write "" %>
<% end if %><!--webbot
bot="HTMLMarkup" endspan --></a></font></td>
</strong>
</tr>
</table>
</center></div>
</body>
</html>
Hvordan kan jeg lave det sådan at samlet fra forespørgslen looper med det andet ?
