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>