Snälla skulle någon vilja vara jättesnäll o hjälpa mig bygga in paging i denna sidan...har försökt på alla möjliga sätt men är inte såppas duktig att jag får det fungera...
Mkt tacksam för hjälp....
Kod:
<%Response.Buffer = "True"%>
<!--#Include file="settings.asp"-->
<html>
<head>
<title></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>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../style3.css" rel="stylesheet" type="text/css">
</head>
<body>
<div id="Layer2" style="position:absolute; left:600px; top:115px; width:158px; height:650px; z-index:2">
<!--#include file="right.asp" -->
</div>
<div id="Layer2" style="position:absolute; left:10px; top:115px; width:164px; height:702px; z-index:2">
<!--#include file="meny.asp" -->
</div>
<table width="100%" height="19" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="19"><!--#include file="top.asp" --></td>
</tr>
</table>
<table width="1035" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10" colspan="6"><img src="bilder/transparent.gif" width="1" height="10">
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%> </td>
</tr>
<tr>
<td width="169" height="96"> </td>
<td colspan="2"><div align="right">
</div>
"Denna tabellen är det där sakerna ligger som behöver paging."
<table width="400" border="0" align="center" cellpadding="3">
<%Set RecSet=Conn.Execute("Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn")
If RecSet.EOF Then%>
<%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") & "' Order By datum desc")
Set Bilder=Conn.Execute("Select Count(*) As antal From bilder Where namn='" & RecSet("namn") & "'")
If ReS.EOF Then%>
<%Else%>
<tr>
<td width="81" valign="top" nowrap class="text"> <a href="visa.asp?id=<%=RecSet("namn")%>"><img src="pics/<%=ReS("Bild")%>" width="75" border="0"></a> </td>
<td width="301" valign="top"> <span class="menyrubrik"><a href="visa.asp?id=<%=RecSet("namn")%>" class="menyrubrik"><%=RecSet("namn")%></a> </span><span class="text"><br>
</span> <span class="text">
<%If Len(ReS("bildinfo")) > 200 Then%>
<%= Left(Replace(ReS("bildinfo"), vbCrLf, "<br>" ),200)%>...<br>
<br>
<a href="visa.asp?id=<%=RecSet("namn")%>" class="text"><strong>» Mer info</strong></a>
<%Else%>
<%=Replace(ReS("bildinfo"), vbCrLf, "<br>" )%>
<%End If%>
</span></td>
</tr>
<tr>
<tr>
<td height="9" colspan="3"><img src=" http://www.andestyle.se/tidningsguiden/bilder/streck_400.jpg" width="390" height="3"></td>
</tr>
<%End If
RecSet.MoveNext
Loop
End If%>
</table>
</p></td><td width="330"> </td>
<td width="21"> </td>
<td width="100"> </td>
</tr>
</table>
<br>
<br>
<br>
<br>
<br>
</body>
</html>