20 pr side
Hejsa....Jeg har lavet en tagwall som fungerer fint nok, og jeg fant en asp kode på activedeveloper. Jeg har blandet min tagwall og koden sammen, og nu viser "siden kan ikke vises..."
Her er scriptet:
<html>
<head>
<title>Tagwall</title>
<style>
<!--
a{text-decoration:none}
//-->
</style>
</head>
<body>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from messages order by id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/guest.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
Response.Write "<table cellspacing=0 cellpadding=0 border=0 bgcolor="000000" width="300">
<tr>
<td>
<table bgcolor="ffffff" width="100%">
<tr>
<td><font face="Tahoma" size="2">Den <%=rs("msg") %> tilføjede <a href="mailto:<%=rs("from_mail")%>"><%=rs("from_name")%></a>
</tr>
<tr>
<td colspan=2><font face="Tahoma" size="2"><%=rs("dato")%></font></td>
</tr>
</table>
</td>
</tr>
</table>
<font face="Tahoma" size="2">
<br><br>
</font>"
& "<br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=vis_tag2.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=vis_tag2.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=vis_tag2.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</body>
</html>
