Vorrei modificare il seguente script - grafico con valori di temperatura - in quanto non riesco a visualizzarne i valori negativi.
Le barre verticali del grafico sono ok se i valori sono positivi, non si vedono se i dati sono negativi.
Qualcuno può aiutarmi?
Grazie
Link al grafico: http://www.teleparconord.it/2005/mis...?mese=novembre
--------------------------------------------------------------------
<body>
<div id="frame"> <%
Dim mese
mese=request.querystring("mese")
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/2005.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from temperature where elemento ='aria' and siti ='campione' and mese ='"& mese &"' order by data", conn
%>
<h6>Mese di <%response.write(mese)%> - grafico della temperatura dell'aria
nel sito campione </h6>
<table class="sample" align="center" width="98%">
<tr>
<td align="left" valign="bottom" width="50">
T
Data
</p>
</td>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
temp=rs("temp")
%>
<td align="left" valign="bottom">
[img]images/green.jpg[/img]"></p>
<%= temp & "
" & rs("data") %></p>
</td>
<%
rs.MoveNext
loop
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>
</tr>
</table>
Stampa
Chiudi questa finestra </p>
</div>
</body>
Rispondi quotando
