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>

<body style="font-family: Arial; font-size: 9pt">


<p align="center"><b><font size="3"><img src="\\mxrs14\ShareeRoom\~Extensions\Dupont_SendToReview\script\dupont2.jpg" width=251 height=71></font></b></p>
<br>


<%
'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

    Next

 

        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


%>
<!--#include virtual="/eRoomASP/EN/eRoomToolkit.asp"-->
<!--#include virtual="/eRoomASP/EN/eRoomCustomCommand.asp"-->
</body></html>

 

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