Paging

Jeg eksperimenteret lidt med paging....

Hvad er der galt her ?`

*******************************
<!-- #include file=\"include/header.inc\"-->

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

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT LinkURL FROM Links\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"news.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

    Select Case weekday(rs(\"Dato\"))
    case 1 dag = \"Søndag\"
    case 2 dag = \"Mandag\"
    case 3 dag = \"Tirsdag\"
    case 4 dag = \"Onsdag\"
    case 5 dag = \"Torsdag\"
    case 6 dag = \"Fredag\"
    case 7 dag = \"Lørdag\"
    End Select

    Select Case month(rs(\"Dato\"))
    case 1 maaned = \" januar \"
    case 2 maaned = \" februar \"
    case 3 maaned = \" marts \"
    case 4 maaned = \" april \"
    case 5 maaned = \" maj \"
    case 6 maaned = \" juni \"
    case 7 maaned = \" juli \"
    case 8 maaned = \" august \"
    case 9 maaned = \" september \"
    case 10 maaned = \" oktober \"
    case 11 maaned = \" november \"
    case 12 maaned = \" december \"
    End Select

    dtmDato = rs(\"Dato\")
    dtmDato = \" kl. \" & FormatDateTime(dtmDato,vbShortTime)
    strComment = replace(rs(\"Kommentar\"), chr(13), \"<br>\")

  Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
  Do While Not rs.EOF And intRecCount > 0 then

    Response.Write \"<table border=0 cellpadding=3 cellspacing=0 height=100\" & \"%\" & \">\"
    Response.Write \"<tr bgcolor=#187FFF><td><p class=newscolor><B><A NAME=\" & RS(\"ID\") & \"></A>\" & RS(\"Overskrift\") & \"</b> - \" & dag & \" d. \" & day(rs(\"Dato\")) & maaned & year(rs(\"Dato\")) & dtmDato & \"</p></td></tr>\"
    Response.Write \"<tr><td>\" & StrComment & \"</td></tr>\"
    Repsonse.Write \"<tr align=right><td>

    if rs(\"Email\") <> \"\" then
      Response.Write \"// <a href=mailto:\" & RS(\"Email\") & \" onmouseover=Videre(this,3) onmouseout=IkkeVidere(this)>\" & RS(\"Af\") & \"</a>\"
else
      Response.Write \"// \" & rs(\"Af\")
end if
    Response.Write \"</td></tr>\"

  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=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
  Response.Write \"<a href=paging.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=paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
  Response.Write \"&gt;&gt;\"
End If
%>

<!-- #include file=\"include/footer.inc\"-->
*******************************