Virker stadig ikke her får du sådan som scriptet ud nu!
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body bgcolor="#F3F3F3" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set rstemp = Server.CreateObject("ADODB.Connection")
strSQL = "SELECT * FROM News ORDER by id desc"
set rs = rstemp.Open strSQL
If Not (rstemp.BOF Or rstemp.EOF) Then
rstemp.PageSize = 5
rstemp.AbsolutePage = intPage
intRecCount = rstemp.PageSize
intPageCount = rstemp.PageCount
%>
<% Do While Not rstemp.EOF And intRecCount > 0 %>
<div align="left">
<left>
<table border="0" width="180" cellspacing="0" cellpadding="2" bgcolor="#F3F3F3">
<tr>
<td width="174" style="border-left: 1 solid #F3F3F3; border-right: 1 solid #F3F3F3; border-top: 1 solid #F3F3F3" height="6"><font face="verdana" size="2"><b><%=rstemp("overskrift").Value %></b></font></td>
</tr>
<tr>
<td width="174" style="border: 1 solid #F3F3F3" height="6"><font face="verdana" size="1"><%=rstemp("tekst").Value %></font></td>
</tr>
<tr>
<td width="174" style="border-left: 1 solid #F3F3F3; border-right: 1 solid #F3F3F3; border-bottom: 1 solid #F3F3F3"><font face="verdana" size="1">
<font color="#990000"><b>Skrevet af</b> </font> <a href="mailto:<%=rstemp("email").Value %>">
<font color="#990000"><%=rstemp("forfatter").Value %></font></a><font color="#990000"> <b>d.</b></font> <%=rstemp("dato").Value %></font></td>
</tr>
</table>
</left>
</div>
<br>
<%
intRecCount = intRecCount - 1
rstemp.movenext
loop
else
End If
%>
<div align="center">
<center>
<table border="0">
<tr>
<td>
<%
If Clng(intPage) > 1 Then
Response.Write "<a href=index.asp?page="& intPage - 1 &"><< Previous</a>"
Else
Response.Write " "
End If
%>
</td>
<td>
<%
For intNum = 1 To intPageCount
Response.Write "<a href=index.asp?page=" & intNum & ">" & intNum & "</a> - "
Next
%>
</td>
<td>
<%
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=index.asp?page="& intPage + 1 &">Next >></a> "
Else
Response.Write " "
End If
%>
</td>
</tr>
</table>
</center>
</div>
<%
rstemp.Close
Set rstemp = Nothing
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
