Avatar billede mini-me Nybegynder
07. april 2005 - 14:02 Der er 3 kommentarer og
1 løsning

Næste post i databasen

Hej Eksperter,

Jeg har et problem, jeg sidder og arbejder på at lave noget script der gør det muligt for mine brugere at bladere i mine sites i stedet for at benytte en menu.

strSQL = "SELECT * From EW_HTML_Document where id=" & Request.QueryString("id")
    set rs = conn.execute(strSQL)
   
    set vRS = server.CreateObject("ADODB.Recordset")
    vRS.CursorLocation  = 3 ' adUseClient
    vRS.CursorType  = 3 ' adOpenStatic
   
    stvRSQL = "SELECT * From EW_HTML_Document"
    vRS.Open stvRSQL, conn, 1, 3 ' adCmdText

   
    'vRS.move(iasd) ' Flyt idnyhed antal pladser frem. !
    detteid = vRS("id")
    response.write detteid
    vRS.movenext ' Flyt til næste
    naeste = vRS("id")
    response.write naeste
    vRS.move(idnyhed) ' Flyt idnyhed antal pladser frem. !
    vRS.moveprevious ' Flyt en tilbage
    prev = vRS("id")
   
ER den kode jeg har, problemet er bare at vRS ikke bliver til næste side, men tager udgangspunkt i første post i databasen.

Håber der er nogen der kan hjælpe
Avatar billede Slettet bruger
07. april 2005 - 15:01 #1
Hej

Jeg har desværre ikke svaret. Men prøv at tjekke www.viewsource.dk og søg efter paging i kategorien som hedder ASP scripts.

Denne fil er måske noget der kan bruges...

Med venlig hilsen

Dan
Avatar billede mini-me Nybegynder
07. april 2005 - 15:43 #2
Kan man ikke lave noget med noget Arrays? Så man i stedet henter alle id'er ind i arrayet, og så min næste og tilbage knap bliver noget med array(id+1) og array(id-1) for at gå frem og tilbage??
Avatar billede hansdam Nybegynder
09. april 2005 - 00:56 #3
<%
strSQL = "SELECT * From EW_HTML_Document ORDER BY ID ASC"
set rs = conn.execute(strSQL)

HTMLarray = ""
do while not rs.eof
    HTMLarray = HTMLarray & rs("ID") & ","
rs.movenext
loop

HTMLarray = Left(HTMLarray,Len(HTMLarray)-1)

HTMLsplit = split(HTMLarray,",")

for i = 0 to UBound(HTMLsplit)
    if int(HTMLsplit(i)) = int(Request.Querystring("id")) then
        myI = i
    end if
next


if myI-1 >= LBound(HTMLsplit) then
    forrigepic = true
    forrigepicID = HTMLsplit(myI-1)
else
    forrigepic = false
end if

if myI+1 <= UBound(HTMLsplit) then
    nextpic = true
    nextpicID = HTMLsplit(myI+1)
else
    nextpicID = false
end if

set vRS = conn.execute("SELECT * FROM EW_HTML_Document WHERE ID = " & HTMLsplit(myI))
%>
<table style="width: 100%;">
    <tr>
        <td>
            <%
            if forrigepic then
            %>
            <a href="Minside.asp?ID=<%=forrigepicID%>">&laquo; Tilbage</a>&nbsp;&nbsp;
            <%
            else
            %>
            &laquo; Tilbage&nbsp;&nbsp;
            <%
            end if
            %>
        </td>
        <td>
            <%
            if nextpicID then
            %>
            &nbsp;&nbsp;<a href="Minside.asp?ID=<%=nextpicID%>">Næste &raquo;</a>
            <%
            else
            %>
            &nbsp;&nbsp;Næste &raquo;
            <%
            end if
            %>
        </td>
    </tr>
</table>

Her er en lille en, du kan kigge lidt på :)

/Hans
Avatar billede hansdam Nybegynder
11. april 2005 - 11:55 #4
takker for points :)
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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