<%
Response.Buffer = True
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("gb.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set Record = Server.CreateObject("ADODB.RecordSet")
Sql = "SELECT * FROM beskeder ORDER BY ID DESC"
Record.Open Sql, Con,1
%>
<html>
<head>
<style><!--a:hover{color:00BAFF; font-style:italic; }--></style>
</head>
<%
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
besked = record("besked")
besked = Replace(besked,"ok<ok","<")
besked = Replace(besked,"ok>ok",">")
besked = Replace(besked,"<","<")
besked = Replace(besked,">",">")
%>
<b><font face="verdana" size="1" color="black">Skrevet af </body><font face="verdana" size="1" color="black"><a style="text-decoration: none" href="mailto:<% response.write Record("mail")%>"><font face="verdana" size="1" color="black"><% Response.Write Record("navn")%></a> | <a style="text-decoration: none; a:hover{color:00BAFF; font-style:italic; }" target="_top" href="linkbooster?page=<% response.write Record("HP")%>"><font face="verdana" size="1" color="black"><% response.write Record("HP")%></a> </b>
<font face="verdana" size="1" color="black"><br>D.<% response.write Record("dato")%> klokken <% response.write Record("tid")%><br></font></b></b>
<font size="1"><br></font>
<font face="verdana" size="2" color="black"><% Response.Write besked %>
<br>
<table border="1" width="100%" style="border-width: 0px" bgcolor="#000000" cellspacing="0" cellpadding="0">
<tr>
<td style="border-style: none; border-width: medium">
<span style="font-size: 1pt"> </span></td>
</tr>
</table><br>
<%
Record.MoveNext
intRecCount = intRecCount - 1
Loop
end if
%>
<%
Response.Write "<table><tr>"
Response.Write "<td align=""center"">Gå til side<br> "
For intNum = 1 To intPageCount
Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "</td></tr><tr><td align=""center"">"
If Clng(intPage) > 1 Then
Response.Write "<a href=?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
Response.Write "</td></tr></table>"
%>
<font size="2" face="Verdana" color="#FFCC99">
<a href="?AnaGB=admin"><font size="1" color="black">Admin Login</font></a><font size="2" face="verdana">
</font>
</font>
</font>
<font size="2" face="verdana" color="#FFCC99">
<font size="2" face="verdana">
<%
Con.Close
Set Con = Nothing
%>
