En hjælper

Nogen der kan se en fejl her? Når man tilføjer databasen, så kommer der info., men denne side nægter at hive dem ud igen why??

--

<%
Session.LCID = 1033

Response.Buffer = True

Sub Print(Tekst)
    Response.Write Tekst & VbCrLf
End Sub

Print \"<html>\"
Print \"<head>\"
Print \"<title>Konkurrenceside</title>\"
Print \"</head>\"
Print \"<body bgcolor=\'#FFFFFF\' topmargin=\'0\' leftmargin=\'0\'>\"
Print \"<center>\"

Response.Write(\"<center>\")
%>
<!-- #include file=\"banner.asp\" -->
<!-- #include file=\"banner.asp\" -->
<%
Response.Write(\"</center> </p>\")

Print \"<h1>Konkurrencer</h1>\"

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set RS = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM tKonkurrence WHERE [StartTid] <= #\" & now() & \"# AND [SlutTid] > #\" & now() & \"# order by [StartTid] desc\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"konkurrencer.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
  Do While Not rs.EOF And intRecCount > 0

Print \"<table bgcolor=\'#404040\' width=\'500\' cellspacing=\'2\' cellpadding=\'2\' border=\'0\'>\"
Print \"<tr>\"
Print \"<td colspan=\'3\' align=\'center\' valign=\'top\' bgcolor=\'#525252\'><font face=\'Arial\' size=\'+2\' color=\'#FFFFFF\'><b>\"
Print \"<a target=\'_blank\' href=\'\"&RS(\"URL\")&\"\'>\"&RS(\"Navn\")
Print \"</b></font></td>\"
Print \"</tr>\"
Print \"<tr>\"
Print \"<td colspan=\'3\' valign=\'top\' bgcolor=\'#646464\'><font face=\'Arial\' color=\'#FFFFFF\'>\"&RS(\"Beskrivelse\")&\"</font></td>\"
Print \"</tr>\"
Print \"<tr>\"
Print \"<td colspan=\'3\' valign=\'top\' bgcolor=\'#767676\'><font face=\'Arial\' color=\'#FFFFFF\'>\"&RS(\"Gevinst\")&\"</font></td>\"
Print \"</tr>\"
Print \"<tr>\"
Print \"<td valign=\'top\' bgcolor=\'#888888\' width=\'150\'><font face=\'Arial\' color=\'#FFFFFF\'>\"&FormatDateTime(RS(\"Opsat\"),1)&\"</font></td>\"
Print \"<td valign=\'top\' bgcolor=\'#888888\' width=\'200\' align=\'center\'><font face=\'Arial\' color=\'#FFFFFF\'>&#171; Starter - Slutter &#187;</font></td>\"
Print \"<td valign=\'top\' bgcolor=\'#888888\' align=\'right\' width=\'150\'><font face=\'Arial\' color=\'#FFFFFF\'>\"&FormatDateTime(RS(\"SlutTid\"),1)&\"</font></td>\"
Print \"</tr>\"
Print \"</table>\"

  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
  Response.Write \"<a href=default.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
  Response.Write \"<a href=default.asp?page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
  Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"<a href=default.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
  Response.Write \"&gt;&gt;\"
End If

%>