como puedo sacar un dato de asp

tema enviado por principiante en ASP
tema iniciado el 27/02/2008

Buenas tardes,

Estoy haciendo una personalizacion para un programa que se llama eroom es de documentum y necesito saber como puedo sacar unos datos ya que los quiero llevar a otra pagina para que sean graficados, ya logre que me aparescan todos los datos pero no puedo sacarlos solo verlos mi cadigo es el siguiente

<%
'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("ricardo guerra")
 set NomFacility = AppO.GetFacilityByName("facility")
 set Nomroom = NomFacility.GetRoomByName("pruebas")
 set DbName = Nomroom.GetItem("0_99c")
 
 cadena = "."& NomFacility & "." & Nomroom & "." & DbName

Call CalendarDashboardShowResults (DbName)
%>
<%
Sub CalendarDashboardShowResults (item)

Dim dashColums
Dim dashfirts
Dim dashcell
Dim srcitem
Dim foundCount
Dim dashrow 
Dim cells     
Dim srccount
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

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

            Response.Write CSTR(cell.DashboardOperator)& "<br>"

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

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

            Response.Write "cell.Content: (" + TypeName(cell.Content) + ") " + CStr(cell.Content) & "<br>"
 

    Next

        Set dashrow = dashboardresults.GetNext()

    Wend
End Sub
%>

y me aparece esto en pantalla:

facility.pruebas.testDASHBOARD ROW # 1, SourceItem=test
SourceResultCount=3
DASHBOARD CELLS: count=32
nuem
1
min
1.00
cell.Content: (Double) 1
nuem
2
max
3.00
cell.Content: (Double) 3
nuem
32
non-blank
3
cell.Content: (Long) 3
est
64
a
2
cell.Content: (Long) 2
est
64
c
1
cell.Content: (Long) 1
usua
64
dos
1
cell.Content: (Long) 1
usua
64
tres
1
cell.Content: (Long) 1
usua
64
uno
1
cell.Content: (Long) 1
pi/loc
64
d
3
cell.Content: (Long) 3
neg
64
h
2
cell.Content: (Long) 2
neg
64
j
1
cell.Content: (Long) 1
resp
64
cinco
1
cell.Content: (Long) 1
resp
64
dos
1
cell.Content: (Long) 1
resp
64
uno
1
cell.Content: (Long) 1
turu
64
(none selected)
1
cell.Content: (Long) 1
turu
64
l
2
cell.Content: (Long) 2
hecha
1
earliest
1 Feb 08
cell.Content: (Date) 2/1/2008
hecha
2
latest
17 Feb 08
cell.Content: (Date) 2/17/2008
hecha
32
non-blank
3
cell.Content: (Long) 3
hecha
64
done
0
cell.Content: (Long) 0
hecha
64
not done
3
cell.Content: (Long) 3
cat
64
o
2
cell.Content: (Long) 2
cat
64
q
1
cell.Content: (Long) 1
pais
64
r
2
cell.Content: (Long) 2
pais
64
t
1
cell.Content: (Long) 1
serv
64
u
1
cell.Content: (Long) 1
serv
64
v
2
cell.Content: (Long) 2
desco
64
x
1
cell.Content: (Long) 1
desco
64
z
2
cell.Content: (Long) 2
acciones recom
32
non-blank
3
cell.Content: (Long) 3
status
64
ab
1
cell.Content: (Long) 1
status
64
ef
2
cell.Content: (Long) 2

y yo solo quiero los datos de usua y unos numeros