Jag väljer en kategori från min "defaul.asp" sida i en listmeny. Vill sedan att den hä sidan ska lista fram 10 poster åt gången, dem första tio går bar och den visar att det finns fler poster med 1 2 3 4 5 osv , men när jag ska gå till nästa post skriver den bara ut att "Databasen är tom" hur gör jag för att den ska hålla kvar det jag valde från första sidan (default.asp) ??? Ursäkta en dum kommentar - har du lyckats så här långt kan du väl inte ha så svårt att klara av det själv?paging
<%@ LANGUAGE=VBScript%>
<!-- #include file = "rakna.inc" -->
<%
Dim MinCon
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\linker\lankar.mdb"
%>
<%
Const perSida = 10
Dim onPage
If Request.QueryString("onPage") = "" then
onPage = 1
Else
onPage = Request.QueryString("onPage")
End If
Dim kat_val
If Request.QueryString("kat_val") = "" then
kat_val = Request.Form("listval")
Else
kat_val = Request.QueryString("kat_val")
End if
Dim rs
Set rs= Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3 'Här kan du byta ut 3 mot adUseClient om du inkluderar filen adobvs.inc
rs.CacheSize = perSida
SQL = "SELECT * From lankar WHERE kat = '" & kat_val &"' ORDER BY datum DESC"
rs.Open SQL, MinCon
If rs.EOF Then
Response.Write"DATABASEN ÄR TOM"
Else
rs.MoveFirst
rs.PageSize = perSida
Dim TotalPages
TotalPages = rs.PageCount
rs.AbsolutePage = onPage
Dim count
%>
<html>
<title>Val_kat</title>
<link rel="stylesheet" href="linkstyle.css" type="text/css">
<body bgcolor="#FFFFFF">
<table width="19%" border="0" align="center" class="linkstyle">
<tr>
<td align="center" width="53%">Home</td>
<td align="center" width="41%">Skicka länk</td>
</tr>
<tr align="center">
<td colspan="2"></td>
</tr>
<tr align="center">
<td colspan="2"><%=kat_val%></td>
</tr>
</table>
<div align="center">
<table width="73%" border="0" class="linkstyle">
<tr bgcolor="#CCCCCC">
<td width="4%" bgcolor="#FFFFFF"> </td>
<td width="18%">Kategori</td>
<td width="31%">Kommentar</td>
<td width="13%">klick</td>
<td width="22%">Signature</td>
<td width="12%">Datum</td>
</tr>
</table>
<%
Count = 0
Do While Not rs.EOF And Count < rs.PageSize
%>
<table width="73%" border="0" class="linkstyle">
<tr>
<td width="4%"><img src="images/prick2.gif" width="20" height="10"></td>
<td width="18%" bgcolor="#FFFFED"><%=rs("kat")%></td>
<td width="31%" bgcolor="#FFFFED"> target="_blank"><%=rs("text")%></td>
<td width="13%" bgcolor="#FFFFED"><%=rs("klick")%></td>
<td width="22%" bgcolor="#FFFFED"><%=rs("person")%></td>
<td width="12%" bgcolor="#FFFFED"><%=rs("datum")%></td>
</tr>
</table>
<%
Count = Count + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End If
%>
<br>
<span class="linkstyle">
<%
If TotalPages <> 1 Then
If (Int(onPage)) <> 1 Then
%>
<<
föregående
<%Else%>
<< föregående
<%End If%>
<%
Dim Pages
For Pages = 1 To TotalPages
%>
<%If (Int(Pages)) = (Int(onPage)) Then%>
<b><%=Pages%></b>
<%Else%>
<%=Pages%>
<%End If%>
<%Next%>
<%End If%>
<%
If (Int(onPage)) <> (Int(TotalPages)) Then
%>
nästa
>>
<%Else%>
nästa >>
<%End If%>
</span></div>
</body>
</html>
<%
MinCon.Close
Set Con = Nothing
%>Sv: paging
Det finns en artikel om paging på pellesoft som kanske hjälper dig den sista biten.
/pelle