Notifikationer

Markér alle som læst Log ud

ferstin Nybegynder

08. november 2002 - 17:33 Der er 8 kommentarer og
1 løsning

Paging

Hej Eksperter!

Jeg har lavet en gæstebog, og har længe forgæves forsøgt, at få lavet en paging på.... hvor der i bunden står:
<< >> så man kan bladre frem og tilbage mellem siderne, som hver viser 10 poster. Jeg har opgivet, kan slet ikke overskue det mere.

200 points til en færdig løsning. Det skal flettes ind i tette script:

<%
If session("aakjaer") <> "ind" then
Response.Redirect "login.asp"
Else
%>

<html><head><title>9.A og 9.B - Aakjær skolen anno 1996</title>
<link rel='stylesheet' type='text/css' href='style.css'>
</head>
<body>
<center><img src="img/overskrift.gif"></center>

<form action="bogtodo.asp" method="POST">


<table><tr><td width="170" valign="top">
<a href="in.asp" target="in"><img src="img/forside.gif" border="no"></a><br>
<a href="liste.asp" target="in"><img src="img/klasselisten.gif" border="no"></a><br>
<a href="galleri.asp" target="in"><img src="img/galleri.gif" border="no"></a><br>
<a href="info.asp" target="in"><img src="img/info.gif" border="no"></a><br>
<img src="img/gaestebog.gif" border="no"><br>
<a href="logud.asp" target="in"><img src="img/logud.gif" border="no"></a><br>
<font face="arial, verdana" size="1" color="#C4A275"><br>  

<%

Query = "SELECT * FROM liste WHERE Id=" & session("brugerID")
Set rs = connect.Execute(Query)
Dim navn, id
navn = rs("Navn")
id = session("brugerID")
%>

</td>
<td width="400" valign="top">
<br><br>
<b>GÆSTEBOGEN</b><br>
Læg en besked...<br>

<textarea name="besked" rows="7" cols="40" class="textarea"></textarea>
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="navn" value="<%=navn%>">
<input type="submit" value=">>" class="knap">

</td></tr></table>
</form>

<%

Query2 = "SELECT * FROM bog ORDER BY Dato DESC;"
Set rs2 = connect.Execute(Query2)
do until rs2.EOF

Dim navn2, id2, besked2, dato2
navn2 = rs2("Navn")
id2 = rs2("PersonID")
dato2 = rs2("dato")
besked2 = rs2("besked")
besked2 = Replace(besked2, vbCr, "<br>")
besked = Replace(besked, " ", Chr(32))
do while inStr(1,besked2," ") > 0
besked2 = Replace(besked2, " ", "  ")
loop
besked2 = Replace(besked2, Chr(9), "    ")
besked2 = Replace(besked2, "'", "'")
besked2 = Replace(besked2, chr(230), "æ")
besked2 = Replace(besked2, chr(248), "ø")
besked2 = Replace(besked2, chr(229), "å")
besked2 = Replace(besked2, chr(198), "Æ")
besked2 = Replace(besked2, chr(216), "Ø")
besked2 = Replace(besked2, chr(197), "Å")
besked2 = Replace(besked2, chr(252), "ü")
besked2 = Replace(besked2, chr(220), "Ü")
besked2 = Replace(besked2, chr(223), "ß")
%>

<table class="gaestebog"><tr><td class="gaestebog">
Fra: <b><a href="profil.asp?ID=<%=id2%>"><%=navn2%></a></b><br><br>
<%=besked2%>
<br><br>
<small>| <%=dato2%> |</small>

</td></tr></table>
<br>
<%
rs2.MoveNext
loop
%>

</font>
</body>
</html>
<% End If %>
<%
Connect.Close
Set Connect = Nothing
%>

Synes godt om

Slettet bruger

08. november 2002 - 17:37 #1

eksperten bruges normalt ikke til færdige løsninger, men hjælp til selv hjælp, hvad jeg ogsp vil foreslå dig i dette tilfælde, da du ellers ikke får noget ud af det, og kommer rendende næste gang du skal have det lavet.

mvh.
Questis.dk

Synes godt om

ferstin Nybegynder

08. november 2002 - 17:39 #2

men hvorfor findes så denne kategori?

Synes godt om

Slettet bruger

08. november 2002 - 17:40 #3

var nu mest en hjælp til dig, men prøv og se om du kan få nogen til det, kan jo være en bider på, men du får mere ud af at lære det selv....

Synes godt om

ferstin Nybegynder

08. november 2002 - 17:41 #4

ja, men nu har jeg forsøgt på løsningen i .... 4 timer. Og aner ikke hvad jeg mere skal gøre!

Synes godt om

ferstin Nybegynder

08. november 2002 - 17:46 #5

hmm.... ville gerne afsætte flere points, men det kunne ikke lade sig gøre.

Synes godt om

Slettet bruger

08. november 2002 - 17:50 #6

har du kigget lidt på denne:

http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

den skulle være til at gå til.

Synes godt om

ferstin Nybegynder

08. november 2002 - 19:07 #7

Questis >
ja, jeg har kigget den igennem flere gange, og forsøgt mig, men kan ikke få det flettet sammen med min egen kode.

Her er det jeg har bøvlet med i laaaaaaaang tid efterhånden. Du kan se om du kan se fejlen: ..... her kommer hele mit script:
<%
Option Explicit
If session("aakjaer") <> "ind" then
Response.Redirect "login.asp"
Else
%>

<html><head><title>9.A og 9.B - Aakjær skolen anno 1996</title>
<link rel='stylesheet' type='text/css' href='style.css'>
</head>
<body>
<center><img src="img/overskrift.gif"></center>

<form action="bogtodo.asp" method="POST">


<table><tr><td width="170" valign="top">
<a href="in.asp" target="in"><img src="img/forside.gif" border="no"></a><br>
<a href="liste.asp" target="in"><img src="img/klasselisten.gif" border="no"></a><br>
<a href="galleri.asp" target="in"><img src="img/galleri.gif" border="no"></a><br>
<a href="info.asp" target="in"><img src="img/info.gif" border="no"></a><br>
<img src="img/gaestebog.gif" border="no"><br>
<a href="logud.asp" target="in"><img src="img/logud.gif" border="no"></a><br>
<font face="arial, verdana" size="1" color="#C4A275"><br>  

<%
Dim Query, rs
Query = "SELECT * FROM liste WHERE Id=" & session("brugerID")
Set rs = connect.Execute(Query)
Dim navn, id
navn = rs("Navn")
id = session("brugerID")
%>

</td>
<td width="400" valign="top">
<br><br>
<b>GÆSTEBOGEN</b><br>
Læg en besked...<br>

<textarea name="besked" rows="7" cols="40" class="textarea"></textarea>
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="navn" value="<%=navn%>">
<input type="submit" value=">>" class="knap">

</td></tr></table>
</form>

<%
Dim line
line = cint(line)
If line = 0 Then
line = 1
End If

%>

<%
Dim Query2, rs2
Query2 = "SELECT * FROM bog ORDER BY dato DESC;"
Set rs2 = connect.Execute(Query2)

do while currentline < line
rs2.movenext
currentline = currentline + 1
loop

dim respp
For currentline = 1 To respp
If Not rs2.EOF Then

do until rs2.EOF

Dim navn2, id2, besked2, dato2
navn2 = rs2("Navn")
id2 = rs2("PersonID")
dato2 = rs2("dato")
besked2 = rs2("besked")
besked2 = Replace(besked2, vbCr, "<br>")
besked = Replace(besked, " ", Chr(32))
do while inStr(1,besked2," ") > 0
besked2 = Replace(besked2, " ", "  ")
loop
besked2 = Replace(besked2, Chr(9), "    ")
besked2 = Replace(besked2, "'", "'")
besked2 = Replace(besked2, chr(230), "æ")
besked2 = Replace(besked2, chr(248), "ø")
besked2 = Replace(besked2, chr(229), "å")
besked2 = Replace(besked2, chr(198), "Æ")
besked2 = Replace(besked2, chr(216), "Ø")
besked2 = Replace(besked2, chr(197), "Å")
besked2 = Replace(besked2, chr(252), "ü")
besked2 = Replace(besked2, chr(220), "Ü")
besked2 = Replace(besked2, chr(223), "ß")
Dim currentline
currentline = 1
%>

<table class="gaestebog"><tr><td class="gaestebog">
Fra: <b><a href="profil.asp?ID=<%=id2%>"><%=navn2%></a></b><br><br>
<%=besked2%>
<br><br>
<small>| <%=dato2%> |</small>

</td></tr></table>
<br>
<%
rs2.MoveNext
loop
%>

<br><br>
<center>

<%
Dim plusformel, minusformel
plusformel = cint(line)+cint(respp)
minusformel = cint(line)-cint(respp)

If Not line = 1 Then
Response.Write "<a href='gaestebog.asp?respp=" & respp & "&line=" & minusformel & "'>Tilbage</a>"
End If
%>
<%
If Not rs.EOF Then

Response.Write "<a href='gaestebog.asp?respp=" & respp & "&line=" & plusformel & "'>Frem</a>"
End If
%>

</center>

</font>
</body>
</html>
<% End If %>
<%
Connect.Close
Set Connect = Nothing
Next
End If
%>

Synes godt om

ferstin Nybegynder

08. november 2002 - 19:09 #8

Det smider kun min formular ud, men ingen tabeller - alle indlægne forsvinder.

Synes godt om

ferstin Nybegynder

19. november 2002 - 15:05 #9

ok, lukker.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver	2	16/01/202610:29	16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver	20	07/05/202520:51	10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS