Hej Man kan skicka med sidnumret i adressen, t.ex. husforhorslangd.asp?sida=3 Hej! Jag testade det du skrev men jag får bara detta felmeddelande: Har du med både OK nu har jag fått det att funka...nästan. Du kan ju köra en databasfråga för att kolla om det finns några poster för nästa sida. Om det finns, skriver du ut länken, annars inte. <%@ Language = VBSCRIPT %> Borde du inte kunna använda Paging för att lösa problemet? Hej <code>Nästa sida...tack
Så här är det:
Jag skriver av husförhörslängder, vilket innebär att det kan vara 20 personer på en sida och torp, och 4 på nästa torp. osv.
Hur gör man då om man vill ha en länk/knapp som man klickar på för att få se nästa sida i hfl-längden? Det måste ju vara så att alla som "tillhör" den sidan kommer med...
Jag har en kolumn i databasen (access) som heter sidnr.
Någon som har något ENKELT förslag ? (så att jag fattar)
mvh NinaSv: Nästa sida...tack
I ASP-koden kan du komma åt värdet genom
<code>
Dim Sida
Sida = Request.QueryString("sida")
</code>
Länken till nästa sida kan du då skriva ut så här:
<code>
Response.Write ("Nästa sida")
</code>
(Hoppas att det blev rätt. Jag kan inte ASP/VB...)Sv: Nästa sida...tack
ADODB.Field fel '80020009'
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/genealogy/husfl.asp, rad 0
Rad 0? svårt att kolla det ;-)
Jag får en fin länk "Nästa sida" men får altså detta meddelandet?
När man håller pekaren över länken "Nästa sida" står det sidan 1 även om jag är på sidan 2 eller 3....
mvh NinaSv: Nästa sida...tack
<code>
Dim Sida
Sida = Request.QueryString("sida")
</code>
och
<code>
Response.Write ("Nästa sida")
</code>
?Sv: Nästa sida...tack
När man kommer till sista sidan så får man:
ADODB.Field fel '80020009'
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/genealogy/husfl.asp, rad 0
Vad lägger jag då in för koll för att se om det är sista sidan och nått meddelande?
NinaSv: Nästa sida...tack
Sv: Nästa sida...tack
<!-- #INCLUDE FILE = "adovbs.inc" -->
<html>
<head>
<title>Genealogy in Sweden/Släkforskning i Sverige</title>
<link rel="stylesheet" type="text/css" href=mall.css>
</head>
<body bgcolor="#D7B089">
<%
Dim sida
sida = Request.QueryString("sida")
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("hfl.mdb")
SQL = "SELECT * FROM gamleby WHERE sida LIKE '" & Request.QueryString("sida") & "' order by id asc"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
%>
<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td id="aa" align="center" colspan="12">Gamleby husförhörslängd 1844-1849 (AI:14) sidan: <%=RecSet("sida")%> <% Response.Write ("Nästa sida") %> ></td>
</tr>
<tr bgcolor="#DFC1A7">
<td id="aa" width="20">Namn</td>
<td colspan="3" id="aa" align="center">Född</td>
<td colspan="2" id="aa" align="center">Hitkom</td>
<td rowspan="2" id="b" align="center">Be<br>sked<br>nr</td>
<td rowspan="2" id="b" align="center">Gift<br>år</td>
<td colspan="2" id="aa" align="center">Död</td>
<td colspan="2" id="aa" align="center">Bortflyttad</td>
</tr>
<tr bgcolor="#DFC1A7">
<td id="ee"><b><%=RecSet("gardnamn")%></B></td>
<td id="d">Uti</td>
<td id="d">år</td>
<td id="d">dag</td>
<td id="d">Ifrån</td>
<td id="d">år</td>
<td id="d">år</td>
<td id="b">dag</td>
<td id="d">till</td>
<td id="b">år</td>
</tr>
<% Do While Not RecSet.EOF %>
<tr bgcolor="#DCBC9C">
<td id="dd" width="150"><%=RecSet("titel")%> <%=RecSet("fornamn")%> <%=RecSet("efternamn")%></td>
<td id="dd"><%=RecSet("foddplats")%></td>
<td id="dd" align="right"><%=RecSet("foddar")%></td>
<td id="dd"><%=RecSet("fodddag")%></td>
<td id="dd"><%=RecSet("hitkomfran")%></td>
<td id="dd" align="right"><%=RecSet("hitkomar")%></td>
<td id="dd" align="center"><%=RecSet("besked")%></td>
<td id="dd"><%=RecSet("giftar")%></td>
<td id="dd"><%=RecSet("dodar")%></td>
<td id="dd"><%=RecSet("doddag")%></td>
<td id="dd"><%=RecSet("fltill")%></td>
<td id="dd"><%=RecSet("flar")%></td>
</tr>
<% RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>
</table>
<table border="0" align="center">
<tr>
<td id="b"><< <% Response.Write ("Tillbaka") %></TD>
<td width="20"></TD>
<td id="b"><% Response.Write ("Nästa sida") %> >></td>
</TR>
</table>
</body>
</html>Sv: Nästa sida...tack
Då ställer du ju frågan till databasen med en WHERE sats.
<Artikel [Alternativ till traditionell paging]> den tycker jag är bra, även om den kan vara lite knepig att sätta sig in i.
/Anna-KarinSv: Nästa sida...tack
För att ni skall förstå vad jag menar så gå till:
http://www.ninaz.com/hfl.asp
och klicka på en A tex, sedan ett namn och så
kan man klicka mellan sidorna.
Jag har bara 5 sidor just nu, men när man kommer till sista så får man:
ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/husfl.asp, line 0
Det måste finnas nån enkel lösning där man bara kollar om det är sista sidan och då slänga upp något meddelande. Jag har inte lust att ändra en massa i koden nu när jag har fått det att funka så här långt.
Jag vill börja registrera istället för att hålla på och koda :-|
Mvh NinaSv: Nästa sida...tack
<%@ Language = VBSCRIPT %>
<!-- #INCLUDE FILE = "adovbs.inc" -->
<html>
<head>
<title>Genealogy in Sweden/Släkforskning i Sverige</title>
<link rel="stylesheet" type="text/css" href=mall.css>
</head>
<body bgcolor="#D7B089">
<%
Dim sida
Dim PreviousPage
Dim NextPage
sida = Request.QueryString("sida")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & Server.MapPath("hfl.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT *, (SELECT MAX(Sub.sida) FROM gamleby AS Sub WHERE Sub.sida<gamleby.sida) AS PreviousPage, (SELECT MIN(Sub.sida) FROM gamleby AS Sub WHERE Sub.sida>gamleby.sida) AS NextPage FROM gamleby WHERE sida LIKE '" & Request.QueryString("sida") & "' ORDER BY id ASC"
RecSet.Open strSQL, Connect
If RecSet.EOF Then
Response.Write "Ingen post funnen!"
Else
PreviousPage = RecSet("PreviousPage")
NextPage = RecSet("NextPage")
%>
<table border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td id="aa" align="center" colspan="12">Gamleby husförhörslängd 1844-1849 (AI:14) sidan: <%=RecSet("sida")%> <%If IsNull(NextPage) Then Response.Write "Nästa sida" Else Response.Write "Nästa sida >"%></td>
</tr>
<tr bgcolor="#DFC1A7">
<td id="aa" width="20">Namn</td>
<td colspan="3" id="aa" align="center">Född</td>
<td colspan="2" id="aa" align="center">Hitkom</td>
<td rowspan="2" id="b" align="center">Be<br>sked<br>nr</td>
<td rowspan="2" id="b" align="center">Gift<br>år</td>
<td colspan="2" id="aa" align="center">Död</td>
<td colspan="2" id="aa" align="center">Bortflyttad</td>
</tr>
<tr bgcolor="#DFC1A7">
<td id="ee"><%=RecSet("gardnamn")%></B></td>
<td id="d">Uti</td>
<td id="d">år</td>
<td id="d">dag</td>
<td id="d">Ifrån</td>
<td id="d">år</td>
<td id="d">år</td>
<td id="b">dag</td>
<td id="d">till</td>
<td id="b">år</td>
</tr>
<% Do Until RecSet.EOF %>
<tr bgcolor="#DCBC9C">
<td id="dd" width="150"><%=RecSet("titel")%> <%=RecSet("fornamn")%> <%=RecSet("efternamn")%></td>
<td id="dd"><%=RecSet("foddplats")%></td>
<td id="dd" align="right"><%=RecSet("foddar")%></td>
<td id="dd"><%=RecSet("fodddag")%></td>
<td id="dd"><%=RecSet("hitkomfran")%></td>
<td id="dd" align="right"><%=RecSet("hitkomar")%></td>
<td id="dd" align="center"><%=RecSet("besked")%></td>
<td id="dd"><%=RecSet("giftar")%></td>
<td id="dd"><%=RecSet("dodar")%></td>
<td id="dd"><%=RecSet("doddag")%></td>
<td id="dd"><%=RecSet("fltill")%></td>
<td id="dd"><%=RecSet("flar")%></td>
</tr>
<% RecSet.MoveNext
Loop
%>
</table>
<%
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>
<table border="0" align="center">
<tr>
<td id="b"><%If IsNull(PreviousPage) Then Response.Write "<< Tillbaka" Else Response.Write "<< Tillbaka"%></TD>
<td width="20"></TD>
<td id="b"><%If IsNull(NextPage) Then Response.Write "Nästa sida" Else Response.Write "Nästa sida >>"%></td>
</TR>
</table>
</body>
</html>
</code>