Tæl antal brugere.
Følgende script virker helt som det skal. Det lister bare alle brugerne i en database.Jeg vil gerne have lavet en tilføjelse... Simpelthen bare at man i toppen af siden kan se hvor mange brugere (med Feltnavnet "MON" sat til ja) der er.
Altså noget i retning af : "Select * From Users Where MON = 'Ja'"
<html>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<title>Vis Brugere</title>
<link rel="stylesheet" type="text/css" href="../../STYLE/style.css">
</head>
<body background="../../IMAGES/startile.gif" text="#000000" link="#FFC600" vlink="#FFC600" alink="#975386">
<br><br>
<div style="text-align:center">
<form action="slet_bruger.asp" method="post">
<table border="1" cellpadding="0" width="700" cellspacing="4">
<tr align="center">
<td><font><i>Slet</i></font></td>
<td><a href="<%=request.servervariables("script_name")%>"><font><i>Oprettet</i></font></a></td>
<td><a href="<%=request.servervariables("script_name")%>?sort=efternavn"><font><i>Efternavn</i></font></a></td>
<td><a href="<%=request.servervariables("script_name")%>?sort=fornavn"><font><i>Fornavn</i></font></a></td>
<td><a href="<%=request.servervariables("script_name")%>?sort=by"><font><i>By</i></font></a></td>
<td><a href="<%=request.servervariables("script_name")%>?sort=status"><font><i>Status</i></font></a></td>
<td><a href="<%=request.servervariables("script_name")%>?sort=mon"><font><i>MON</i></font></a></td>
<td><a href="<%=request.servervariables("script_name")%>?sort=nyhedsbrev"><font><i>Nyhedsbrev</i></font></a></td>
<td></td>
</tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DATABASER/login.mdb")
Conn.Open DSN
sort = request.querystring("sort")
if sort = "" then
sort = "Op_Date Asc"
elseif sort = "efternavn" then
sort = "LastName"
elseif sort = "fornavn" then
sort = "FirstName"
elseif sort = "by" then
sort = "City"
elseif sort = "status" then
sort = "Admin"
elseif sort = "mon" then
sort = "MON"
elseif sort = "nyhedsbrev" then
sort = "News"
end if
strSQL = "Select * From Users Order By " & sort & ""
Set rs = Conn.Execute(strSQL)
do while not rs.EOF
id = rs("UserID")
%>
<tr align="center">
<td><input type="checkbox" name="check" value="<%=id%>"></td>
<td><a href="ret_brugere.asp?id=<%=id%>"><font><% =rs("Op_Date") %></font></a></td>
<td><font><% =rs("LastName") %></font></td>
<td><font><% =rs("FirstName") %></font></td>
<td><font><% =rs("City") %></font></td>
<td><font><% =rs("Admin") %></font></td>
<td><font><% =rs("MON") %></font></td>
<td><font><% =rs("News") %></font></td>
</tr>
<%
rs.MoveNext
loop
rs.close
Conn.Close
Set Conn = Nothing
%>
</table>
<br>
<input type="submit" value="Slet valgte">
</form>
</div>
</body>
</html>
