Vis de 10 næste koncerter
Jeg har flg. side http://www.peterogdeandrekopier.dk/vis10koncerter.aspsom giver en HTTP 500 - Intern serverfejl.
Jeg har virkelig AKUT brug for hjælp, da jeg både skal sende et nyhedsbrev ud og selvfølgelig have funktionen til at fungere på hjemmesiden...
Koden ser sådan ud:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%
RESPONSE.BUFFER = TRUE
' CONNECTION TIL DATABASE
SET CONN = SERVER.CREATEOBJECT("ADODB.Connection")
'DBPATH = "DBQ=" & SERVER.MAPPATH("db\kalender.mdb")
CONN.OPEN "Data Source=d:\home\peterogdeandredk\db\kalender.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
' HER HIVER VI INDHOLDET AF DATABASEN UD OG SORTERER DEM EFTER DATO
SQL = "SELECT top 10 * FROM kalender ORDER BY Dato ASC"
SET RECORD = CONN.EXECUTE(SQL)
%>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE>10 koncerter</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
<META NAME="Author" CONTENT="Peter Molzen">
</HEAD>
<BODY>
<% DO WHILE NOT RECORD.EOF %>
<P><FONT SIZE="1" FACE="Verdana">
<B><% RESPONSE.WRITE RECORD("Dato") %>, <% RESPONSE.WRITE RECORD("Klokkeslet2") %> - <% RESPONSE.WRITE RECORD("SpillestedNavn") %></FONT><BR></B>
<FONT SIZE="1" FACE="Verdana"></FONT><BR>
<BR></P>
<P><FONT SIZE="1" FACE="Verdana"><% RESPONSE.WRITE RECORD("SpillestedAdresse") %></FONT><BR>
</P>
<HR>
<%
RECORD.MOVENEXT
LOOP
%>
<%
' LUKKE CONNECTION
CONN.CLOSE
SET CONN = NOTHING
%>
</BODY>
</HTML>
