/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Hjælp til page 2 of 5
Fra : Lasse Nyberg


Dato : 08-12-02 14:43

Hej alle
Jeg har lavt nedenstående side. Men..
Jeg kunne godt tænke mig at den blev delt op således at der kun
kom max 20 poster på hver side..
Så er der nogle der kan dele et samlet antal poster op i flere
sider med links til de sider, samt info om hvorlang man er i
postrækken og hvilken side man er på ud af hvormange..

<body>
<!--#include file="conn.asp" -->
<A NAME="#TOP"></A>

<table border="0" width="580" cellspacing="1">
         <tr>
          <td width="580" style="border-style: solid; border-width:
1" colspan="3">
<!--#include file="listemenu.asp" -->
          </td>
         </tr>
         <% mode = request("mode") %>
         <% rowCount = 0 %>
         <% if mode = "vis" or mode = "alle" then %>
         <tr>
          <td width="100%" colspan="3" align="center">
<b>
<%
vis = Request.Form("vis")
if vis = "" then Response.Write "Alle
alfabetisk" end if
if vis = "num" then Response.Write "Alle
efter mednr." end if
if vis = "frit" then Response.Write
"Fritflyvere" end if
if vis = "aktiv" then Response.Write
"Aktive" end if
if vis = "normal" then Response.Write
"Normale" end if
if vis = "aere" then Response.Write
"Æresmedlem" end if
if vis = "hvile" then Response.Write
"Hvilende" end if
if vis = "ved" then Response.Write
"Vedligeholdelse" end if
if vis = "motor" then Response.Write
"Vedligehold Motor" end if
if vis = "pas" then Response.Write
"Passive" end if
if vis = "bestyr" then Response.Write
"Bestyrelse" end if
if vis = "inst" then Response.Write
"Instruktøre" end if
if vis = "ELEV" then Response.Write
"Elever" end if
if vis = "ud" then Response.Write
"Udmeldte" end if
%>
</b>
          </td>
         </tr>
         <tr>
          <td>
           <img border="0" src="images/clear.gif" width="20"
height="10">
           </td>
         </tr>
         <% else %>
         <tr>
          <td width="580" colspan="3">
<img border="0" src="images/clear.gif"
width="20" height="5">
          </td>
         </tr>
         <% end if %>
         <tr>
          <td width="220" style="border-style: solid; border-width:
1">
    <p align="left">
    <i>Yderlige detaljer</i>
    </p>
          </td>
          <td width="220" style="border-style: solid; border-width:
1">
<i>E-mail:</i>
          </td>
          <td width="70" style="border-style: solid; border-width:
1">
    <p align="center">
    Med. nr.
    </p>
          </td>
          <td width="70" style="border-style: solid; border-width:
1">
    </td>
         </tr>
         <tr>
          <td width="220" style="border-style: solid; border-width:
1">
    <p align="left">
          <%
          mode = request("mode")
          adgang = Session("userid")
         
          strSQL="Select * From brugerefor WHERE id = " & adgang
          Set adgang=Conn.Execute(strSQL)
            
          if mode = "alle" Then
          StrSQL = "SELECT * FROM brugerefor WHERE status <> 'UDMELDT'
Order By navn"
          Set rs = Conn.Execute(strSQL)
          End if
               
          if mode = "vis" then
                  
          StrSQL = "SELECT * FROM liste" & Request.Form("vis") & ""
          Set rs = Conn.Execute(strSQL)
          End if

          If Not rs.EOF Then
         
          Do
            
          ' Personens navn
          strNavn = rs("navn")
   
          ' lav et link til person.asp med brugernavn-værdien i URL
          strLink = "<a href='default.asp?side=person&id=" &
rs("Id") & "'>" & strNavn & "</a>"
            
          ' Liste med links
           Response.Write "<li>" & strLink & "</li>"
          %>
          </td>
          <td width="220" style="border-style: solid; border-width:
1">
          <%
          ' Liste med aktivt email
          Response.Write "</b> <a href=mailto:" & rs("email") & ">"
& rs("email") & "</a>"
          %>
          <img src="images/clear.gif">             
          </td>
          <td width="70" style="border-style: solid; border-width:
1">
    <p align="center">
          <% Response.Write "" & rs("brugernavn") & "" %>
          </td>
          <td width="70" style="border-style: solid; border-width:
1">
    <% If adgang("bmedlem") = True then
        ' lav et link til rediger.asp med ID-værdien
i URL
          strAdmin = "<a href='default.asp?side=rediger&id=" &
rs("Id") & "'>Rediger</a>"
    Response.Write "" & strAdmin & ""
    End If
          %>
          </td>
         </tr>
         <tr>
          <td width="220" style="border-style: solid; border-width:
1">
    <p align="left">
          <%
          rowCount = rowCount + 1
          rs.MoveNext
          Loop While Not rs.EOF
          %>
          </td>
          <td width="220" style="border-style: solid; border-width:
1">
          </td>
          <td width="70" style="border-style: solid; border-width:
1">
    <p align="center">
          </td>
          <td width="70" style="border-style: solid; border-width:
1">
          </td>
         </tr>
         <% End If %>                   
         <% if mode = "alle" OR mode = "vis" Then %>
         <tr>
         <%
         if mode = "alle" Then
         StrSQL = "SELECT * FROM brugerefor WHERE status <> 'UDMELDT'
AND maillist=True Order By navn"
         Set rs = Conn.Execute(strSQL)
         End if
         if mode = "vis" then
         StrSQL = "SELECT * FROM liste" & Request.Form("vis") & " where
maillist=True Order By navn"
         Set rs = Conn.Execute(strSQL)
         End if
         %>
          <td width="100%" style="border-style: solid;
border-width: 1" colspan="3">
Hvis du skal maile til alle på listen,
som har
tilmeldt sig mailling list, så brug
dette link&nbsp;:<br><% if rs.EOF Then %>Der er ikke nogel
tilmeldt<% else %><a href="mailto:<%Do Until rs.EOF
%><%=rs("email") %>;<% rs.movenext %><% Loop %>">Maillist</a><%
end if %>
          </td>
          <td width="70" style="border-style: solid; border-width:
1">
          </td>
         </tr>
         <% end if %>
         <tr>
          <td width="100%" style="border-style: solid;
border-width: 1" colspan="3">
          </td>
          <td width="70" style="border-style: solid; border-width:
1">
          </td>
         </tr>
         <tr>
          <td width="100%" style="border-style: solid;
border-width: 1" colspan="3">
          <% Response.Write("Antal medlemmer på denne side: " &
rowCount & "<BR>") %>
          </td>
          <td width="70" style="border-style: solid; border-width:
1">
          </td>
         </tr>
</table>
</body>


Mvh
Nyberg

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Christian M. Nielsen (08-12-2002)
Kommentar
Fra : Christian M. Nielsen


Dato : 08-12-02 20:50

"Lasse Nyberg" <lassenyberg@mail.dk> wrote in message
news:asvi8b$9au$1@sunsite.dk...

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

At stille det rette spørgsmål http://www.asp-faq.dk/article/?id=41

--

Mvh / Regards

-=< Christian >=-
ICQ: 25308942
http://www.cmnielsen.dk
Hvis man kloner en sørøver, får man så en piratkopi?



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste