Sv: Nästa sida...tack

Nästa sida...tack

Postades av 2003-09-27 18:12:48 - Nina Ringbom, i forum asp - allmänt, Tråden har 12 Kommentarer och lästs av 564 personer

Hej
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 Nina

Svara

Sv: Nästa sida...tack

Postades av 2003-09-27 20:02:02 - Per Persson

Man kan skicka med sidnumret i adressen, t.ex. husforhorslangd.asp?sida=3

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...)

Svara

Sv: Nästa sida...tack

Postades av 2003-09-27 22:32:53 - Nina Ringbom

Hej! Jag testade det du skrev men jag får bara detta felmeddelande:
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 Nina

Svara

Sv: Nästa sida...tack

Postades av 2003-09-27 22:47:03 - Per Persson

Har du med både
<code>
Dim Sida
Sida = Request.QueryString("sida")
</code>
och
<code>
Response.Write ("Nästa sida")
</code>
?

Svara

Sv: Nästa sida...tack

Postades av 2003-09-27 22:58:17 - Nina Ringbom

Ja jag har med båda
/nina

Svara

Sv: Nästa sida...tack

Postades av 2003-09-27 23:12:27 - Oskar Johansson

Testa med:

Sida = clng(request.querystring("sida"))

Svara

Sv: Nästa sida...tack

Postades av 2003-09-27 23:18:00 - Nina Ringbom

OK nu har jag fått det att funka...nästan.
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?
Nina

Svara

Sv: Nästa sida...tack

Postades av 2003-09-28 01:17:50 - Per Persson

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.

Svara

Sv: Nästa sida...tack

Postades av 2003-09-28 01:25:03 - Andreas Hillqvist

Hur ser koden u för din sida?

Svara

Sv: Nästa sida...tack

Postades av 2003-09-28 09:38:03 - Nina Ringbom

<%@ Language = VBSCRIPT %>

<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>

Svara

Sv: Nästa sida...tack

Postades av 2003-09-28 10:56:19 - Anna-Karin Söderberg

Borde du inte kunna använda Paging för att lösa problemet?

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-Karin

Svara

Sv: Nästa sida...tack

Postades av 2003-09-28 11:17:40 - Nina Ringbom

Hej
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 Nina

Svara

Sv: Nästa sida...tack

Postades av 2003-09-28 11:41:09 - Andreas Hillqvist

<code>
<%@ Language = VBSCRIPT %>

<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>

Svara

Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Sv: Nästa sida...tack

Nyligen

Sidor

Statistik

Kontakta oss