Kalender

her er scriptet der er i den fil der henter alle arrangementer i dbén

<%language=\"VBScript\"




sqlstr = \"SELECT  TOP \" & numItems & \" * FROM events ORDER BY date ASC\"
Set rsevents = events.Execute(sqlstr)
If Err.Number <> 0 Then
  response.write \"Couldn\'t exec SQL query\"
  response.end
End If
If rsevents.EOF Then
%><BR><BR><BR>
        <table width=79% align=\"center\">
    </table>
<%
response.end
End If
Function to_html(s_string)
to_html = Replace(s_string, vbcrlf, \"<br>\")
to_html = Replace(to_html, \"\"\"\", \"&quot;\")
End Function

rsevents.moveFirst
Dim db
%>
    </div>
      <table width=\"90%\" align=\"center\">
        <tr>
          <td colspan=\"3\">
            <div align=\"right\">
<%
While Not rsevents.EOF
s_message=rsevents.fields(\"desc\")
s_message2=to_html(s_message)
s_message3=to_html(s_message)
If rsevents.fields(\"urls\") = \"1\" THEN
s_message3 = edit_hrefs(s_message2)
End if




  currdate = FormatDateTime(rsevents.fields(\"date\"), 2)
%>
              <table width=\"100%\" cellpadding=\"0\" cellspacing=\"0\" height=\"60\">
                <tr bgcolor=\"\">
                  <td height=\"22\" bgcolor=\"#000080\" valign=\"middle\"><font face=\"<%=fontface%>\" size=\"2\" color=\"#FFFF00\"><b><%=rsevents.fields(\"title\")%></b></font></td>
                  <td height=\"22\" bgcolor=\"#000080\" valign=\"middle\"><font face=\"<%=fontface%>\" size=\"2\" color=\"#FFFF00\"><b>
                    <p align=\"right\"><%= FormatTimeDato(rsevents.fields(\"date\"))%></b></font></td>
                </tr>
                <tr>
                  <td width=\"80%\" colspan=\"2\" height=\"17\"><font face=\"<%=fontface%>\" size=\"2\" color=\"<%=textcolour%>\"><b>Sted:
                    <%=rsevents.fields(\"venue\")%></b></font></td>
                </tr>
                <tr>
                  <td colspan=\"2\" height=\"21\">
                    <div align=\"right\"><font face=\"<%=fontface%>\" size=\"2\"><%=s_message3%></font></div>
                  </td>
                </tr>
              </table>
              <br>
              <%
  rsevents.moveNext
Wend
%>
<hr>
    </table>
</body>

Where Date >= date() -7