
16/08/2002, 02:28
|
| | Fecha de Ingreso: enero-2002
Mensajes: 1.438
Antigüedad: 23 años, 3 meses Puntos: 0 | |
Re: Estadísticas Para hacer un graficos de barras utilizo un pequeño truco q me enseño Manuel Rodrigez.
Creo un grafico de 1x 1 pixel
despues lo estiro a mi antojo:
<img src="Pixel.gif" width="<%= DoPercent((rsResultado.Fields.Item("porcentaj e").Value), 0, -2, -2, -2, -1) %>" height="15">
La funcion DoPercent la tengo implementada en JScript:
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoPercent(str, nDigitsAfterDecimal, nLeadingDigit, nUseParensForNeg, nGroupDigits, nLCID)
dim oldLocale
dim oldLCID
strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If
On Error Resume Next
If (nLCID > -1) Then
Session.LCID = nLCID
End If
If (nLCID = -2) Then
oldLocale = GetLocale()
browserLocale = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE ")
SetLocale(browserLocale)
End If
DoPercent = FormatPercent(str, nDigitsAfterDecimal, nLeadingDigit, nUseParensForNeg, nGroupDigits)
If (nLCID > -1) Then
Session.LCID = oldLCID
End If
If (nLCID = -2) Then
SetLocale(oldLocale)
End If
End Function
</SCRIPT> |