Vis 10 poster og klik for at vise næste 10

vil ik ha de her adresse.. :o)

http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp
http://www.netcoders.dk/articles.asp?mode=show_article&article_id=50&tech_id=1

da jeg vil bruge denne script som jeg allerede bruger :o)

er det nu dig igen!

lidt flere point ville være i orden :-)

plexx > ja det er mig :o)....

går du altid efter point !!

ja

Prøv dette:
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
%>
<%
    dim Connection,SQLstringK,KRS
    Set Connection = Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&Server.MapPath(\"../test.mdb\")
    SQLstringK=\"select * from appz ORDER BY dato DESC\"
    SET KRS=Connection.Execute(SQLstringK)
%>
<%
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
%>
<%while not KRS.EOF%>
<%=KRS(\"name\")%>
<%
KRS.MoveNext
wend

KRS.close
set KRS =nothing
connection.close
set connection = nothing
%> 
<form method=\"GET\" action=\"pro-nyt.asp\"><% Response.Write \"Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<input type=submit value=\" & intNum & \" name=page class=knap id=knap>\"
Next %></form>

Nej brug denne:
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
%>
<%
    dim Connection,SQLstringK,KRS
    Set Connection = Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&Server.MapPath(\"../test.mdb\")
    SQLstringK=\"select * from appz ORDER BY dato DESC\"
    SET KRS=Connection.Execute(SQLstringK)
%>
<%
If Not (KRS.BOF Or KRS.EOF) Then
    KRS.PageSize = 10
    KRS.AbsolutePage = intPage
    intRecCount = KRS.PageSize
    intPageCount = KRS.PageCount
%>
<%while not KRS.EOF%>
<%=KRS(\"name\")%>
<%
KRS.MoveNext
wend

KRS.close
set KRS =nothing
connection.close
set connection = nothing
%> 
<form method=\"GET\" action=\"pro-nyt.asp\"><% Response.Write \"Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<input type=submit value=\" & intNum & \" name=page class=knap id=knap>\"
Next %></form>

der er noget galt \"The page cannot be displayed\"

Du skal lige ændre der hvor der står \"pro-nyt.asp\" til navnet på din asp side :-)

_Plexx

svar nr 2. der er noget galt \"The page cannot be displayed\"

plexx > har gjordt :o)

irker det ikke?

nej.

Hvornår skriver den: \"The page cannot be displayed\" ???

med det samme...

så skriver du den forkerte adresse til filen!!!

ok sådan har jeg lavet det:

i toppen af siden har jeg lagt:
<%option explicit%>
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
%>
<%
    dim Connection,SQLstringK,KRS
    Set Connection = Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&Server.MapPath(\"../test.mdb\")
    SQLstringK=\"select * from appz ORDER BY dato DESC\"
    SET KRS=Connection.Execute(SQLstringK)
%>
<%
If Not (KRS.BOF Or KRS.EOF) Then
    KRS.PageSize = 10
    KRS.AbsolutePage = intPage
    intRecCount = KRS.PageSize
    intPageCount = KRS.PageCount
%>


også der hvor tingene lægger:
                    <table width=\"100%\" height=\"24\" style=\'border: 1 solid #000000\' cellspacing=\'1\' cellpadding=\'3\' bgcolor=\"#eeeeee\" border=\"0\">
                      <tr>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">File
                          name</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Date
                          added</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Provider</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Support</b></font></td>
                      </tr>
                      <tr bgcolor=\"#FFFFFF\">
                        <%while not KRS.EOF%>
                        <td width=\"21%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"name\")%>
                            </font></div>
                        </td>
                        <td width=\"28%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"dato\")%>
                            </font> </div>
                        </td>
                        <td width=\"27%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"provider\")%>
                            </font> </div>
                        </td>
                        <td width=\"16%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"download\")%>
                            </font> </div>
                        </td>
                      </tr>
                    </table>
                  <%
KRS.MoveNext
wend

KRS.close
set KRS =nothing
connection.close
set connection = nothing
%> 
<form method=\"GET\" action=\"appz.asp\"><% Response.Write \"Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<input type=submit value=\" & intNum & \" name=page class=knap id=knap>\"
Next %></form>

stien er rigtige....

Skriver den kun: \"The page cannot be displayed\"  ???

jeps

prøv lige at send datadasen til Michael@urgh.dk så afprøver jeg lige selv scriptet det er lidt nemmere!

jeg har oplevet det mange gange før :o)

send lige databasen til mig så finder jeg fejlen!

databasen ???

jeg er sikker på der er noget galt i selve asp filen

det fungere hvis jeg indsætter den gamle script igen på !

Hvis du sender databasen til mig ( Michael@urgh.dk ) så lover jeg at jeg har fundet fejlen om 10 min.

sender den over icq, da jeg kan ik finde ud af at sende filer over det mail system som jeg bruger .(

det er oki bare den den til michael@urgh.dk

-Plexx :-)

skriv lige når du har sendt den!!!

nu får jeg fejl efter at jeg har skiftet lidt med script  :o)
-------------
Microsoft VBScript compilation error \'800a03f6\'

Expected \'End\'

/appz.asp, line 143
--------------------
Her er linje 43:
Next %></form>

try this:
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
%>
<%
    dim Connection,SQLstringK,KRS
    Set Connection = Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&Server.MapPath(\"../test.mdb\")
    SQLstringK=\"select * from appz ORDER BY dato DESC\"
    SET KRS=Connection.Execute(SQLstringK)
%>
<%
If Not (KRS.BOF Or KRS.EOF) Then
    KRS.PageSize = 10
    KRS.AbsolutePage = intPage
    intRecCount = KRS.PageSize
    intPageCount = KRS.PageCount
%>
<%while not KRS.EOF%>
<%=KRS(\"name\")%>
<%
intRecCount = intRecCount - 1
KRS.MoveNext
wend
end if

KRS.close
set KRS =nothing
connection.close
set connection = nothing
%> 
<form method=\"GET\" action=\"pro-nyt.asp\"><% Response.Write \"Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<input type=submit value=\" & intNum & \" name=page class=knap id=knap>\"
Next %></form>

fejl:
-------------
Microsoft VBScript runtime error \'800a01f4\'

Variable is undefined: \'intPage\'

/appz.asp, line 3
-------------
her er linje 3:
intPage = Request(\"page\")

Fjern den fucking linje:
<%option explicit%>

*lol* :)
fejl:
------------
ADODB.Recordset error \'800a0cb3\'

Unknown runtime error

/kalpe/appz/appz.asp, line 20
------------

linje 20:    KRS.AbsolutePage = intPage

Send nu bare den database til mig eller jeg skrider :-(

ok
http://www.web-zone.dk/plex.zip

går iseng komemr igen imorgen .o)

jeg har nogle problemer som hans:
http://www.eksperten.dk/spm/79999

plexx > er du mon færdig ??

Ej, jeg kom til at give ham pointene, det er en anden gang det sker !!!!!!!

Takker for dine point.
Jeg sad i går i over en time og prøvede at få det til at virke men det lykkedes ikke.
Desuden er 20 point alt for lidt til denne slags spørgsmål.

-Plexx
http://www.plexx.dk/
Michael@urgh.dk

øh...og hvad nu ?

hvad med at indsætte det kode som du bruger på din side !! (paging)