Notifikationer

Markér alle som læst Log ud

dj-sejler Praktikant

30. oktober 2002 - 10:39 Der er 9 kommentarer og
1 løsning

Hvordan viser jeg kun 10 adgangen

Hej...

Hvordan for jeg denne side til kun at vise de 10 første poster på en side og de 10 næste...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "select* from koelbaad ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "Der er ingen resultater i databasen:"
else
Do Until rs.EOF
%>

<table cellpadding=2 cellspacing=2 border=1 bordercolor=black class=format width="500">

<tr>
<td align=left bgcolor=#0D5275 width="2%">Sejler:</td>
<td align=center bgcolor=#0D5275 width="85%"><%=RS("sejler")%></td>
</tr>
<tr>
<td align=left bgcolor=#0D5275>  </td>
<td align=center bgcolor=#0D5275>fik en <%=RS("plads")%> ud af <%=RS("delt")%></td>
</tr>
<tr>
<td align=left bgcolor=#0D5275>Stævne:</td>
<td align=center bgcolor=#0D5275><%=RS("staevne")%> i <%=RS("sted")%></td>
</tr>
<tr>
<td align=left bgcolor=#0D5275>Dato:</td>
<td align=center bgcolor=#0D5275><%=RS("sdato")%></td>
</tr>
<tr>
<td align=left colspan="2"><%=RS("besk")%></td>
</tr>
<tr>
<td align=left bgcolor=#0D5275 width="20%">Skrevet af:</td>
<td align=center bgcolor=#0D5275 width="85%"><A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A> den <%=RS("dato")%></td>
</tr>

 
<%
RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing
%>

Synes godt om

eagleeye Praktikant

30. oktober 2002 - 10:40 #1

Paging se dette eks:

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

Synes godt om

dj-sejler Praktikant

30. oktober 2002 - 10:43 #2

--> eagleeye
Jamen det forstå jeg så ikke så meget af

Synes godt om

Slettet bruger

30. oktober 2002 - 10:55 #3

siger du efter 3 min :-) prøv at gennemlæse det og prøve at skabe en forståelse for det... og spørg der hvor du sidder fast istdet.....

hjælp til selvhjælp

Synes godt om

dj-sejler Praktikant

30. oktober 2002 - 11:01 #4

Jamen jeg har set massere af dem...
Og jeg har virkelig ingen fornemmelse af hvor og hvad jeg skal sætte ind for at det virker :(

Synes godt om

eagleeye Praktikant

30. oktober 2002 - 11:12 #5

Prøv i første omgang at copy/paste hele siden omkring paging ind i en ny fil.

Så til retter du SQL sætning fra eksemplet til din egen:
strSQL = "select* from koelbaad ORDER BY ID DESC"

Det samme gælder din connetion til databasen.:
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")

Uder udskrivningen kan du i føste omgang rete denne linie:
Response.Write rs("LinkURL") & " "

Til at udskrive en kolonne fra din database:
Response.Write rs("besk") & " "

Det skal natuligvis rettes til hele din tabel men det tit menere at rette små ting af gangen. Når første paging køre så er det inden sat at få designet til at være pænt igen.

Synes godt om

dj-sejler Praktikant

30. oktober 2002 - 11:54 #6

Hvad har jeg så gjort galt her??

<%
response.Buffer = true
response.expires = 0
%>

<html>
<head>
<title>Bandholm Sejlklub - Resultater - Kølbåde</title>

</head>
<body>
<a href="java script:history.back(1);">Tilbage</a>
   
» <a href="ktilfoej.asp">Nyt resultat</a> &laquo
   
» <a href="../login/login.asp">login</a> &laquo

<h2>Kølbåde:</h2>

<center>

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("resultat.mdb")
strSQL = "select* from koelbaad ORDER BY ID DESC"
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "Side " & intPage & " af " & intPageCount & ""
Do While Not rs.EOF And intRecCount > 0
%>

<table cellpadding=2 cellspacing=2 border=1 bordercolor=black class=format width="500">

<tr>
<td align=left align=midle bgcolor=#0D5275 width="2%">Sejler:</td>
<td align=center bgcolor=#0D5275 width="85%"><%=RS("sejler")%> fik en <%=RS("plads")%> ud af <%=RS("delt")%></td>
</tr>
<tr>
<td align=left bgcolor=#0D5275>Stævne:</td>
<td align=center bgcolor=#0D5275><%=RS("staevne")%> i <%=RS("sted")%></td>
</tr>
<tr>
<td align=left bgcolor=#0D5275>Dato:</td>
<td align=center bgcolor=#0D5275><%=RS("sdato")%></td>
</tr>
<tr>
<td align=left colspan="2"><%=RS("besk")%></td>
</tr>
<tr>
<td align=left bgcolor=#0D5275 width="20%">Skrevet af:</td>
<td align=center bgcolor=#0D5275 width="85%"><A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A> den <%=RS("dato")%></td>
</tr>

 
<%
intRecCount = intRecCount - 1
RS.MoveNext
Loop
end if
rs.Close
Set rs = Nothing

Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=koelbaad2.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=koelbaad2.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=koelbaad2.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

</table>
</center>
</body>
</html>

Synes godt om

eagleeye Praktikant

30. oktober 2002 - 12:23 #7

Får du en fejl?

Synes godt om

eagleeye Praktikant

30. oktober 2002 - 12:32 #8

Prøv evt at reete denne

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("resultat.mdb")

Til:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")

Og denne linie:
rs.Open strSQL, strDSN, 1

Til:
rs.Open strSQL, Conn, 1

Synes godt om

dj-sejler Praktikant

30. oktober 2002 - 12:43 #9

Det er ikke det...

Det med at man kan gå til næste side...
står over det nederste indlæg...
det slak kun stå øverst

Synes godt om

dj-sejler Praktikant

30. oktober 2002 - 14:26 #10

Har fundet ud af det...

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

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