Notifikationer

Markér alle som læst Log ud

data2k.dk Nybegynder

03. november 2004 - 00:34 Der er 12 kommentarer og
1 løsning

Paging fejl i mit script

hvorfor virker denne paging ikke? fejlen ligger måske nederst... den skal vise 40 ting pr side.. men istedet viser den alt på første side.. fjerne 40 på næste side og fjerner igen 40 på næste side igen...

<%
End If
rs.Close
Set rs = Nothing

Response.Write "Gå til side "
alfa = request.querystring("alfa")
For intNum = 1 To intPageCount
Response.Write "<a href=Side.asp?page=" & intNum & "&alfa=" & alfa & ">" & intNum & "</a> "
Next

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

Response.Write " "

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

Synes godt om

keysersoze Ekspert

03. november 2004 - 09:48 #1

vi skal se noget mere for at kunne se fejlen - det du viser har kun nogen med frem og tilbage knapper at gøre, ikke om der vises 10, 40 eller alle

Synes godt om

data2k.dk Nybegynder

03. november 2004 - 14:20 #2

sorry! når jeg kommer hjem udskriver jeg lige det med databasen også ved jeg faktisk ikke lige hvorfor jeg har glemt..

Synes godt om

data2k.dk Nybegynder

03. november 2004 - 14:24 #3

sad og tænkte lidt over hvad fejlen kunne være, men eftersom scriptet fjerner de 40 første så kan jeg måske bare sætte databasen til kun at udskrive 40 felter af gangen.. men ser lige på det i aften:)

Synes godt om

keysersoze Ekspert

03. november 2004 - 15:36 #4

jeg ved ikke hvad du bygger dit script ud fra eller hvilken database - men dette script virker fortræffeligt til Access; http://activedeveloper.dk/artikler/default.asp?articleid=31

Synes godt om

data2k.dk Nybegynder

03. november 2004 - 22:20 #5

resten ser sådan ud.. ligner da det link der

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM items"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
If Request("alfa") > "" Then strSQL = strSQL & " AND instr('" & LCase(Request("alfa")) & "',lcase(left(title,1)))>0"
strSQL = StrSQL & " ORDER BY hits desc"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 40
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "Page " & intPage & " of " & intPageCount & ""
%>

synes bare det underligt det ikke virker

Synes godt om

keysersoze Ekspert

03. november 2004 - 22:25 #6

hvor er din løkke henne?

Synes godt om

data2k.dk Nybegynder

03. november 2004 - 22:28 #7

efter det før kommer det her

<%
Do Until rs.EOF
%>

<%
rs.MoveNext
Loop
%>

<%
Else
%>

<%
End If
rs.Close
Set rs = Nothing

Response.Write "Gå til side "
alfa = request.querystring("alfa")
For intNum = 1 To intPageCount
Response.Write "<a href=Side.asp?page=" & intNum & "&alfa=" & alfa & ">" & intNum & "</a> "
Next

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

Response.Write " "

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

Synes godt om

keysersoze Ekspert

04. november 2004 - 09:09 #8

så er det derfor - dit loop skal se sådan ud;

Do While Not rs.EOF And intRecCount > 0
Response.Write "blablabla "
intRecCount = intRecCount - 1
rs.MoveNext
Loop

Synes godt om

data2k.dk Nybegynder

04. november 2004 - 09:21 #9

kan ikke logge på min ftp lige nu, men ville koden så se sådan her ud

<%
Do While Not rs.EOF And intRecCount > 0
%>

//html

<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
%>

jeg bruger nemlig ikke Reponse.Write i det stykke.

Synes godt om

keysersoze Ekspert

04. november 2004 - 09:31 #10

ja - formentlig

Synes godt om

data2k.dk Nybegynder

04. november 2004 - 13:42 #11

Satans! det virker sgu hehe!

Tak for det! :)

Synes godt om

data2k.dk Nybegynder

04. november 2004 - 13:42 #12

ops... lagde selv svar.. .lig lige et svar

Synes godt om

keysersoze Ekspert

04. november 2004 - 13:59 #13

svar

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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