Here is the code of that asp. Thanks.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Downtime Chart</TITLE>
<!--METADATA TYPE="TypeLib" NAME="Microsoft ActiveX Data Objects 2.5
Library" UUID="{00000205-0000-0010-8000-00AA006D2EA4}" VERSION="2.5"-->
<LINK REL=STYLESHEET TYPE="text/css" HREF="stylesheets/standardms.css">
<META content="text/html; charset=unicode" http-equiv=Content-Type>
<META content="MSHTML 5.00.2919.6307" name=GENERATOR>
</HEAD>
<!-- #INCLUDE FILE="page_begin.inc" -->
<!-- #include virtual="/Include/CfxIE.inc" -->
<!-- #include virtual="/Include/SfxCrossTab.inc" -->
<!-- #include virtual="/Include/CfxIECmds.inc" -->
<!-- #include virtual="/Include/CfxIEExtra.inc" -->
<SCRIPT LANGUAGE="VBScript">
<!--
Dim sHref, sQString, aArgs, sFacility, syear
Sub ChartFX1_UserCommand(wParam,lParam,nRes)
sHref = location
If Instr(sHref, "?") > 0 Then
sQString = Split(sHref, "?")(1)
If Instr(sQString, "&") > 0 Then
aArgs = Split(sQString, "&")
Else
aArgs = Array(sQString)
End If
'For i = 0 To UBound(aArgs)
' If Instr(LCase(aArgs(i)), "facility=") > 0 Then
sFacility = Split(aArgs(0), "=")(1)
' Exit For
' End If
' If Instr(LCase(aArgs(i)), "year=") > 0 Then
syear = Split(aArgs(1), "=")(1)
' Exit For
'End If
'Next
End If
'Msgbox aArgs(0)
'Msgbox syear
'MsgBox "User Command:" + CStr(lParam)
'navigate
"http://cognos-web/cognos/cgi-bin/ppdscgi.exe?BZ=1AAADMkq0~rAABEwU6VFChh
Eib_64oZOmTdmWYARhw~YLlDJy0rwhM8eEkCg9xMCAEfNj9w_S vQ3P83EPiSolZpCJ2Scm6h
_Yf67Kr2k_JKvKTJI2cN7IoVOG7DFIKZvV3JvCEPitbJbXOqth JoYNGjli0JBB4omcM2HcpN
ETtnbeuCkBI2cyvhzR5td4c5oUCTKlipQiU1_X2gPD2TWzNMgo WzpkiH0Vk65yai_Z2rA226
zVrTIzpm0e2axipn5jq7vvyJOmCaNIEShXglApIvXXEyhONRCi 6Te2ZpucOMYcEWKjpjSoUT
MNrCzJgSOnO1YeDhk3XUKGDZjcYaZmIiOm5toEGzNm3qHI1YK_ 3m6UrTSbzrzU1gbNem5gGZ
lCNb5LwjT6kulMbtws_9tkjJAnRW9lhM2bu2lbw2XSXuw_IxhM 3syh_6bJEKPczEZMhObVSH
vNROpVNMa3L_MHnLEUkjd15MyNmsOn2odmck6o1MvumupHj2ty 0za5im1SM0bF_dNdchJd1Z
Lpaqdi7O0mN8kmVznoxHIkbJzFJI3ZtJKqFOhmOdGapXnLBk4g U9DUbWqIh0odse2dDe7JKT
NnbgFSVokZ8A8="
'window.open
"http://eptesting2:8080/xts/cws?m=/cws/rts.xts&r=/cws/ppw/ppw.rts&s=getc
rosstab&c=<OpenCube%20Name='AllPeriodsDowntime_new '/><SetFilter%20Dim='4
'%20Code='Lost%20BOE'/><SetFilter%20Dim='0'%20Code=" +"'"+ syear +
"0101" + "-"+ syear + "1231'" + "/><SetFilter%20Dim='1'%20Code=" +
"'"+sFacility + "'"+ "/><GetCrossTab/>"
window.open
"http://cognos-web/cognos/cgi-bin/ppdscgi.exe?DC=Q&E=/Downtime%20All%20P
eriods&TX=Organization%09" + sfacility + "%09Down%20Date%09" + syear +
"0101" + "-"+ syear + "1231" + "%09MEASURES%09Lost%20BOE"
'navigate
"http://eptesting2:8080/xts/cws?m=/cws/rts.xts&r=/cws/ppw/ppw.rts&s=getc
rosstab&c=<OpenCube%20Name='AllPeriodsDowntime_new '/><SetFilter%20Dim='0
'%20Code='20020101-20020131'/>"+ "<GetCrossTab/>"
End Sub
-->
</SCRIPT>
<% Dim ars, ars2, acn
if trim(Request.QueryString("facility")) <> "" then
session("strfacility")= Request.QueryString("facility")
else
session("strfacility")= Request.Form("facility")
end if
if trim(Request.QueryString("year")) <> "" then
session("stryear")= Request.QueryString("year")
yr= Request.QueryString("year")
else
session("stryear")= Request.Form("year")
end if
dt_year=right(session("stryear"), 2)
set acn = server.CreateObject("ADODB.Connection")
acn.Open "dsn=ogdwprod;uid=ogdwmart;pwd=ogdwmart;"
set ARS=acn.Execute("select category_desc, event_period, lost_equiv_bbls
from PO_downtime_Facilities where
to_char(to_date(event_period,'MON-RR'),'YYYY') in '"
+session("stryear")+ "'" + " and facility_name='"
+session("strfacility")+ "'" +"order by to_date(event_PERIOD, 'MON-RR'),
class_id, category_id")
set ARS2=acn.Execute("select count(distinct CATEGORY_DESC) t from
PO_DOWNTIME_facilities where facility_name='" +session("strfacility")+
"'" +" and event_period like '%" + dt_year + "'")
'response.write ars2
Set chart1 = Server.CreateObject("ChartFX.WebServer")
chart1.Gallery = BAR
chart1.LegendBox = false
chart1.chart3D = false
chart1.RGBBk = RGB(255,255,255)
Chart1.RGB3DBk = RGB(255,255,255)
Chart1.Title(CHART_TOPTIT) = "Downtime by Categories for " +
session("stryear") + " " + session("strfacility")
chart1.toolbar = true
Chart1.Printer.useprinterresolution =false
Chart1.Axis(AXIS_Y).Format =AF_NUMBER
Chart1.Axis(AXIS_Y).Decimals = 0
chart1.Axis(AXIS_Y).Title = "Lost BOE"
chart1.serLegBox = true
Chart1.Scrollable = true
Chart1.SERLEGBoxObj.Docked = TGFP_BOTTOM
Chart1.AllowEdit = FALSE
'Chart1.DataEditor = TRUE
'Chart1.DataEditorObj.Height = 210
Chart1.Grid = CHART_HORZGRID
Chart1.View3DDepth = 15
' Use the resultset inside the ChartFX ADO Provider
Set CfxAdo= Server.CreateObject("CfxData.ADO")
CfxAdo.ResultSet = ARS
' Creates a new Crosstab data provider
Set CfxCrosstab =
Server.CreateObject("SfxCrosstab.DataProvider")
' Associates the ADO data provider as the data source for the Crosstab
(may be any data provider supported by ChartFX).
CfxCrosstab.DataSource = CfxAdo
' This is the way to specify the CrossTab column definitions. It is
required.
' For further information, please refer to CrossTab readme file at
our Website.
CfxCrosstab.DataType(0) = CTDT_COLUMNHEADING
CfxCrosstab.DataType(1) = CTDT_ROWHEADING
CfxCrosstab.DataType(2) = CTDT_VALUE
' Please notice that you substitute the AdoResultset method by the
GetExternalData method,
' because it's not an ADO data provider but a different data
provider.
Chart1.GetExternalData CfxCrosstab
'Create a New Command
Set NewCommand = Chart1.Commands.AddCommand(100)
' chart1.Commands(100).Picture = 2
'Assing the bitmap icon to the new command
NewCommand.Text = "Drill Down to Detail Downtime Cube"
' Add command to the toolbar and define it's position at the end
Chart1.ToolBarObj.AddItems 1, 22
Chart1.ToolBarObj(22).CommandID = 100
Chart1.OpenDataEx COD_COLORS,12,0
For i = 0 to 11
aaa=Chart1.SerLeg(i)
if aaa ="PROCESS EQUIPMENT (ROTATING)" THEN
Chart1.Series(i).Color = RGB(255,0,0)
end if
if aaa ="PROCESS EQUIPMENT (NON-ROTATING)" THEN
Chart1.Series(i).Color = RGB(255,0,150)
END IF
if aaa ="PROCESS EQUIPMENT (SUBSEA)" THEN
Chart1.Series(i).Color = RGB(255,150,150)
end if
if aaa ="DOWNHOLE EQUIPMENT (DRY TREES)" THEN
Chart1.Series(i).Color = RGB(255,150,255)
end if
if aaa ="TRANSPORTATION" THEN
Chart1.Series(i).Color = RGB(255,222,222)
end if
if aaa ="CONSTRUCTION" THEN
Chart1.Series(i).Color = RGB(0,0,255)
end if
if aaa ="PLANNED MAINTENANCE" THEN
Chart1.Series(i).Color = RGB(0,150,255)
end if
if aaa ="WELL TREATMENT" THEN
Chart1.Series(i).Color = RGB(150,255,255)
end if
if aaa ="RIG WORK / WORKOVER" THEN
Chart1.Series(i).Color = RGB(0,125,0)
end if
if aaa ="WEATHER" THEN
Chart1.Series(i).Color = RGB(125,175,175)
end if
if aaa ="RESERVOIR" THEN
Chart1.Series(i).Color = RGB(50,255,0)
end if
if aaa ="TRANSPORTER PIPELINE" THEN
Chart1.Series(i).Color = RGB(180,255,125)
end if
next
ct=ARS2("t")
For i = 0 to ct-1
ser_value=Chart1.Series(i).Yvalue(0)
if ser_value=0 then
Chart1.Series(i).Yvalue(0)=CHART_HIDDEN
end if
next
if ct<5 then
Chart1.DataEditorObj.Height = 120
end if
if ct=5 then
Chart1.DataEditorObj.Height = 140
end if
if ct=6 then
Chart1.DataEditorObj.Height = 150
end if
if ct=7 then
Chart1.DataEditorObj.Height = 170
end if
if ct=8 then
Chart1.DataEditorObj.Height = 180
end if
if ct=9 then
Chart1.DataEditorObj.Height = 200
end if
if ct=10 then
Chart1.DataEditorObj.Height = 220
end if
if ct=11 then
Chart1.DataEditorObj.Height = 240
end if
if ct>11 then
Chart1.DataEditorObj.Height = 260
end if
Chart1.CloseData COD_COLORS
chart1.URLParamMask = "date=%l"
chart1.URL(0) ="http://houweb3/temp.asp?"
chart1.URL(1) ="http://houweb3/temp.asp?"
chart1.URL(2) ="http://houweb3/temp.asp?"
chart1.URL(3) ="http://houweb3/temp.asp?"
chart1.URL(4) ="http://houweb3/temp.asp?"
chart1.URL(5) ="http://houweb3/temp.asp?"
chart1.URL(6) ="http://houweb3/temp.asp?"
chart1.URL(7) ="http://houweb3/temp.asp?"
chart1.URL(8) ="http://houweb3/temp.asp?"
chart1.URL(9) ="http://houweb3/temp.asp?"
chart1.URL(10) ="http://houweb3/temp.asp?"
chart1.URL(11) ="http://houweb3/temp.asp?"
'chart1.URL(0) =
"http://cognos-web/cognos/cgi-bin/imrap.cgi?iu=IMRAP&cd=V&nid=af46cb1e87
a611d7bb5a98d6d804eec2&cognospmain%20Query_5ffacil ity="+strfacility+"&co
gnospmain%20Query_5fFrom%20DATE=01%2D01%2D2003&cog nospmain%20Query_5fThr
u%20DATE="+through_date
chart1.URLOptions = CHART_URL_JUMP Or CHART_URL_BYSERIES or
CHART_URL_PARAM
chart1.DblClk CHART_URLCLK,0
chart1.URLTarget = "_new"
acn.Close
Chart1.Stacked = CHART_STACKED
set ars = nothing
set ars2 = nothing
set chart = nothing
set acn = nothing
%>
<%= chart1.GetHtmlTag(830,580,"Auto","ChartFX1") %>
<!-- #INCLUDE FILE="page_end.inc" -->
<BR>
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
