Hjælp til count først og så læs fra DB igen
Jeg prøver at læse fra databasen log.mdb.Her står en masse UserID og jeg vil gerne læse UserID navnet og antal gange Userid står der. Jeg har nedenstående, men kan ik helt gennemskue hvad jeg gør galt!
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<style>
BODY, TD {
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size : 11px;
}
</style>
</head>
<body>
<%
Set tempConn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../admin/log.mdb")
tempConn.Open strDSN
strSQL = "select userid,count(*) as antal from logtabel group by userid;"
Set rs = tempConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
%>
<table height="200" border="0" cellspacing="0" cellpadding="0" bgcolor="#D6D6D6" style="border-left: 1px solid Black; border-right: 1px solid Black; border-top: 1px solid Black;">
<tr>
<td width="20" align="center" valign="bottom">-<br>-<br>-<br>-<br>10<br>-<br>-<br>-<br>-<br>5<br>-<br>-<br>-<br>-<br>0</td>
<td width="20" align="center" valign="bottom"><table border="0" cellspacing="0" cellpadding="0"><tr><td width="18" height="<%=rs("UserID")%>" bgcolor="#6a6a6a"> </td></tr></table></td>
</tr>
<tr>
<td height="20" align="center" valign="middle" bgcolor="#FCFCFC" style="border-top: 2px double Black; border-bottom: 1px solid Black; border-left: 1px solid Black;">Uge</td>
<td height="20" align="center" valign="middle" bgcolor="#fcfcfc" style="border-top: 2px double Black; border-bottom: 1px solid Black;"><%=rs("Antal")%></td>
</tr>
</table>
<%
rs.MoveNext
Loop
End If
tempConn.Close
Set tempConn = Nothing
%>
</body>
</html>
