lave tabel for hvert årstal
HejsaHttp://www.darkzone.dk/graf/graf2.asp
viser hvad det er jeg har gang i.
Ligenu er der kun 2 felter i databasen. Navn og Procent.
Men det kunne jeg godt tænke mig at udvide med feltet Arstal.
Herefter skal min kode på graf2.asp så udskrive sådan en graf, men for hvert årstal for sig.
Det kan jeg ikke lige gennemskue.
<!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>
<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">Kr<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("diagram.mdb")
tempConn.Open strDSN
strSQL = "SELECT Navn, Procent FROM BrugerStatistik ORDER BY id"
Set rs = tempConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
%>
<td width="25" align="center" valign="bottom"><table border="0" cellspacing="0" cellpadding="0"><tr align="center"><td><img src="bla.jpg" height="<%=rs("Procent")%>" width="5" alt="<%=rs("Procent")%>"></td><%=rs("Procent")%></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;">Uge</td>
<%
Set tempConn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("diagram.mdb")
tempConn.Open strDSN
strSQL = "SELECT Navn, Procent FROM BrugerStatistik ORDER BY id"
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("Navn")%></td>
<%
rs.MoveNext
Loop
End If
tempConn.Close
Set tempConn = Nothing
%>
</tr>
</table>
<br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="50%">
<tr>
<td width="100%"><a href="indtast.asp">Indtast</a></td>
</tr>
</table>
</center>
</div>
</body>
</html>
