500 Intern Serverfejl på "hent 3 nyheder"
Hej!Jeg får en HTTP 500 Intern Serverfejl, når jeg prøver at hente siden: http://www.peterogdeandrekopier.dk/vis3nyheder.asp
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\db.mdb")
Conn.Open "Data Source=d:\home\peterogdeandredk\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT top 3 * FROM nyheder ORDER BY Dato DESC"
Set Record = Con.Execute(Sql)
%>
<html>
<head>
<!-- Minus AutoDato -->
<title>3 nyheder</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta name="Author" content="Peter Molzen" />
</head>
<body>
<% Do While Not Record.EOF %>
<b><font size="2" face="Verdana">Den : </font> </b>
<font size="2" face="Verdana"><% Response.Write Record("Dato")%></font><br>
<font face="Verdana">
<b><font size="2">Navn : </font> </b><font size="2"><% Response.Write Record("Forfatter")%><br>
<b>Nyhed : </b><% Response.Write Record("Nyhed") %></font></font><br>
<br></p>
<hr>
<%
Record.MoveNext
Loop
%>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>
</body>
</html>
Kan det skyldes, at 'Con' staves både 'Con' og 'Conn'?
Nogen der kan se eller gætte fejlen?
