hvorfor virker det ikke
<!--#include virtual ="/include/UserTime.asp"--><html>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Events.mdb")
Set objRs = objConn.Execute("SELECT * FROM events WHERE dato > '"& date() &"'")
%>
<head>
<link rel="stylesheet" type="text/css" href="../styles.css">
<title>w w w . F r e d e r i c i a - B y N i g h t . dk</title>
</head>
<body bgcolor="#3288A4">
<div align="center"><%
If Request.QueryString("action") = "slet" Then
Set Antal = objConn.Execute("SELECT Count(id) as Antal FROM events WHERE date < "& date() &"'")
If Len(Antal(0)) > 0 Then
Conn.Execute("DELETE * FROM events WHERE dato < '"& Date() &"'")
Response.Write(Antal(0) &" events slettet")
Else
Response.Write("Der var ingen events der blev slettet")
End If
Set Antal = Nothing
Else
%>
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="675">
<tr>
<td><img border="0" src="/top.gif" width="675" height="70"></td>
</tr>
<tr>
<td height="4"></td>
</tr>
<tr>
<td><div align="left"><table border="1" cellpadding="0" cellspacing="0" width="100%"
bordercolor="#000000">
<tr>
<td><div align="left"><table border="0" cellpadding="0" cellspacing="5" width="671"
bgcolor="#6C8892">
<tr>
<td width="154" valign="top" align="center"><!--#include Virtual="/include/menu.asp" --> </td>
<td width="495" background="../mainbg.gif" height="0"
style="background-repeat: repeat-y; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"
bordercolor="#000000" valign="top"><div align="center"><center><table border="0"
cellpadding="0" cellspacing="0" width="97%">
<tr>
<td valign="top"><font face="Arial"><b><br>
Events<br>
<font size="2">Listet er KUN kommende Events</font><br>
</b></font><blockquote>
<font size="2"><%
While Not objRs.EOF
response.write "<font face='Arial, Helvetica, sans-serif' color='#000000' size='2px'>"
Response.Write "<li>" & objRs("emne") & " - " & objRs("dato") & " - " & objRs("tekst") & "</font>"
objRs.MoveNext()
Wend
%>
</font>
</blockquote>
<p align="center"><a href="http://www.zequenze.dk"><img border="0" src="../zequenze.gif"
width="468" height="60"> </a></p>
<p align="center"> </td>
</tr>
</table>
</center></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="4"></td>
</tr>
<tr>
<td><img border="0" src="../bund.gif" width="675" height="16"> </td>
</tr>
</table>
</center></div><% End If %>
</div>
</body>
</html>
Hvad er der galt med denne side : http://www.fredericia-bynight.dk/events/default.asp
den skal udskrive alle tingene i databasen og slette alle dem der er ældre end den pågælende dag.
