Paging igen igen

Ja, post den her.

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"guestbook.mdb\") & \";UID=admin;PWD=;\"

If Request.Form(\"Gem\") <> \"\" Then
    strError = \"\"
    strNavn = Trim(Request.Form(\"Navn\"))
    strEmail = Trim(Request.Form(\"Email\"))
    strKommentar = Trim(Request.Form(\"Kommentar\"))
    If Len(strNavn) = 0 Then
        strError = \"<li>Du skal skrive dit navn!</li>\"
    ElseIf validateEmail(strEmail) = False Then
        strError = \"<li>Du skal skrive en gyldig e-mail adresse!</li>\"
    ElseIf Len(strKommentar) = 0 Then
        strError = \"<li>Du skal skrive en kommentar!</li>\"
    End If
    If Len(strError) = 0 Then
        Set rs = Server.CreateObject(\"ADODB.RecordSet\")
        strSQL = \"SELECT * FROM Guestbook WHERE (ID = 0)\"
        rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
        If (rs.BOF Or rs.EOF) Then
            rs.AddNew
            rs(\"Navn\") = Server.HTMLEncode(strNavn)
            rs(\"Email\") = Server.HTMLEncode(strEmail)
            rs(\"Kommentar\") = Server.HTMLEncode(strKommentar)
            rs(\"Dato\") = Now()
            rs.Update
        End If
        rs.Close
        Set rs = Nothing
    Else
        strError = \"<p><ul><font color=#FF0000>\" & strError & \"</font></ul></p>\"
        strMode = \"add\"
    End If
End If
%>
<html>
<head>
<title>The home of Team Matrix</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<script language=\"JavaScript\">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf(\"#\")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf(\"?\"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}
//-->
</script>
</head>

<body bgcolor=\"756F6F\" text=\"#000000\" onLoad=\"MM_preloadImages(\'../Knapper/messageboard2.gif\',\'../Knapper/nyheder2.gif\',\'../Knapper/medlemmer2.gif\',\'../Knapper/profil2.gif\',\'../Knapper/links2.gif\',\'../Knapper/multimedie2.gif\',\'../Knapper/tovby2.gif\',\'../Knapper/admin2.gif\')\" link=\"#000000\" vlink=\"#000000\" alink=\"#000000\">
<div align=\"center\">
  <table width=\"696\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" height=\"457\" bordercolor=\"5C5A5A\">
    <tr>
      <td height=\"699\" valign=\"top\" align=\"right\">
        <table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
          <tr>
            <td><img src=\"../Billeder/TeamMatrixHeader%20copy.gif\" width=\"700\" height=\"100\"></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table>
        <table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
          <tr>
            <td width=\"87\"><a href=\"../index.html\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'nyheder\',\'\',\'../Knapper/nyheder2.gif\',1)\"><img name=\"nyheder\" border=\"0\" src=\"../Knapper/nyheder1.gif\" width=\"87\" height=\"30\" alt=\"Her kan du finde nyheder om siden eller hardball\"></a></td>
            <td width=\"87\"><a href=\"Medlemmer.html\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Image4\',\'\',\'../Knapper/medlemmer2.gif\',1)\"><img name=\"Image4\" border=\"0\" src=\"../Knapper/medlemmer1.gif\" width=\"87\" height=\"30\" alt=\"P&aring; denne side kan du finde information om medlemmerne i Team Matrix. Hvis du trykker p&aring; navnene vil der komme uddybende information.\"></a></td>
            <td width=\"87\"><a href=\"profil.html\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Image5\',\'\',\'../Knapper/profil2.gif\',1)\"><img name=\"Image5\" border=\"0\" src=\"../Knapper/profil1.gif\" width=\"87\" height=\"30\" alt=\"Denne side rummer vores profil, hvor du bland andet kan l&aelig;se om historien bag Team Matrix.\"></a></td>
            <td width=\"87\"><a href=\"Brandby%20fotoalbum/index.htm\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'multimedie\',\'\',\'../Knapper/multimedie2.gif\',1)\"><img name=\"multimedie\" border=\"0\" src=\"../Knapper/multimedie1.gif\" width=\"87\" height=\"30\" alt=\"Her kan du finde billeder, videoklip og andre godter.\"></a></td>
            <td width=\"87\"><a href=\"guestbook.asp\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'messageboard\',\'\',\'../Knapper/messageboard2.gif\',1)\"><img name=\"messageboard\" border=\"0\" src=\"../Knapper/messageboard1.gif\" width=\"87\" height=\"30\" alt=\"Dette er stedet hvor du kan efterlade en besked til Team Matrix.\"></a></td>
            <td width=\"87\"><a href=\"Links.html\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Image6\',\'\',\'../Knapper/links2.gif\',1)\"><img name=\"Image6\" border=\"0\" src=\"../Knapper/links1.gif\" width=\"87\" height=\"30\" alt=\"TADA! titlen siger alt :o)\"></a></td>
            <td width=\"80\"><a href=\"Tovby%20fotoalbum/index.htm\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'tovby\',\'\',\'../Knapper/tovby2.gif\',1)\"><img name=\"tovby\" border=\"0\" src=\"../Knapper/tovby1.gif\" width=\"87\" height=\"30\" alt=\"Her kan du finde information og billeder fra det berygtede Tovby. N&aring;r det bliver aktuelt vil der ogs&aring; komme en side for holdene som er meldt til.\"></a></td>
            <td width=\"98\"><a href=\"Admin/login.asp\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Admin\',\'\',\'../Knapper/admin2.gif\',1)\"><img name=\"Admin\" border=\"0\" src=\"../Knapper/admin1.gif\" width=\"87\" height=\"30\" alt=\"Siden som medlemmer af Team Matrix bruger for at logge ind.\"></a></td>
          </tr>
        </table>
        <div align=\"center\">
          <p><br>
            <br>
            <b><font face=\"Arial, Helvetica, sans-serif\" size=\"5\"><img src=\"../Billeder/Overskrifter/messageboard.gif\" width=\"250\" height=\"50\">
            </font></b></p>
          <p><font face=\"Arial, Helvetica, sans-serif\">Dette er Team Matrix\'s
            messageboard. Her kan du skrive en kommentar om siden, en besked til
            holdet eller blot en hilsen.</font></p>
          <table width=\"85%\" border=\"1\" bordercolor=\"5C5A5A\" cellspacing=\"0\">
            <tr>
              <td><%
Select Case strMode
Case \"add\"
%>
<form method=\"POST\" action=\"guestbook.asp\">
                  <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
                    <tr>
                      <td valign=\"middle\" align=\"left\" colspan=\"2\"><font face=\"Arial, Helvetica, sans-serif\"><font face=\"arial\" size=\"2\">
                        </font>
                        <div align=\"center\"><font face=\"Arial, Helvetica, sans-serif\"><br>
                          Indtast venligst oplysningerne i følgende felter:<strong>
                          <%=strError%><br>
                          </font></div>
                      </td>
                    </tr>
                    <tr>
                      <td valign=\"middle\" align=\"left\"><font face=\"Arial, Helvetica, sans-serif\"><div align=\"right\">
                        </font>
                        <p><font face=\"Arial, Helvetica, sans-serif\"><strong><font size=\"2\">Navn:</font></strong></font>
                      </td>
                      <td valign=\"middle\" align=\"left\">
                        <input type=\"text\" name=\"Navn\" size=\"40\" value=\"<%=strNavn%>\">
                      </td>
                    </tr>
                    <tr>
                      <td valign=\"middle\" align=\"left\"><font face=\"Arial, Helvetica, sans-serif\"><div align=\"right\">
                        </font>
                        <p><font face=\"Arial, Helvetica, sans-serif\"><strong><font size=\"2\">E-mail:</font></strong></font>
                      </td>
                      <td valign=\"middle\" align=\"left\">
                        <input type=\"text\" name=\"Email\" size=\"40\" value=\"<%=strEmail%>\">
                      </td>
                    </tr>
                    <tr>
                      <td valign=\"top\" align=\"left\"><font face=\"Arial, Helvetica, sans-serif\"><div align=\"right\">
                        </font>
                        <p><font face=\"Arial, Helvetica, sans-serif\"><strong><font size=\"2\">Kommentar:</font></strong></font>
                      </td>
                      <td valign=\"middle\" align=\"left\">
                        <textarea rows=\"3\" name=\"Kommentar\" cols=\"40\"><%=strKommentar%></textarea>
                      </td>
                    </tr>
                    <tr>
                      <td valign=\"middle\" align=\"left\" colspan=\"2\">
                        <div align=\"center\"><font face=\"Arial, Helvetica, sans-serif\"><br>
                          <input type=\"submit\" value=\"Skriv indlæg!\" name=\"Gem\">
                          <input type=\"button\" value=\"Annuller\" name=\"Annuller\" onClick=\"java script:location.href=\'guestbook.asp\'\">
                          </font></div>
                      </td>
                    </tr>
                  </table>
</form>
<%


Case Else
    strAddLine = \"<p><img src=../billeder/add.gif width=16 height=16>&nbsp;<a href=guestbook.asp?mode=add><strong><font face=verdana size=2>Skriv et indlæg i vores gæstebog!</font></strong></a></p>\"
    Response.Write strAddLine
    strSQL = \"SELECT top 20 * FROM Guestbook ORDER BY Dato DESC;\"
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open tempConn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write \"<table width=100% border=0 cellpadding=1 cellspacing=1>\"
        Do While Not rs.EOF
            dtmDato = rs(\"Dato\")
            dtmDato = FormatDateTime(dtmDato,vbLongDate) & \" kl. \" & FormatDateTime(dtmDato,vbLongTime)
            Response.Write \"<tr bgcolor=#006666><td width=\"\"100%\"\"><font face=arial color=#FFFFFF size=2>\" & dtmDato & \"</td></tr>\"
            If Len(rs(\"Email\")) > 0 Then
                Response.Write \"<tr><td><font face=arial size=2><strong><a href=mailto:\" & rs(\"Email\") & \">\" & rs(\"Navn\") & \"</a> skriver:</strong></td></tr>\"
            Else
                Response.Write \"<tr><td><font face=arial size=2><strong>\" & rs(\"Navn\") & \" skriver:</strong></td></tr>\"
            End If
            Response.Write \"<tr><td><font face=arial size=2>\" & rs(\"Kommentar\") & \"<br>&nbsp;</td></tr>\"
            rs.MoveNext
        Loop
        Response.Write \"</table>\"
    Else
        Response.Write \"<p><font face=arial size=2>Der er endnu ikke nogle der har skrevet i gæstebogen</font></p>\"
    End If
    myConn.Close
    Set myConn = Nothing
    Response.Write strAddLine
End Select
%></td>
            </tr>
          </table>
         
          <br>
          <br>
        </div>
        <table width=\"100%\" border=\"0\" cellspacing=\"2\" cellpadding=\"2\">
          <tr>
            <td>
              <div align=\"right\">
                <input type=\"button\" name=\"Button\" value=\"Til toppen\" onClick=\"MM_callJS(\'window.scroll(0,0)\')\">
              </div>
            </td>
          </tr>
        </table>
       
      </td>
    </tr>
  </table>
  <table width=\"704\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bordercolor=\"5C5A5A\" bgcolor=\"5C5A5A\">
    <tr>
      <td align=\"center\" height=\"19\"><font face=\"Arial, Helvetica, sans-serif\">
        <font color=\"#FFFFFF\" size=\"1\"><b><font color=\"756F6F\" size=\"2\">Copyright&copy;
        2001 Team Matrix</font></b></font></font></td>
    </tr>
  </table>
</div>
</body>
</html>

<script language=\"VBScript\" runat=\"Server\">
Function validateEmail(strEmail)
    validateEmail = True
    If Len(strEmail) < 6 Then
        validateEmail = False
    End If
    If InStr(1, strEmail, \"@\", 1) < 2 Then
        validateEmail = False
    End If
    If InStr(1, strEmail, \".\", 1) = 0 Then
        validateEmail = False
    End If
    pos = InStr(1, strEmail, \"@\", 1)
    If pos < 2 Then
        validateEmail = False
            Else
        pos = InStr(pos+1, strEmail, \"@\")
        If pos > 0 Then
            validateEmail = False
        End If
    End If
End Function
</script>

hvor vil du ha paging henne ?

marker med:
\'-----------------------start
\'-----------------------slut

nu er jeg ikke den vildeste asp haj... men det skal vel være der hvor posts bliver vist...altså den nederste del af koden?