Læs max dato eller nyeste dato
jeg vil gerne have flettet ind i nedenstående kode at den også læser den nyeste dato for hver UserID så jeg kan bruge det i linie 29 i stedet for alt="<%=rs("Antal")%>" så alt="<%=senestedato%>" fx<!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 : 10px;
}
</style>
</head>
<body bgcolor="#bbbb88">
<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="30" align="center" valign="bottom">Antal login<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-</td>
<%
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
%>
<td width="50" align="center" valign="bottom"><table border="0" cellspacing="0" cellpadding="0"><tr align="center"><td><img src="bla.jpg" height="<%=rs("Antal")%>" width="5" alt="<%=rs("Antal")%>"></td><%=rs("Antal")%></tr></table></td>
<%
rs.MoveNext
Loop
End If
tempConn.Close
Set tempConn = Nothing
%>
</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;">Navn</td>
<%
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
%>
<td height="20" align="center" valign="middle" bgcolor="#fcfcfc" style="border-top: 2px double Black; border-bottom: 1px solid Black;"><%=rs("Userid")%></td>
<%
rs.MoveNext
Loop
End If
tempConn.Close
Set tempConn = Nothing
%>
</tr>
</table>
</body>
</html>
