Dato LIG idag
Hvorfor skriver denne ikke nogle poster ud, selvom der ligger 02-02-2010 eller 04-02-2010<% if request.querystring("dato") <> "" OR request.querystring("id") <> "" then%>
<td colspan="3"> </td>
<td>
</td>
<td colspan="3" align="right"> </td>
</tr>
<tr>
<td colspan="7">
<font face="Arial" color="#000000">
<p align="center"><b><font face="Arial" size="2">Aftale(r) den valgte dag </font></b>
</font><font face="Arial" size="2">
<b>
<font face="Arial" color="#0000FF">
<a href="kalender.asp?valg=opret&dato=<%=request.querystring("dato")%>"><font color="#000000">
<span style="text-decoration: none">(Opret aftale)</span></font></a></font></b></td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<tr>
<% datoreq = "#" & request.querystring("dato") & "#"%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/db.mdb")
sql1 = "select * from aftaler where [dato] = "&datoreq&""
Set rs1 = conn.Execute(sql1)
response.write sql1
if not rs1.eof then
%>
</tr>
<%do while not rs1.EOF%>
<tr>
<td colspan="3">
<font face="Arial" color="#000000">
<font face="Arial" size="2">
<a href="kalender.asp?id=<%=rs1("id")%>&dato=<%=rs1("dato")%>"><font color="#000000">
<span style="text-decoration: none"> <%=rs1("brugerID")%></span></font></a></font></td>
<td>
<font face="Arial" size="2" color="#000000">
<a href="kalender.asp?id=<%=rs1("id")%>&dato=<%=rs1("dato")%>"><font color="#000000">
<span style="text-decoration: none">
<%=rs1("emne")%></span></font></a></font></td>
<td colspan="3" align="right">
<font face="Arial" color="#000000">
<font face="Arial" size="2">
<a href="kalender.asp?id=<%=rs1("id")%>&dato=<%=rs1("dato")%>"><font color="#000000">
<span style="text-decoration: none"><%=rs1("dato")%></span></font></a>
<a href="kalender.asp?id=<%=rs1("id")%>&dato=<%=rs1("dato")%>"><font color="#000000">
<span style="text-decoration: none">(<%=rs1("starttid")%>)</span></font></a></font></td>
</tr>
<tr>
<td colspan="3">
</td>
<td>
</td>
<td colspan="3" align="right">
</td>
</tr>
<%
rs1.movenext
loop
end if
end if
%>