på denne her måde viser den alt i databasen...
<%
PageSize = 10
Conn_String = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")
If Request(\"PageTo\") <> \"\" Then
strPageTo = Request(\"PageTo\")
If strPageTo <> \"\" Then
nPageTo = int(strPageTo)
If nPageTo < 1 Then
nPageTo = 1
End If
Else
nPageTo = 1
End If
Set RS = Session(\"ListingRS\")
RS.AbsolutePage = nPageTo
else
Set Conn=Server.CreateObject(\"ADODB.Connection\")
Conn.ConnectionTimeout=15
Conn.CommandTimeout=30
Conn.Open Conn_String
Set Cmd=Server.CreateObject(\"ADODB.Command\")
Set RS=Server.CreateObject(\"ADODB.Recordset\")
Cmd.CommandType = 1
Set Cmd.ActiveConnection = Conn
Cmd.CommandText=\"SELECT * From jwringetoner order by ID desc;\"
RS.Open Cmd, , 1, 1
RS.PageSize = PageSize
Set Session(\"ListingRS\") = RS
nPageTo = 1
If not (RS.BOF and RS.EOF) Then
Set RS = Session(\"ListingRS\")
RS.AbsolutePage = nPageTo
End If
end if
If RS.EOF Then
Response.Write(\" <br><br><font size=4 color=\'red\'<b>No Script were found <br></b></font><br>\")
Else
nRowCount = RS.PageSize
While not RS.EOF and nRowCount > 0
Count = 0
for i = 1 to Count
next
dagar=DateDiff(\"d\", Dato, RS(\"Dato\"))+2
if dagar >= 0 then
%>
<table border=\"0\" width=\"100\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\" align=\"center\">
<tr>
<td bgcolor=\"#FFFFFF\" valign=\"top\" class=\"menuoverskrift\" colspan=\"2\">
<table width=\"100%\" border=\"0\">
<tr>
<td height=\"14\" width=\"44%\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>Tilføjet
af: <a href=\"mailto:<% = rs(\"email\") %>\">
<% = rs(\"navn\") %>
</a> </b></font></td>
<td height=\"14\" width=\"56%\">
<div align=\"right\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>Tilføjet
Kl.
<% = rs(\"kl\") %>
</b></font><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>D.
<% = rs(\"dato\") %>
</b></font></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor=\"#FFFFFF\" valign=\"top\" class=\"menuoverskrift\" colspan=\"2\">
<table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#e5e5e5\" height=\"17\">
<tr>
<td bgcolor=\"#f7f7f7\">
<table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" class=\"1px_ganz\" height=\"8\">
<tr>
<td height=\"13\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>
<% = rs(\"rnokia\") %>
</b></font> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<hr width=\"400\" noshade size=\"1\" align=\"center\">
<%
end if
nRowCount = nRowCount - 1
RS.MoveNext
Wend
\'Display Paging Buttons
Response.Write(\"<center><table border=0 cellpadding=4 cellspacing=4><tr>\")
\' Display <<
Response.Write(vbcr & \"<form action=\" & Request.ServerVariables(\"SCRIPT_NAME\") & \" method=post id=form1>\")
Response.Write(vbcr & \"<td align=center><font face=arial size=3><b>\")
If int(nPageTo) = 1 Then
Response.Write(vbcr & \"<input type=submit value=\' << Første \' style=\'{font-weight:bold}\' DISABLED id=submit2 name=submit2><input type=hidden name=PageTo value=1>\")
Else
Response.Write(vbcr & \"<input type=submit value=\' << Første \' style=\'{font-weight:bold}\' id=submit1 name=submit1><input type=hidden name=PageTo value=1>\")
End IF
Response.Write(vbcr & \"</td>\")
Response.Write(vbcr & \"</form>\")
\' Display <
Response.Write(vbcr & \"<form action=\" & Request.ServerVariables(\"SCRIPT_NAME\") & \" method=post id=form2>\")
Response.Write(vbcr & \"<td align=center><font face=arial size=3><b>\")
If int(nPageTo) = 1 Then
Response.Write(vbcr & \"<input type=submit value=\' < Tilbage \' id=submit1 name=submit1 style=\'{font-weight:bold}\' DISABLED><input type=hidden name=PageTo value=1>\")
Else
Response.Write(vbcr & \"<input type=submit value=\' < Tilbage \' id=submit1 name=submit1 style=\'{font-weight:bold}\'>\")
Response.Write(vbcr & \"<input type=hidden name=PageTo value=\" & nPageTo-1 & \">\")
End If
Response.Write(vbcr & \"</td>\")
Response.Write(vbcr & \"</form>\")
\' Display >
Response.Write(vbcr & \"<form action=\" & Request.ServerVariables(\"SCRIPT_NAME\") & \" method=post id=form3>\")
Response.Write(vbcr & \"<td align=center><font face=arial size=3><b>\")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & \"<input type=submit value=\' Næste > \' id=submit1 name=submit1 style=\'{font-weight:bold}\' DISABLED><input type=hidden name=PageTo value=\" & nPageTo & \">\")
Else
Response.Write(vbcr & \"<input type=submit value=\' Næste >\' id=submit1 name=submit1 style=\'{font-weight:bold}\'>\")
Response.Write(vbcr & \"<input type=hidden name=PageTo value=\" & nPageTo+1 & \">\")
End IF
Response.Write(vbcr & \"</td>\")
Response.Write(vbcr & \"</form>\")
\' Display >>
Response.Write(vbcr & \"<form action=\" & Request.ServerVariables(\"SCRIPT_NAME\") & \" method=post id=form4>\")
Response.Write(vbcr & \"<td align=center><font face=arial size=3><b>\")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & \"<input type=submit value=\' Sidste >> \' id=submit1 name=submit1 style=\'{font-weight:bold}\' DISABLED><input type=hidden name=PageTo value=\" & nPageTo & \">\")
Else
Response.Write(vbcr & \"<input type=submit value=\' Sidste >> \' id=submit1 name=submit1 style=\'{font-weight:bold}\'><input type=hidden name=PageTo value=\" & RS.PageCount & \">\")
End IF
Response.Write(vbcr & \"</td>\")
Response.Write(vbcr & \"</form>\")
Response.Write(\"</tr>\")
Response.Write(\"<tr>\")
Response.Write(\"<td colspan=4 align=center><font face=\'Verdana\' size=2 ><b>Side </font><font face=\'Verdana\' size=2 color=\'red\'><b>\" & nPageTo & \"</font><font face=\'Verdana\' size=2><b>/</font><font face=\'Verdana\' size=2 color=\'red\'><b>\" & RS.PageCount & \"</font></b>\")
Response.Write(\"</td>\")
Response.Write(\"</tr>\")
Response.Write(\"</table>\")
end if
%>
