<%
option explicit
response.buffer=TRUE
Dim conn, rs, sql, rs2, sql2, avdId
If not Session("inloggad")="Ja" Then
response.redirect("login.asp")
End If
%>
<!--#INCLUDE FILE="dbkoppling.inc"-->
<%
avdId=Cint(request.querystring("avdId"))
sql="Select * from avdelning Order by avdNamn;"
set rs=conn.execute(sql)
sql2="Select a.*, b.*, c.* FROM grupper as a, varavd as b, avdelning as c WHERE c.avdId="&avdId&" AND c.avdId=b.avdId AND b.gruppId=a.gruppId Order by a.gruppNamn;"
set rs2=conn.execute(sql2)
'response.write(sql2)
%>
<html>
<head><title>Avdelningar</title>
<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="mall1.css">
</head>
<body>
<table cellspacing=1 cellpadding=1 border=1>
<tr>
<td>
<u><b>Avdelningar</b></u>
</td>
</tr>
<% Do until rs.EOF %>
<tr>
<td>
<a href="adm_avd.asp?avdId=<%=rs("avdId")%>"><%=rs("avdNamn")%>
</td>
</tr>
<% If Cint(rs2("avdId"))=avdId Then %>
<%Do until rs2.EOF%>
<tr>
<td>
</td>
<td>
<i><%=rs2("gruppNamn")%></i>
</td>
</tr>
<%rs2.movenext%>
<%Loop%>
<% End If%>
<%rs.movenext%>
<%Loop%>
</table>
</body>
</html>
Har kollat så jag får med mig avdId via querystringen och det funkar fint.
Sidan gör precis vad den ska...loopar upp den infon som skall loopas upp. Allt är frid och fröjd med undantag för att jag får felmeddelandet
Hmm..synd att min fina indentering försvinner när jag klistrar in koden..men det kan ni väl leva med?
