Søg
Avatar billede babyworm Nybegynder
06. maj 2004 - 11:33 Der er 7 kommentarer og
1 løsning

Hjælp til paging

Hejsa.


Jeg har lavet en gæstebog, men ville gerne have en paqing på. Den skal bare vise 2 indlæg af gangen, og så skal man kunne skifte side.

Hvordan gør jeg det?

Har min kode her:

<!-- #include virtual="/conn.asp" -->
<%
openConn()
SQL = "SELECT guest.id,guest.date,guest.name,guest.headline,guest.email,guest.homepage,guest.context FROM guest ORDER BY guest.date DESC"
Set rs = connection.Execute(SQL)
%>

<h1>Gæstebogen</h1>

<% if rs.EOF Then %>
<p><i>Ingen indlæg i databasen</i><br><br><br>
<a href="default.asp?pID=81">Skriv i gæstebogen</a>
<% Else %>
</p>
<% While NOT rs.EOF %>

<table width="400" border="0" cellspacing="0" cellpadding="0" style="border:1px dotted #660000; padding:3px;">
  <tr bgcolor="#CCCCCC">
    <td width="100"><p title="<%=FormatDateTime(rs("date"),4)%>" style="cursor:pointer;"><%=FormatDateTime(rs("date"), vbShortDate)%></p></td>
    <td width="300" style="padding-left: 5px;"><%= rs("headline") %></td>
  </tr>
  <tr>
    <td colspan="2" style="border-top:1px dotted #660000"><%= rs("context") %></td>
  </tr>
  <tr>
    <td style="border-top:1px dotted #660000">
    <%
    if rs("email") = "" THEN %>
    <%= rs("name") %>
    <% Else %>
    <a href="mailto:<%= rs("email") %>" title="<%= rs("email") %>" style="cursor:pointer;"><%= rs("name") %></a>
    <%end if %>
    </td>
    <td style="border-top:1px dotted #660000">
    <% if rs("homepage") = "" THEN %>
    &nbsp;
    <% Else %>
    <a href="http://<%= rs("homepage") %>" target="_blank"><%= rs("homepage") %></a>
    <%end if %>
    </td>
  </tr>
</table>

<br>
<% rs.MoveNext
    Wend %>
<a href="default.asp?pID=81">Skriv i gæstebogen</a>

<% End if %>

<%
closeConn()
%>
Avatar billede mortency Nybegynder
06. maj 2004 - 11:39 #1
<!-- #include virtual="/conn.asp" -->
<%
openConn()
SQL = "SELECT guest.id,guest.date,guest.name,guest.headline,guest.email,guest.homepage,guest.context FROM guest ORDER BY guest.date DESC"
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open strSQL, connection, 3, 1, &H0001

ShowPage = CInt(Request.QueryString("ShowPage"))
PageSize = 18
rs.PageSize = PageSize

NumOfPages = rs.PageCount
If ShowPage < 1 then
        ShowPage = 1
ElseIf ShowPage > NumOfPages Then
        ShowPage = NumOfPages
End If

rs.AbsolutePage = ShowPage
%>

<h1>Gæstebogen</h1>

<% if rs.EOF Then %>
<p><i>Ingen indlæg i databasen</i><br><br><br>
<a href="default.asp?pID=81">Skriv i gæstebogen</a>
<% Else %>
</p>
<% Do While Not rs.EOF and not i = PageSize%>

<table width="400" border="0" cellspacing="0" cellpadding="0" style="border:1px dotted #660000; padding:3px;">
  <tr bgcolor="#CCCCCC">
    <td width="100"><p title="<%=FormatDateTime(rs("date"),4)%>" style="cursor:pointer;"><%=FormatDateTime(rs("date"), vbShortDate)%></p></td>
    <td width="300" style="padding-left: 5px;"><%= rs("headline") %></td>
  </tr>
  <tr>
    <td colspan="2" style="border-top:1px dotted #660000"><%= rs("context") %></td>
  </tr>
  <tr>
    <td style="border-top:1px dotted #660000">
    <%
    if rs("email") = "" THEN %>
    <%= rs("name") %>
    <% Else %>
    <a href="mailto:<%= rs("email") %>" title="<%= rs("email") %>" style="cursor:pointer;"><%= rs("name") %></a>
    <%end if %>
    </td>
    <td style="border-top:1px dotted #660000">
    <% if rs("homepage") = "" THEN %>
    &nbsp;
    <% Else %>
    <a href="http://<%= rs("homepage") %>" target="_blank"><%= rs("homepage") %></a>
    <%end if %>
    </td>
  </tr>
</table>

<br>
<% rs.MoveNext
    Loop%>
<a href="default.asp?pID=81">Skriv i gæstebogen</a>

<% End if %>

<%
closeConn()
%>

    <%
    If ShowPage > 1 Then
        Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage - 1 & """> Tilbake</a> - "
    Else
        Response.Write "<font color=silver>Tilbake</font> - "
    End If

    for k=1 to NumOfPages
        if k=ShowPage then
            Response.Write("<font color=silver>" & k & "</font>")
        else
            %>
            <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?ShowPage=<%=k%>"><%=k%></a>
            <%   
        end if
    Next

    If CInt(NumOfPages) <> CInt(ShowPage) Then
        Response.Write " - <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage + 1 & """>Neste</a>"
    Else
        Response.Write " - <font color=silver>Neste</font> "
    End If
    %>
Avatar billede babyworm Nybegynder
06. maj 2004 - 11:39 #2
Er med en access database.. sry :)
Avatar billede mortency Nybegynder
06. maj 2004 - 11:40 #3
Sorry må bytte ut:

rs.Open strSQL, connection, 3, 1, &H0001

med

rs.Open SQL, connection, 3, 1, &H0001
Avatar billede mortency Nybegynder
06. maj 2004 - 11:41 #4
Det har ingen ting å si.

<!-- #include virtual="/conn.asp" -->
<%
openConn()
SQL = "SELECT guest.id,guest.date,guest.name,guest.headline,guest.email,guest.homepage,guest.context FROM guest ORDER BY guest.date DESC"
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open SQL, connection, 3, 1, &H0001

ShowPage = CInt(Request.QueryString("ShowPage"))
PageSize = 2
rs.PageSize = PageSize

NumOfPages = rs.PageCount
If ShowPage < 1 then
        ShowPage = 1
ElseIf ShowPage > NumOfPages Then
        ShowPage = NumOfPages
End If

rs.AbsolutePage = ShowPage
%>

<h1>Gæstebogen</h1>

<% if rs.EOF Then %>
<p><i>Ingen indlæg i databasen</i><br><br><br>
<a href="default.asp?pID=81">Skriv i gæstebogen</a>
<% Else %>
</p>
<% Do While Not rs.EOF and not i = PageSize%>

<table width="400" border="0" cellspacing="0" cellpadding="0" style="border:1px dotted #660000; padding:3px;">
  <tr bgcolor="#CCCCCC">
    <td width="100"><p title="<%=FormatDateTime(rs("date"),4)%>" style="cursor:pointer;"><%=FormatDateTime(rs("date"), vbShortDate)%></p></td>
    <td width="300" style="padding-left: 5px;"><%= rs("headline") %></td>
  </tr>
  <tr>
    <td colspan="2" style="border-top:1px dotted #660000"><%= rs("context") %></td>
  </tr>
  <tr>
    <td style="border-top:1px dotted #660000">
    <%
    if rs("email") = "" THEN %>
    <%= rs("name") %>
    <% Else %>
    <a href="mailto:<%= rs("email") %>" title="<%= rs("email") %>" style="cursor:pointer;"><%= rs("name") %></a>
    <%end if %>
    </td>
    <td style="border-top:1px dotted #660000">
    <% if rs("homepage") = "" THEN %>
    &nbsp;
    <% Else %>
    <a href="http://<%= rs("homepage") %>" target="_blank"><%= rs("homepage") %></a>
    <%end if %>
    </td>
  </tr>
</table>

<br>
<% rs.MoveNext
    Loop%>
<a href="default.asp?pID=81">Skriv i gæstebogen</a>

<% End if %>

<%
closeConn()
%>

    <%
    If ShowPage > 1 Then
        Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage - 1 & """> Tilbake</a> - "
    Else
        Response.Write "<font color=silver>Tilbake</font> - "
    End If

    for k=1 to NumOfPages
        if k=ShowPage then
            Response.Write("<font color=silver>" & k & "</font>")
        else
            %>
            <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?ShowPage=<%=k%>"><%=k%></a>
            <%   
        end if
    Next

    If CInt(NumOfPages) <> CInt(ShowPage) Then
        Response.Write " - <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage + 1 & """>Neste</a>"
    Else
        Response.Write " - <font color=silver>Neste</font> "
    End If
    %>
Avatar billede babyworm Nybegynder
06. maj 2004 - 11:42 #5
Den skal kun vise et indlæg af gangen..
Avatar billede mortency Nybegynder
06. maj 2004 - 11:43 #6
//Dette skal virke

<!-- #include virtual="/conn.asp" -->
<%
openConn()
SQL = "SELECT guest.id,guest.date,guest.name,guest.headline,guest.email,guest.homepage,guest.context FROM guest ORDER BY guest.date DESC"
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open SQL, connection, 3, 1, &H0001

ShowPage = CInt(Request.QueryString("ShowPage"))
PageSize = 2
rs.PageSize = PageSize

NumOfPages = rs.PageCount
If ShowPage < 1 then
        ShowPage = 1
ElseIf ShowPage > NumOfPages Then
        ShowPage = NumOfPages
End If

rs.AbsolutePage = ShowPage
%>

<h1>Gæstebogen</h1>

<% if rs.EOF Then %>
<p><i>Ingen indlæg i databasen</i><br><br><br>
<a href="default.asp?pID=81">Skriv i gæstebogen</a>
<% Else %>
</p>
<%
i = 0
Do While Not rs.EOF and not i = PageSize%>

<table width="400" border="0" cellspacing="0" cellpadding="0" style="border:1px dotted #660000; padding:3px;">
  <tr bgcolor="#CCCCCC">
    <td width="100"><p title="<%=FormatDateTime(rs("date"),4)%>" style="cursor:pointer;"><%=FormatDateTime(rs("date"), vbShortDate)%></p></td>
    <td width="300" style="padding-left: 5px;"><%= rs("headline") %></td>
  </tr>
  <tr>
    <td colspan="2" style="border-top:1px dotted #660000"><%= rs("context") %></td>
  </tr>
  <tr>
    <td style="border-top:1px dotted #660000">
    <%
    if rs("email") = "" THEN %>
    <%= rs("name") %>
    <% Else %>
    <a href="mailto:<%= rs("email") %>" title="<%= rs("email") %>" style="cursor:pointer;"><%= rs("name") %></a>
    <%end if %>
    </td>
    <td style="border-top:1px dotted #660000">
    <% if rs("homepage") = "" THEN %>
    &nbsp;
    <% Else %>
    <a href="http://<%= rs("homepage") %>" target="_blank"><%= rs("homepage") %></a>
    <%end if %>
    </td>
  </tr>
</table>

<br>
<%
i = i + 1
rs.MoveNext
    Loop%>
<a href="default.asp?pID=81">Skriv i gæstebogen</a>

<% End if %>

<%
closeConn()
%>

    <%
    If ShowPage > 1 Then
        Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage - 1 & """> Tilbake</a> - "
    Else
        Response.Write "<font color=silver>Tilbake</font> - "
    End If

    for k=1 to NumOfPages
        if k=ShowPage then
            Response.Write("<font color=silver>" & k & "</font>")
        else
            %>
            <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?ShowPage=<%=k%>"><%=k%></a>
            <%   
        end if
    Next

    If CInt(NumOfPages) <> CInt(ShowPage) Then
        Response.Write " - <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage + 1 & """>Neste</a>"
    Else
        Response.Write " - <font color=silver>Neste</font> "
    End If
    %>
Avatar billede mortency Nybegynder
06. maj 2004 - 11:44 #7
PageSize = 2'Tallet bestemmer hvor mange poster du skal se pr side.
Avatar billede babyworm Nybegynder
15. maj 2004 - 20:39 #8
Tusind tak
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB

Politiets Efterretningstjeneste

ML OPS til udvikling og støtte af Computer Network Exploitation

Kræftens Bekæmpelse

Application Manager til Kræftens Bekæmpelse

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger IT-supporterelever til lokal IT Servicecenter på Flyvestation Skrydstrup

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger Entreprise Arkitekt

Riskpoint A/S (Riskpoint Solutions Limited)

Senior Developer
Seneste spørgsmål Seneste aktivitet
I dag 12:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
I går 11:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
White papers
Flere white papers »