no se ven las imagenes en mi asp

tema enviado por principiante en ASP
tema iniciado el 06/03/2008

Saludos,

Elaboré un asp pero en algunas partes si se ven las imagenes que invoco pero en otros ordenadores donde meto el mismo código no se ve, el cóidigo es el siguiente:

<html>

<head>
<title>Gráfico de barras - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>

<%
'Determinación de las variables
Dim AppO
Dim Loguser
Dim Nomroom
Dim NomFacility
Dim DbName
Dim Cadena
Dim dashboard, dashboardresults

'Determinación de cada nivel de eroom

Set AppO = CreateObject("eRoom.Application")
Set Loguser = AppO.LoginUser("DuPont ERoom")
set NomFacility = AppO.GetFacilityByName("facility")
set Nomroom = NomFacility.GetRoomByName("midrange")
set DbName = Nomroom.GetItem("0_a0b")

cadena = "."& NomFacility & "." & Nomroom & "." & DbName

CalendarDashboardShowResults (DbName)

Sub CalendarDashboardShowResults (item)

Dim dashColums
Dim dashfirts
Dim dashcell
Dim srcitem
Dim foundCount
Dim dashrow
Dim cells
Dim srccount
Dim cell
Dim almcell
Dim almacena(8)
Dim store(8)
Dim store2(8)
Dim x
Dim i
i=0

foundCount = 0

' Response.Write(Cadena)

Set dashboard = item

Set dashboardresults = dashboard.GetDashboardResults()
'Set dashfirts = dashboardresults.GetFirst ()
'Set dashcell = dashfirts.DashboardCells

Set dashrow = dashboardresults.GetFirst()

While Not (dashrow Is Nothing)

foundCount = foundCount + 1

Set srcitem = dashrow.sourceitem

srccount = dashrow.SourceResultCount

If dashrow.sourceitem Is Nothing Then

' Response.Write "DASHBOARD ROW # " + CStr(foundCount) + ", SourceItem=NOTHING; (TOTALS ROW)"& "<br>"

Else

' Response.Write "DASHBOARD ROW # " + CStr(foundCount) + ", SourceItem=" + dashrow.sourceitem.Name & "<br>"

End If

' Response.Write "SourceResultCount=" + CStr(srccount) & "<br>"

Set cells = dashrow.DashboardCells

' Response.Write "DASHBOARD CELLS: count=" + CStr(cells.Count) & "<br>"

For Each cell In cells

If cell.column.Name="Responsible" Then

' Response.Write cell.column.Name & "<br>"

' Response.Write cell.ColumnLabel & "<br>"

' Response.Write cell.DisplayContent & "<br>"

  almacena(i) = cell.column.Name
  store(i) = cell.ColumnLabel
  store2(i) = cell.DisplayContent

     i = i + 1

End If

Set dashrow = dashboardresults.GetNext()

Wend

'Dim a

' Response.Write almacena(0) & "<br>"

' For a=0 to i
' Response.Write store(a) & "<br>"
' Response.Write store2(a)& "<br>"
' next
'-------------------------------------------------------------------------------------------------------------------------

'Esto es lo que grafica

ShowChart Array( store2(0),store2(1),store2(2),store2(3),store2(4)), Array(store(0),store(1),store(2),store(3),store(4)), "Estadísticas", almacena(0), "Frecuencia"
Response.Write"<br><br><br>"
Randomize

End Sub

<%Sub ShowChart(ByRef aValues, ByRef aLabels, ByRef strTitle, ByRef strXAxisLabel, ByRef strYAxisLabel)
Const gr_WIDTH = 450
Const gr_HEIGHT = 250
Const gr_BORDER = 5
Const gr_SPACER = 2
Const tbl_BORDER = 0
iMaxValue = 0
For I = 0 To UBound(aValues)
If iMaxValue < aValues(I) Then iMaxValue = aValues(I)
Next
iBarWidth = (gr_WIDTH \ (UBound(aValues) + 1)) - gr_SPACER

'NOTE: Each of the images you see in this code are just 1 pixel by 1 pixel
'wide, but we make them in different colors for the chart, and then
'stretch them to the size that we need them with the code below:
Response.Write"<table border="&tbl_BORDER&" cellspacing=0 cellpadding=0>"&_
"<tr><td colspan=3 align=center><h2>"&strTitle&"</h2></td></tr>"&_
"<tr>"&_
"<td valign=center><b>"&strYAxisLabel&"</td>"&_
"<td valign=top>"&_
"<table border="&tbl_BORDER&" cellspacing=0 cellpadding=0>"&_
"<tr>"&_
"<td rowspan=2><img src=""C:\spacer.jpg"" border=0 width=1 height="&gr_HEIGHT&"></td>"&_
"<td valign=top align=right><b></b></td>"&_
"</tr>"&_
"<tr><td valign=bottom align=right>. </td></tr>"&_
"</table>"&_
"</td>"&_
"<td>"&_
"<table border="&tbl_BORDER&" cellspacing=0 cellpadding=0>"&_
"<tr>"&_
"<td valign=bottom><img src=""C:/dibujosdupont/spacer_black.jpg"" border=0 width="&gr_BORDER&" height="&gr_HEIGHT&"></td>"
For I = 0 To UBound(aValues)
iBarHeight = Int((aValues(I) / iMaxValue) * gr_HEIGHT)
If iBarHeight = 0 Then iBarHeight = 1
Response.Write"<td valign=bottom><img src=""C:\dibujosdupont\spacer.jpg"" border=0 width="&gr_SPACER&" height=1></td>"&_
"<td valign=bottom><img src=""C:\dibujosdupont\spacer_red.jpg"" border=0 width="&iBarWidth&" height="&iBarHeight&" alt="""&aValues(I)&"""></a></td>"
Next
Response.Write"</tr>"&_
"<tr><td colspan="&(2*(UBound(aValues)+1))+1&"><img src=""C:\dibujosdupont\spacer_black.jpg"" border=0 width="&gr_BORDER+((UBound(aValues)+1)*(iBarWidth+gr_SPACER))&" height="&gr_BORDER&"></td></tr>"
If IsArray(aLabels) Then
Response.Write"<tr><td> </td>"
For I = 0 To UBound(aValues)
Response.Write"<td> </td><td align=center><font size=1>"&aLabels(I)&"</td>"
Next
Response.Write"</tr>"
End If
Response.Write"</table></td></tr><tr><td colspan=2> </td><td align=center><br><b>"&strXAxisLabel&"</td></tr></table>"
End Sub
%>

sub InsertButtons
InsertButton "Refresh","Refresh",80,"true"
InsertButton "Cancel","Cancel",80,"true"
end sub
sub InsertDialogBody
WriteCommandContext m_Context
end sub

%>


</body></html>

mi pregunta es "¿Qué estoy haciendo algo mal?, o necesito mover algo a la configuración para que aparesca mi gráfica".