Er der nogen fejl i denne kode
Jeg ved godt det er et lidt mystisk spørgsmål, men følgende side virker fint på min egen computer via personal webserver. Når jeg så uploader den til azero\'s server skriver den intern HTTP 500-serverfejl. Det er anden gang det sker for mig. Forleden dag skete det også, så uploadede jeg den igen, og så virkede det. Jeg har naturligvis prøvet at uploade igen og igen... Men uden resultat.<% Response.Buffer = True %>
<html>
<head>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<!-- Minus AutoDato -->
<!-- #include file=\"script.asp\" -->
<LINK href=\"grafik.css\" rel=stylesheet type=text/css>
<title>Troldhøj Division</title>
</head>
<body>
<body topmargin=\"0\" leftmargin=\"0\" marginheight=0 marginwidth=0>
<% side = request(\"side\") %>
<center>
<table border=\"0\" width=\"740\" cellspacing=\"3\" cellpadding=\"0\" bgcolor=\"#000000\">
<tr>
<td width=\"100%\" height=\"31\">
<table border=\"0\" width=\"730\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"100%\" colspan=\"2\"><img src=\"images/top.gif\"></td>
</tr>
<tr>
<td width=\"130\" bgcolor=\"#888888\"><img src=\"images/top2.gif\"></td>
<td width=\"630\" bgcolor=\"#888888\"><DIV STYLE=\"text-align:right\"><% Response.Write \"<font size=\'2\' face=\'arial\' color=\'#FFFFFF\'>\" & WeekdayName (Weekday(Date)) & \" den \" & Day (Date) & \". \" & MonthName (Month(Date)) &\" \" & Year (Date) & \"</font>\"%> </DIV></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width=\"100%\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"130\" valign=\"top\" bgcolor=\"#224492\"><!-- #include file=\"menu.asp\" --></td>
<td width=\"610\" valign=\"top\" bgcolor=\"#FFFFFF\">
<center>
<table width=\"600\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<!-- Indhold: start -->
<% if side = \"\" Then %>
<td>
<span class=\"uoverskrift\"><IMG SRC=\"images/punkt.gif\" > <a class=\"uoverskrift\" href=\"default.asp?\"> Forsiden</a> <IMG SRC=\"images/punkt.gif\" > Velkommen til Troldhøj Divisions hjemmeside</span><br><br><p>
<center>
<TABLE BORDER=\"0\" CELLSPACING=\"0\" class=\"tabel4\">
<TR>
<TD class=\"tabel1\" colspan=\"2\" width=\"600\"><span class=\"overskrift\">Sidste nyt fra Troldhøj Division</span></TD></tr>
<TR><TD width=\"525\"><span class=\"normal\"><b>Titel</b></span></TD>
<TD width=\"75\"><span class=\"normal\"><b>Dato</b></span></TD>
</tr><tr><TD colspan=3 class=tabel1 width=1></TD></tr>
<TR>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spejder.mdb\")
strSQL = \"select top 3 * from diviblad order by id DESC\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"Ingen artikler i databasen\"
else
Do Until rs.EOF
%>
<TD width=\"525\"><span class=\"normal\"><IMG SRC=\"images/pil.gif\" BORDER=\"0\" WIDTH=\"5\" HEIGHT=\"10\" ALIGN=\"bottom\" ALT=\"\"> <a href=\"default.asp?side=diviblad&subside=artikel&id=<%=RS(\"id\")%>\"><%=RS(\"overskrift\")%></a></span></TD>
<TD width=\"75\"><span class=\"normal\"><span class=\"normal\"><%=RS(\"dato\")%></span></td></tr>
<tr><TD colspan=\"2\" class=\"tabel1\" width=\"1\"></TD></tr>
<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>
</TABLE>
</center>
<p>
<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">
<TR>
<TD class=\"tabel4\" colspan=\"2\" width=\"600\"><span class=\"overskrift\"><img src=\"images/punkt.gif\"> Vel overstået divisionssommerlejr</span></TD>
</TR>
<TR>
<TD width=\"300\"><center><img src=\"images/nyheder/divilejr2001.jpg\"></center></TD>
<td width=\"300\"><span class=\"normal\">Så er vi atter vendt hjem efter 9 herlige dages divisionssommerlejr, hvor 350 deltagere fra mikro til senior oplevede spejderfællesskabet krydret med masser af oplevelser og ikke mindst det danske sommervejr når det er allerbedst. Under hele lejren har man dagligt via internettet kunnet følge med i lejravisen \"Gypter-Nyt\". Nu er hele internetudgaven af Gypter-Nyt samlet, så <b><a class=\"normal\" href=\"http://www.dds.dk/troldhoej/egypten/gypternyt/\" target=\"_blank\">klik her</a></b> og gå på opdagelse i lejrens mange sjove historier.<br></span><span class=\"laes\"><DIV STYLE=\"text-align:right\"><a class=\"links\" href=\"default.asp?side=diviblad&subside=artikel&id=41\">Læs mere her >></a></DIV></span></td>
</TR>
</TABLE>
<p>
<center>
<TABLE BORDER=\"0\" CELLSPACING=\"0\" class=\"tabel4\">
<TR>
<TD class=\"tabel1\" colspan=\"2\" width=\"600\"><span class=\"overskrift\">Kommende arrangementer i Troldhøj Division</span></TD></tr>
<TR><TD width=\"525\"><span class=\"normal\"><b>Titel</b></span></TD>
<TD width=\"75\"><span class=\"normal\"><b>Dato</b></span></TD>
</tr><tr><TD colspan=3 class=tabel1 width=1></TD></tr>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spejder.mdb\")
strSQL = \"select top 3 * from kalender where dato >= date() order by id ASC\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"Ingen aktiviteter i databasen\"
else
Do Until rs.EOF
%>
<TR>
<TD width=\"525\"><span class=\"normal\"><IMG SRC=\"images/pil.gif\" BORDER=\"0\" WIDTH=\"5\" HEIGHT=\"10\" ALIGN=\"bottom\" ALT=\"\"> <a href=\"default.asp?side=kalender&subside=info&dato=<%=RS(\"dato\")%>\"><%=RS(\"overskrift\")%></a></TD></span>
<TD width=\"75\"><span class=\"normal\"><%=RS(\"dato\")%></td></span>
<tr><TD colspan=\"2\" class=\"tabel1\" width=\"1\"></TD></tr>
<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>
</TABLE>
</center>
<p>
<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">
<TR>
<TD class=\"tabel4\" colspan=\"2\" class=\"4\" width=\"600\"><span class=\"overskrift\"><img src=\"images/punkt.gif\"> Troldhøj hærges af virus !</span></TD>
</TR>
<TR>
<TD width=\"300\"><span class=\"normal\">Der har i de sidste par dage cirkuleret en virus rundt på Internettet og i E-mail programmer. Virusen går ind og gentager dele af indholdet af e-mail som afsender har skrevet. Hvorefter den går ind og sender sig selv til alle de personer som er i adressekartoteket.
Hvis man kører de vedheftet filer, vil man blive smittet og virusen vil med det samme begynde at sende sig til alle i adressekartoteket.
<p>
</span><span class=\"laes\"><DIV STYLE=\"text-align:right\"><a class=\"links\" href=\"default.asp?side=diviblad&subside=artikel&id=43\">Læs mere her >></DIV></a></span></TD>
<td width=\"300\"><center><img src=\"images/nyheder/virus.gif\"></center></td>
</TR>
</TABLE>
<p>
<TABLE BORDER=\"0\" CELLSPACING=\"0\" class=\"tabel4\">
<TR>
<TD class=\"tabel1\" colspan=\"3\" width=\"600\"><span class=\"overskrift\">Nyeste indlæg i debatten</span></TD></tr>
<TR><TD width=\"250\"><span class=\"normal\"><b>Titel</b></span></TD>
<TD width=\"150\"><span class=\"normal\"><b>Forfatter</b></span></TD>
<TD width=\"150\"><span class=\"normal\"><b>Dato</b></span></TD>
</tr><tr><TD colspan=3 class=tabel1 width=1></TD></tr>
<TR>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spejder.mdb\")
strSQL = \"select top 5 * from Messages order by id DESC\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"<span CLASS=normal>Ingen spørgsmål i debatten</span>\"
else
Do Until rs.EOF
%>
<TD width=\"250\"><span class=\"normal\"><IMG SRC=\"images/pil.gif\" BORDER=\"0\" WIDTH=\"5\" HEIGHT=\"10\" ALIGN=\"bottom\" ALT=\"\"> <a href=\"default.asp?side=debatforum&subside=show_data&MessageID=<%=RS(\"id\")%>&ForumID=<%=RS(\"ForumID\")%>\"><%=RS(\"emne\")%><%nydato = dateadd(\"d\", 2 , RS(\"dato\"))
If nydato > Date() Then%>
<b><span class=\"tabeltekst\"> - NY</span></b>
<%End If %></a></span></TD>
<TD width=\"200\"><span class=\"normal\"><span class=\"normal\"><%=RS(\"navn\")%></span></td>
<TD width=\"150\"><span class=\"normal\"><span class=\"normal\"><%=RS(\"dato\")%></span></td></tr>
<tr><TD colspan=\"3\" class=\"tabel1\" width=\"1\"></TD></tr>
</tr>
</tr>
<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>
</TABLE>
<br><b><span class=\"tabeltekst\">NY</span></b><span class=\"normal\"> = Indlæg der er under 2 dage gammelt</span><p>
</td>
<% end if %>
<% if side = \"om_troldhoej\" Then %>
<!-- #include file=\"info/om_troldhoej.asp\" -->
<% end if %>
<% if side = \"hvorfor_spejder\" Then %>
<!-- #include file=\"info/hvorfor_spejder.asp\" -->
<% end if %>
<% if side = \"grupperne\" Then %>
<!-- #include file=\"grupperne.asp\" -->
<% end if %>
<% if side = \"udvikling\" Then %>
<!-- #include file=\"udvikling.asp\" -->
<% end if %>
<% if side = \"diviblad\" Then %>
<!-- #include file=\"diviblad.asp\" -->
<% end if %>
<% if side = \"kalender\" Then %>
<!-- #include file=\"kalender.asp\" -->
<% end if %>
<% if side = \"debatforum\" Then %>
<!-- #include file=\"debatforum.asp\" -->
<% end if %>
<% if side = \"bygger\" Then %>
<!-- #include file=\"bygger.asp\" -->
<% end if %>
<% if side = \"medlem\" Then %>
<!-- #include file=\"medlem.asp\" -->
<% end if %>
<% if side = \"kontakt\" Then %>
<!-- #include file=\"kontakt.asp\" -->
<% end if %>
<% if side = \"links\" Then %>
<!-- #include file=\"links.asp\" -->
<% end if %>
<% if side = \"idehjornet\" Then %>
<!-- #include file=\"idehjornet.asp\" -->
<% end if %>
<% if side = \"kontakt2\" Then %>
<!-- #include file=\"kontakt2.asp\" -->
<% end if %>
<% if side = \"fotogalleri\" Then %>
<!-- #include file=\"fotogalleri.asp\" -->
<% end if %>
<% if side = \"opret_bruger\" Then %>
<!-- #include file=\"opret_bruger.asp\" -->
<% end if %>
<!-- Indhold: slut -->
</table>
</center>
</td>
</table>
</td>
</tr>
<tr>
<td width=\"100%\" bgcolor=\"#224492\"><span class=\"small\">
<center>Copyright © 1999 - 2001 - Troldhøj Division - Det Danske Spejderkorps<br><a CLASS=\"menu\" href=\"default.asp?side=medlem&subside=info&id=1\">Kontakt Webmaster</a></span><center>
</td>
</tr>
</table>
</center>
</body>
</html>
