DB udtræk under loop-handling
Hej!Jeg sidder og roder med en kalender, hvor der skal være mulighed for at få extra info af et arr. Man skal først bare have et udtræk af hvad der er i kalenderen. Bagefter skal man kunne vælge - ved at trykke på et event - at få yderlige oplysninger. Oplysningerne skal så lige under det pågældende event.
Lige nu ser koden ud som følger:
<div align="center">
<center><table border="1" width="550" cellspacing="0" cellpadding="0">
<tr>
<td width="101" align="left"><font face="Verdana" size="2">Dato & tid</font></td>
<td width="264" align="left"><font face="Verdana" size="2">Beskrivelse</font></td>
<td width="123" align="left"><font face="Verdana" size="2">Sted</font></td>
<td width="110" align="left"><font face="Verdana" size="2">Enhed(er)</font></td>
</tr>
<%
sql = "SELECT * FROM kalender ORDER BY dato"
Set rs = conn.execute (sql)
Do Until rs.eof
%>
<tr>
<td width="101" align="left"><font face="Verdana" size="2"><%=rs("dato")%></font> </td>
<td width="264" align="left"><font face="Verdana" size="2"><a href="index.asp?id=<%Response.Write(Request.Querystring("id"))%>&kalid=<%=rs("id")%>"><%=rs("besk")%></font></a> </td>
<td width="123" align="left"><font face="Verdana" size="2"><%=rs("sted")%></font> </td>
<td width="110" align="left"><font face="Verdana" size="2"><%=rs("enhed")%></font> </td>
</tr>
<%
IF rs("id") = request.querystring("kalid") THEN
sqlkal = "SELECT * FROM kalender WHERE id = " & Request.Querystring("kalid")
SET rskal = Conn.Execute(sqlkal)
%>
<tr>
<td colspan="4">BESKED <%=rs("id")%> <%=rskal("besk")%> </td>
</tr>
<%
'ELSE
END IF
rs.MoveNext
Loop
%>
</table>
</center>
</div>
Håber at der er nogen der hurtigt kan hjælpe! :-)
//Kongsted
P.S. Der er en DB included længere oppe!
