Jeg forsøger at lave en side med opslag der anvender et dobbelt
loop. Jeg vil gerne have vist alle institutioner fra en tabel og
med alle de tilhørende ydelser (og ydelsesoplysninger) under dem:
Institution1
ydelse1.1 Norm Belæg.pct Pris
ydelse1.2 Norm Belæg.pct Pris
ydelse1.3 Norm Belæg.pct Pris
Institution2
ydelse2.1 Norm Belæg.pct Pris
ydelse2.2 Norm Belæg.pct Pris
ydelse2.3 Norm Belæg.pct Pris
Lige nu kan jeg dog kun få det til at se således ud:
Institution1
ydelse1.1 Norm Belæg.pct Pris
Institution1
ydelse1.2 Norm Belæg.pct Pris
Institution1
ydelse1.3 Norm Belæg.pct Pris osv...
Min kode ser således ud (Jeg kan desværre ikke give et link til
siden, da siden pt befinder sig på et internt netværk):
<%
Dim rs
Dim rs1
Dim koml
Dim inst
koml= session("User")
strSQL1 = "SELECT kommune.Kommune, kommune.Id,
Institut.Institution FROM (kommune INNER JOIN Institut ON
kommune.Id = Institut.kommune_ID) INNER JOIN Ydelse ON
Institut.Id = Ydelse.Institut_ID WHERE
(kommune.[kommune]='"&koml&"') ;"
Set rs1 = Conn.Execute(strSQL1)
inst= rs1("institution")
%>
<div>
<p class=MsoNormal style='text-align:center'><b
style='mso-bidi-font-weight:normal'><span
style='color:red'>Indberetning af ydelsespriser til
Rammeaftalen<o:p></o:p></span></b></p>
</div>
<% response.write "<u><i><b>" & session("User") &
"</u></b></i><br><br>"%>
<%
' Udfør forespørgsel (rs indeholder nu resultatet)
strSQL = "SELECT kommune.Kommune, kommune.Id,
Institut.Institution, Ydelse.Ydelse, Ydelse.Norm, Ydelse.Belag,
Ydelse.pris, Ydelse.B2007, Ydelse.B2008, Ydelse.B2009,
Ydelse.B2010 FROM (kommune INNER JOIN Institut ON kommune.Id =
Institut.kommune_ID) INNER JOIN Ydelse ON Institut.Id =
Ydelse.Institut_ID WHERE (Institut.[Institution]='"&inst&"') ;"
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
'Sikre at der er data for afdelingen
if rs.BOF and rs.EOF then
' Recordsettet er tomt
Response.write("<h1><p align=center><span style='color:blue'>Der
skal vælges en overtagende myndighed for
valgboksen</span></h1></p><br><br><br>")
else
Do
' årstal
strNavn = rs("ydelse")
' lav et link til opslag.asp med Id-værdien i URL
strLink = "<a href='ydelse.asp?id=" & rs("ID") & "'>" &
strNavn & "</a>"
<!-- Overskrift -->
'Tabeloverskrifter
Response.write "<table border=0 cellspacing=13 cellpadding=0>"
Response.write "<tr ><td>"& rs("institution") & "</td></tr>"
Response.write " <tr><td valign=top >"
Response.write " <p ><b><i>" &strLink& "</i></b></p></td>"
Response.write " <td><p><b><i>Norm</i></b></p></td>"
Response.write " <td><p><b><i>Belæg.pct</i></b></p></td>"
Response.write "<td><p><b><i>Pris</i></b></p></td>"
Response.write " <td><p><b><i> </i></b></p></td>"
Response.write " </tr>"
<!-- Overskrift Slut-->
Response.Write "<tr><td><b>" & rs("ydelse") & "</td>"
Response.Write "<td><b>" & rs("norm") & "</td>"
Response.Write "<td><b>" & rs("belag") & "</td>"
Response.Write " <td><b>" & rs("pris") & "</td></tr>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
end if
Response.write "</table>"
%>
Hvad gør jeg galt??
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials