hirayz : Uha...kan jeg ikke huske....
Koden fra news.asp får i her :
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
strSQL = "Select * from jwnews"
set rscount = conn.execute("select count(id) as antal from jwnews")
antal = rscount("antal")
set rscount = nothing
%>
<html>
<head>
<title>Nyheder</title>
</head>
<body bgcolor="#4F7690" text="#000000" link="#006699" vlink="#006699" alink="#006699">
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#4F7690" valign="top" colspan="2">
<div align="center">
<p>
<p>
<p><br>
<p>
<%
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 jwnews 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=3 color='white'<b>Ingen nyheder fundet.<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="#4F7690" 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="#4F7690" valign="top" class="menuoverskrift" colspan="2">
<table width="400" border="0" cellspacing="0" cellpadding="0" bgcolor="#e5e5e5" height="17">
<tr>
<td bgcolor="#4F7690">
<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("kommetare") %>
</b></font> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<hr width="400" noshade size="1" color="#000000">
<%
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
%>
<br>
<font size="1"> </font> </div>
</td>
</tr>
</table>
<p> </p>
<p> </p>
</body>
</html>
