Estadísticas

[rrufo]

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>