Her er hele koden:
###########################################################################
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
%>
<html>
<!--#include file="../Community/Style.asp"-->
<head>
<title><%=Title%></title>
</head>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../RaiX.mdb") & ""
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Nyheder ORDER BY id DESC"
rs.Open strSQL, Conn, 1, 3
If Session("Brugernavn") <> "" Then
Set rs1 = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Brugere Where Brugernavn = '" & Session("Brugernavn") & "'"
rs1.Open strSQL, Conn, 1, 3
End if
rs.PageSize = 6
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<center>"
If Clng(intPage) > 1 Then
Response.Write " <a href=Nyheder.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write " <<"
End If
Response.Write " <select name='nyhedersidenr' onchange='if (this.selectedIndex!=0) location.href=this.options[this.selectedIndex].value'>"
Response.Write "<option>Vælg side</option>"
For intNum = 1 To intPageCount
Response.Write "<option style='font-family: Tahoma; font-size: 8pt; border: 1 solid #000000' value='Nyheder.asp?page=" & intNum & "'>" & intNum & "</option>"
Next
Response.Write "</select> "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write " <a href=Nyheder.asp?page=" & intPage + 1 & ">>></a>"
Else
Response.Write " >>"
End If
Response.Write "</center>"
If rs.EOF then
Response.write "<center><br>Der er ikke skrevet nogle Nyheder.</center><br>"
Else
Do Until rs.EOF And intRecCount > 0
%>
<table border="0" width="100%" bordercolor="#7B8495" cellpadding="2" bordercolorlight="#7B8495" bordercolordark="#7B8495" height="23" style="border-collapse: collapse">
<td width="998" bordercolor="#7B8495" colspan="2" height="12" bordercolorlight="#7B8495" bordercolordark="#7B8495">
<% If Session("Brugernavn") <> "" Then %>
<p><b><a href="Nyhed.asp?id=<%=rs("id")%>"><%=rs("Overskrift")%></a><% If rs1("AdgangRetNyhed") = "Ja" Then %> - <a href="RetNyhed.asp?id=<%=rs("id")%>">Ret</a><% End if %><% If rs1("AdgangSletNyhed") = "Ja" Then %> - <a href="SletNyhed.asp?id=<%= rs("id")%>">Slet</a><% End if %><% If rs1("AdgangSeBrugerIP") = "Ja" Then %> - <%=rs("ip")%><% End if %></b></td>
<% Else %>
<p><b><a href="Nyhed.asp?id=<%=rs("id")%>"><%=rs("Overskrift")%></a></b></td>
<% End if %>
</tr>
<tr>
<td vAlign=top width="28" height="1" bordercolorlight="#7B8495" bordercolordark="#7B8495">
<a href="Nyhed.asp?id=<%=rs("id")%>"><img border="0" src="<%= rs("Billede")%>" height="70" width="70" style="border: 1px solid #7B8495"></a></font></td>
<td vAlign=top width="966" height="1" bordercolorlight="#7B8495" bordercolordark="#7B8495">
<a href="Nyhed.asp?id=<%=rs("id")%>">
<%
Response.Write "" & left(rs("Nyhed"),140) & ""
%>
</a>
</td>
</tr>
<tr>
<td width="998" bordercolor="#7B8495" colspan="2" height="12" bordercolorlight="#7B8495" bordercolordark="#7B8495">
<p>Skrevet af <a href="../Community/Profil.asp?Brugernavn=<%= rs("Brugernavn")%>"><b><%= rs("Brugernavn")%></b></a> - D. <%= rs("Day")%>/<%= rs("Month")%>-<%= rs("Year")%> - <%= rs("Hour")%>:<%= rs("Minute")%>:<%= rs("Second")%></td>
</tr>
</table>
<br>
<%
rs.MoveNext
Loop
End if
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Write "<center>"
If Clng(intPage) > 1 Then
Response.Write " <a href=Nyheder.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write " <<"
End If
Response.Write " <select name='nyhedersidenr' onchange='if (this.selectedIndex!=0) location.href=this.options[this.selectedIndex].value'>"
Response.Write "<option>Vælg side</option>"
For intNum = 1 To intPageCount
Response.Write "<option style='font-family: Tahoma; font-size: 8pt; border: 1 solid #000000' value='Nyheder.asp?page=" & intNum & "'>" & intNum & "</option>"
Next
Response.Write "</select> "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write " <a href=Nyheder.asp?page=" & intPage + 1 & ">>></a>"
Else
Response.Write " >>"
End If
Response.Write "</center>"
%>
</body>
</html>
#########################################################################
