Skulle bli glad om någon skulle vilja hjälpa mig så att jag kan dela in detta i olika sidor (pagning) På Aspsidan har jag lagt upp en funktion som heter Pager:Hjälp med Paging
Har tittat och försökt med olika alternativ i forumer och bland artiklarna men får det ej att funka :-(
<code>
<%Response.Buffer = "True"%>
<!--#Include file="settings.asp"-->
<html>
<head>
<title>»» Bildgalleri ««</title>
<script language="JavaScript">
<!--
function blured()
{
for (a in document.links) document.links[a].onfocus = document.links[a].blur;
}
if (document.all)
{
document.onmousedown = blured;
}
// -->
</script>
<link href="../style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {
font-size: 16px;
font-weight: bold;
}
-->
</style>
</head>
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="1"> </td>
<td class="2"> </td>
<td class="3"> </td>
</tr>
<tr>
<td class="8"> </td>
<td><table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top" class="text"><span class="style1">DreamHouse Baby Galleri </span></td>
</tr>
</table>
<table width="400" border="0" align="center" cellpadding="0">
<%Set RecSet=Conn.Execute("Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn")
If RecSet.EOF Then%>
<tr>
<td>Inga användare inlagda i kategorin <%=Request.Querystring("kat")%>!</td>
</tr>
<%Else
Do Until RecSet.EOF
Set RS=Conn.Execute("Select * From galleri Where namn='" & RecSet("namn") & "'")
Set ReS=Conn.Execute("Select Top 1 * From bilder Where namn='" & RecSet("namn") & "' and visa=True Order By datum desc")
Set Bilder=Conn.Execute("Select Count(*) As antal From bilder Where namn='" & RecSet("namn") & "'")
If ReS.EOF Then%>
<tr>
<td width="113" valign="top" nowrap class="normal">
<img src="pics/tom.gif" width="90" border="1">
</td>
<td valign="top" class="normal" width="298"> <font size="2"><%=RecSet("namn")%> <span class="news"><font color="#999999">(<i>Inga bilder</i>)</font></span></font><span class="news"><br>
Skapad: <%=Day(RS("datum")) & " " & MonthName(Month(RS("datum"))) & " " & Year(RS("datum"))%><br>
<%If Len(RS("info")) > 60 Then%>
<%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..
<%Else%>
<%=Replace(RS("info"), vbCrLf, "<br>" )%>
<%End If%>
</span> </td>
</tr>
<tr>
<td colspan="2" height="10"><img src="bilder/dot400.gif"></td>
</tr>
<%Else%>
<tr>
<td width="113" valign="top" nowrap class="normal">
">" width="90" border="1" class="shadow"> </td>
<td valign="top" class="normal" width="298"> <span class="news"><b>"><%=RecSet("namn")%></b> <font color="#666666">(<i><%=Bilder("Antal")%> <%If Bilder("Antal") = 1 Then%>
bild
<%Else%>
bilder
<%End If%>
</i>)</font></span>
<br><img src="bilder/line.jpg" width="140" height="4"><br>
<span class="text">
<%If Len(RS("info")) > 60 Then%>
<%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..
<%Else%>
<%=Replace(RS("info"), vbCrLf, "<br>" )%>
<%End If%>
</span> </td>
</tr>
<tr>
<td colspan="2" valign="top" nowrap class="normal"><span class="news">Uppdaterad: <%=Day(ReS("datum")) & " " & MonthName(Month(ReS("datum"))) & " " & Year(ReS("datum")) & " kl: " & FormatDateTime(ReS("datum"),4)%></span></span></td>
</tr>
<tr>
<td colspan="2" height="10"><img src="bilder/dot400.gif"></td>
</tr>
<%End If
RecSet.MoveNext
Loop
End If%>
</table></td>
<td class="4"> </td>
</tr>
<tr>
<td class="7"> </td>
<td class="6"> </td>
<td class="5"> </td>
</tr>
</table>
</body>
</html>
</code>
/TommySv: Hjälp med Paging
http://www.aspsidan.se/default.asp?page=scripts&menu=3&sp=showScriptCategory&cId=4
Det är en klass som kapslar in ett Recordset och lägger till funktioner för sidbläddring. Det enda man behöver ändra i koden är alltså att ersätta recordsetet med ett Pager-objekt, och lägga till koden för att skriva ut sidbläddringen.