Ændre fra horisontal til vertikal
Hey..Kan i ændret i scriptet så graferne vises vertikalt med teksten nedenunder hver enkelt graf i stedet for horisontalt som det er nu ?
Det er jo ikke aspkoden der skal kigges på så regner med at I kan klare det :o)
<html><head>
<title>Diagrammer med ASP</title>
</head><body>
<%
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 Navn"
Set rs = tempConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
%>
<center><table style="border-left: 0px none; border-right: 0px none; border-top: 0px none; border-bottom: 0px none" cellspacing=0 cellpadding=2 width="500" bgcolor=gray>
<tr><td><Span class="text"><%=rs("Navn")%></Span><br>
<table style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)" cellspacing=0 cellpadding=2 width="<%=rs("Procent")%> %" bgcolor=red>
<tr><td><%=rs("procent")%></td><td></td></td></tr>
</table>
</td></tr>
</table></center>
<%
rs.MoveNext
Loop
End If
tempConn.Close
Set tempConn = Nothing
%>
</body></html>
