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 :<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