Help with ASP files (work for just a standalone computer vice a server)
0 views
Skip to first unread message
Lostguy
Dec 24, 2008, 8:03:30 AM12/24/08
to DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting
Hello!
After Googling for weeks, I found this site on how to create an
organization chart using the data stored in an Access database:
http://www.codeproject.com/KB/database/BSRKOrganizationChart.aspx?fid=80985&df=90&mpp=25&noise=3&sort=Position&view=Quick&select=889341.
There are only 4 files (OrganizationCreate.asp, OrganizationOpen.asp,
dbOrganzationChart.mdb, and NewOrgChartLans.xlt).
The problem is that a) I don't have enough knowledge to read
through .asp code and b) the .asp files are set up for a server rather
than just for a local machine
Can someone look at this code and provide some help on what needs to
be changed so this can work on just my local computer to create the
chart?
Thanks!
VR/Lost
OrganizationCreate.asp:
<%@ Language=VBScript %>
<%response.buffer=true%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<script language="javascript">
function fOpenChart()
{
document.OrgCreate.action ="OrganizationOpen.asp";
document.OrgCreate.submit();
}
</script>
<form name="OrgCreate" method=post>
<BODY bgcolor=708090 >
<BR>
<BR>
<BR>
<BR>
<center>
<FONT color=00FFFF size=5 style="FONT-STYLE:ARIAL FONT-SIZE:20px">
<I><B>Organization Chart</B></I>
</FONT>
<BR>
<BR>
<BR>
<input type=button id=OpenOrgChart name=OpenOrgChart value="Generate
Organization Chart" onclick="fOpenChart()">
</center>
<%
dim strSQL,sconn,SQLConnect,SQLRecordSet
Response.Buffer=true
src=server.MapPath("dbOrganizationChart.mdb")
sconn="provider=microsoft.jet.oledb.4.0;data source=" & src
set SQLConnect=server.createobject("adodb.connection")
SQLConnect.open sconn
%>
<%
Dim VDE,VDM,strSQLDGH,strSQLDDH,strSQLSH,strSQLDE,strSQLDM
VDE="DE"
VDM="DM"
strSelDGH="DGH"
'STARTING FROM TOP MANAGEMENT LEVEL
'START AND END LEVEL CAN BE DECIDED BY THE USER
strSQLDGH="select distinct(DGH) from tblOrganizationChart where
dgh='" & strSelDGH & "'"
strSQLDDH="select distinct(DDH),DGH from tblOrganizationChart where
dgh='" & strSelDGH & "'"
strSQLSH="select distinct(SH),DGH,DDH from tblOrganizationChart where
dgh='" & strSelDGH & "' order by DDH"
strSQLDE="select * from tblOrganizationChart where ISODesignation='"
& VDE & "' and dgh='" & strSelDGH & "' order by DDH,SH,cadre,EmpID"
strSQLDM="select * from tblOrganizationChart where ISODesignation='"
& VDM & "' and dgh='" & strSelDGH & "' order by DDH,SH,cadre,EmpID"
%>
<%
Dim numOrderDGH
numOrderDGH=0
Dim ArrDGH()
Dim ArrOrderDGH()
Dim CntDGH
CntDGH=0
Set SQLRecordSetDGH=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetDGH.CursorType=adOpenStatic
SQLRecordSetDGH.Open strSQLDGH,SQLConnect
With SQLRecordSetDGH
Do while not .EOF
CntDGH=CntDGH+1
strDGH=trim(.Fields("DGH"))
numOrderDGH=numOrderDGH + 1
Redim Preserve ArrDGH(CntDGH)
Redim Preserve ArrOrderDGH(CntDGH)
ArrDGH(CntDGH)=strDGH
ArrOrderDGH(CntDGH)=numOrderDGH
.MoveNext
loop
End With
SQLRecordSetDGH.Close
Set SQLRecordSetDGH=Nothing
Set SQLRecordSetDDH=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetDDH.CursorType=adOpenStatic
SQLRecordSetDDH.Open strSQLDDH,SQLConnect
Dim numOrderDDH
numOrderDDH=0
Dim ArrDDH()
Dim ArrOrderDDH()
Dim ArrDGHEndGrp()
Dim CntDDH
CntDDH=0
With SQLRecordSetDDH
Do while not .EOF
CntDDH=CntDDH+1
DDHDGH=trim(.Fields("DGH"))
For G=LBound(ArrDGH) to UBound(ArrDGH)
IF (trim(ArrDGH(G))=trim(DDHDGH)) then
Redim Preserve ArrDGHEndGrp(G)
ArrDGHEndGrp(G)=CntDDH
End IF
Next
strDDH=trim(.Fields("DDH"))
numOrderDDH=numOrderDDH + 1
Redim Preserve ArrDDH(CntDDH)
Redim Preserve ArrOrderDDH(CntDDH)
ArrDDH(CntDDH)=strDDH
ArrOrderDDH(CntDDH)=numOrderDDH
.MoveNext
loop
End With
SQLRecordSetDDH.Close
Set SQLRecordSetDDH=Nothing
Set SQLRecordSetSH=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetSH.CursorType=adOpenStatic
SQLRecordSetSH.Open strSQLSH,SQLConnect
Dim numOrderSH
numOrderSH=0
Dim ArrSH()
Dim ArrOrderSH()
Dim ArrDDHEndGrp()
Dim CntSH
CntSH=0
Dim strSHDataFlg
strSHDataFlg="Failed"
With SQLRecordSetSH
Do while not .EOF
CntSH=CntSH+1
SHDDH=trim(.Fields("DDH"))
For G=LBound(ArrDDH) to UBound(ArrDDH)
IF (trim(ArrDDH(G))=trim(SHDDH)) then
Redim Preserve ArrDDHEndGrp(G)
ArrDDHEndGrp(G)=CntSH
End IF
Next
strSH=trim(.Fields("SH"))
numOrderSH=numOrderSH + 1
Redim Preserve ArrSH(CntSH)
Redim Preserve ArrOrderSH(CntSH)
ArrSH(CntSH)=strSH
ArrOrderSH(CntSH)=numOrderSH
strSHDataFlg="Success"
.MoveNext
loop
End With
SQLRecordSetSH.Close
Set SQLRecordSetSH=Nothing
Set SQLRecordSetDE=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetDE.CursorType=adOpenStatic
SQLRecordSetDE.Open strSQLDE,SQLConnect
Dim numOrderDE
numOrderDE=0
Dim ArrDE()
Dim ArrOrderDE()
Dim ArrDESHEndGrp()
Dim CntDE
CntDE=0
Dim ArrDESHSuccess()
Dim CntDESHSuccess
CntDESHSuccess=0
With SQLRecordSetDE
Do while not .EOF
CntDE=CntDE+1
DESH=trim(.Fields("SH"))
For G=LBound(ArrSH) to UBound(ArrSH)
IF (trim(ArrSH(G))=trim(DESH)) then
Redim Preserve ArrDESHEndGrp(G)
ArrDESHEndGrp(G)=CntDE
Redim Preserve ArrDESHSuccess(CntDESHSuccess)
ArrDESHSuccess(CntDESHSuccess)=G
CntDESHSuccess=CntDESHSuccess + 1
End IF
Next
strDE=trim(.Fields("EmpID"))
numOrderDE=numOrderDE + 1
Redim Preserve ArrDE(CntDE)
Redim Preserve ArrOrderDE(CntDE)
ArrDE(CntDE)=strDE
ArrOrderDE(CntDE)=numOrderDE
.MoveNext
loop
End With
SQLRecordSetDE.Close
Set SQLRecordSetDE=Nothing
Set SQLRecordSetDM=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetDM.CursorType=adOpenStatic
SQLRecordSetDM.Open strSQLDM,SQLConnect
Dim numOrderDM
numOrderDM=0
Dim ArrDM()
Dim ArrOrderDM()
Dim ArrDMSHEndGrp()
Dim CntDM
CntDM=0
Dim ArrDMSHSuccess()
Dim CntDMSHSuccess
CntDMSHSuccess=0
With SQLRecordSetDM
Do while not .EOF
CntDM=CntDM+1
DMSH=trim(.Fields("SH"))
For G=LBound(ArrSH) to UBound(ArrSH)
IF (trim(ArrSH(G))=trim(DMSH)) then
Redim Preserve ArrDMSHEndGrp(G)
ArrDMSHEndGrp(G)=CntDM
Redim Preserve ArrDMSHSuccess(CntDMSHSuccess)
ArrDMSHSuccess(CntDMSHSuccess)=G
CntDMSHSuccess=CntDMSHSuccess+1
End IF
Next
strDM=trim(.Fields("EmpID"))
numOrderDM=numOrderDM + 1
Redim Preserve ArrDM(CntDM)
Redim Preserve ArrOrderDM(CntDM)
ArrDM(CntDM)=strDM
ArrOrderDM(CntDM)=numOrderDM
.MoveNext
loop
End With
SQLRecordSetDM.Close
Set SQLRecordSetDM=Nothing
%>
<%
Dim INPosition
Dim ArrSHPosition(),ArrDDHPosition(),ArrDGHPosition()
INPosition=1
%>
<%
Dim SHX
For T=1 to CntSH
Redim Preserve ArrSHPosition(T)
SHX=ArrOrderSH(T)
ArrSHPosition(T)=(3 * (SHX))- 1
%>
<input type=hidden name=SrSHList id=SrSHList value="<%=ArrSH(T)%>">
<input type=hidden name=SrSHOrder id=SrSHOrder value="<%=ArrOrderSH(T)
%>">
<input type=hidden name=SrSHPosition id=SrSHPosition value="<
%=ArrSHPosition(T)%>">
<%
Next
%>
<%
For T=1 to CntDDH
IF T=1 then
%>
<input type=hidden name=SrDDHStartPt id=SrDDHStartPt value="<
%=INPosition%>">
<%
Else
%>
<input type=hidden name=SrDDHStartPt id=SrDDHStartPt value="<
%=ArrDDHEndGRp(T-1)+1%>">
<%
End If
Redim Preserve ArrDDHPosition(T)
If T=1 then
ArrDDHPosition(T)=(ArrSHPosition(INPosition)+ArrSHPosition
(ArrDDHEndGrp(T)))/2
else
ArrDDHPosition(T)=(ArrSHPosition(ArrDDHEndGrp(T-1)+1)+ArrSHPosition
(ArrDDHEndGrp(T)))/2
end if
%>
<input type=hidden name=SrDDHList id=SrDDHList value="<%=ArrDDH(T)
%>">
<input type=hidden name=SrDDHOrder id=SrDDHOrder value="<%=ArrOrderDDH
(T)%>">
<input type=hidden name=SrDDHEndPt id=SrDDHEndPt value="<%=ArrDDHEndGrp
(T)%>">
<input type=hidden name=SrDDHPosition id=SrDDHPosition value="<
%=ArrDDHPosition(T)%>">
<%
Next
%>
<%
For T=1 to CntDGH
IF T=1 then
%>
<input type=hidden name=SrDGHStartPt id=SrDGHStartPt value="<
%=INPosition%>">
<%
Else
%>
<input type=hidden name=SrDGHStartPt id=SrDGHStartPt value="<
%=ArrDGHEndGRp(T-1)+1%>">
<%
End If
Redim Preserve ArrDGHPosition(T)
ArrDGHPosition(T)=(ArrDDHPosition(ArrDGHEndGrp(T-1)+1)+ArrDDHPosition
(ArrDGHEndGrp(T)))/2
%>
<input type=hidden name=SrDGHList id=SrDGHList value="<%=ArrDGH(T)
%>">
<input type=hidden name=SrDGHOrder id=SrDGHOrder value="<%=ArrOrderDGH
(T)%>">
<input type=hidden name=SrDGHEndPt id=SrDGHEndPt value="<%=ArrDGHEndGrp
(T)%>">
<input type=hidden name=SrDGHPosition id=SrDGHPosition value="<
%=ArrDGHPosition(T)%>">
<%
Next
%>
<%
For T=1 to CntDE
Redim Preserve ArrDEPosition(T)
ArrDEPosition(T)=ArrOrderDE(T)
%>
<input type=hidden name=SrDEList id=SrDEList value="<%=ArrDE(T)%>">
<input type=hidden name=SrDEOrder id=SrDEOrder value="<%=ArrOrderDE(T)
%>">
<input type=hidden name=SrDEPosition id=SrDEPosition value="<
%=ArrDEPosition(T)%>">
<%
Next
%>
<%
For k=LBound(ArrDESHEndGrp) to UBound(ArrDESHEndGrp)
IF k=LBound(ArrDESHEndGrp) then
%>
<input type=hidden name=SrDEStartPt id=SrDEStartPt value="<
%=INPosition%>">
<%
Else
%>
<input type=hidden name=SrDEStartPt id=SrDEStartPt value="<
%=ArrDESHEndGrp(k-1)+1%>">
<%
End if
%>
<input type=hidden name=SrDEEndPt id=SrDEEndPt value="<%=ArrDESHEndGrp
(k)%>">
<%
Next
%>
<%
For T=1 to CntDM
Redim Preserve ArrDMPosition(T)
ArrDMPosition(T)=ArrOrderDM(T)
%>
<input type=hidden name=SrDMList id=SrDMList value="<%=ArrDM(T)%>">
<input type=hidden name=SrDMOrder id=SrDMOrder value="<%=ArrOrderDM(T)
%>">
<input type=hidden name=SrDMPosition id=SrDMPosition value="<
%=ArrDMPosition(T)%>">
<%
Next
%>
<%
For k=LBound(ArrDMSHEndGrp) to UBound(ArrDMSHEndGrp)
IF k=LBound(ArrDMSHEndGrp) then
%>
<input type=hidden name=SrDMStartPt id=SrDMStartPt value="<
%=INPosition%>">
<%
Else
%>
<input type=hidden name=SrDMStartPt id=SrDMStartPt value="<
%=ArrDMSHEndGrp(k-1)+1%>">
<%
End if
%>
<input type=hidden name=SrDMEndPt id=SrDMEndPt value="<%=ArrDMSHEndGrp
(k)%>">
<%
Next
%>
</BODY>
</Form>
</HTML>
OrganizationOpen.asp:
<%@ Language=VBScript %>
<%response.buffer=true%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<%
CLDGHList=trim(Request.Form("SrDGHList"))
CLDGHOrder=trim(Request.Form("SrDGHOrder"))
CLDGHStartPt=trim(Request.Form("SrDGHStartPt"))
CLDGHEndPt=trim(Request.Form("SrDGHEndPt"))
CLDGHPosition=trim(Request.Form("SrDGHPosition"))
%>
<%
CLDDHList=trim(Request.Form("SrDDHList"))
CLDDHOrder=trim(Request.Form("SrDDHOrder"))
CLDDHStartPt=trim(Request.Form("SrDDHStartPt"))
CLDDHEndPt=trim(Request.Form("SrDDHEndPt"))
CLDDHPosition=trim(Request.Form("SrDDHPosition"))
%>
<%
CLSHList=trim(Request.Form("SrSHList"))
CLSHOrder=trim(Request.Form("SrSHOrder"))
CLSHPosition=trim(Request.Form("SrSHPosition"))
%>
<%
CLDEList=trim(Request.Form("SrDEList"))
CLDEPosition=trim(Request.Form("SrDEPosition"))
CLDEOrder=trim(Request.Form("SrDEOrder"))
CLDEStartPt=trim(Request.Form("SrDEStartPt"))
CLDEEndPt=trim(Request.Form("SrDEEndPt"))
%>
<%
CLDMList=trim(Request.Form("SrDMList"))
CLDMPosition=trim(Request.Form("SrDMPosition"))
CLDMOrder=trim(Request.Form("SrDMOrder"))
CLDMStartPt=trim(Request.Form("SrDMStartPt"))
CLDMEndPt=trim(Request.Form("SrDMEndPt"))
%>
<%
strExTemplatePath=Server.MapPath("OrgChartLans.xlt")
%>
<script language="vbscript">
Function OpenChart()
Dim strExcelPath
Dim strMaclevel
strExcelPath=trim(document.OpenOrgChart.ExFile.value)
'strExcelPath="HTTP:\\localhost\OrgChart\OrgChartLans.xlt"
Set xlApp =CreateObject("Excel.Application")
Set xlBook=xlApp.WorkBooks.Add(strExcelPath)
Set xlSheet=xlBook.WorkSheets("OrgChart")
Dim DDHRow,SHRow,DDHCol,DGHCol
DGHPS=2
DDHPS=3
SHPS=4
ValDGHList=document.OpenOrgChart.INDGHList.value
ValDGHStartPt=document.OpenOrgChart.INDGHStartPt.value
ValDGHEndPnt=document.OpenOrgChart.INDGHEndPt.value
ValDGHPosition=document.OpenOrgChart.INDGHPosition.value
ArrDGHStartPnt=Split(ValDGHStartPt,",")
ArrDGHEndPnt=Split(ValDGHEndPnt,",")
ArrDGHList=Split(ValDGHList,",")
ArrDGHPos=Split(ValDGHPosition,",")
RowESpace=0
DGHRow=(DGHPS-1)
DDHRow=(DDHPS-1)
SHRow=(SHPS-1)
Dim strDGH1
Dim ArrstrDGH1()
strDGH1=""
For i=LBound(ArrDGHList) to UBound(ArrDGHLIst)
strDGH1=""
DGHCol=cint(trim(ArrDGHPos(i)))
strDGH1=trim(strDGH1) & trim(ArrDGHList(i))
Redim Preserve ArrstrDGH1(i)
IF not(len(strDGH1)=0)then
ArrstrDGH1(i)=strDGH1
else
ArrstrDGH1(i)=0
End if
Next
strMaclevel="DGH"
xlApp.Run "MacroDrawBox",UBound
(ArrDGHLIst),ArrstrDGH1,ArrDGHPos,DGHRow,strMaclevel
Dim strDDH1
Dim ArrstrDDH1()
strDDH1=""
ValDDHList=document.OpenOrgChart.INDDHList.value
ArrDDHList=Split(ValDDHList,",")
ValDDHPosition=document.OpenOrgChart.INDDHPosition.value
ArrDDHPos=Split(ValDDHPosition,",")
For i=LBound(ArrDDHList) to UBound(ArrDDHLIst)
strDDH1=""
DDHCol=cint(trim(ArrDDHPos(i)))
strDDH1=strDDH1 & ArrDDHList(i)
Redim Preserve ArrstrDDH1(i)
ArrstrDDH1(i)=strDDH1
Next
strMaclevel="DDH"
xlApp.Run "MacroDrawBox",UBound
(ArrDDHLIst),ArrstrDDH1,ArrDDHPos,DDHRow,strMaclevel
strConLevel="DGH"
xlApp.Run "mConnectors",UBound
(ArrDGHLIst),ArrDGHStartPnt,ArrDGHEndPnt,strConLevel
Dim strSH1,MacEDRow
Dim ArrstrSH1(),ArrstrDE(),ArrstrDM(),ArrDECol(),ArrDMCol
(),ArrStartPtDE(), ArrEndPtDE()
strSH1=""
SHCol=0
ValSHList=document.OpenOrgChart.INSHList.value
ArrSHList=Split(ValSHList,",")
ValSHPosition=document.OpenOrgChart.INSHPosition.value
ArrSHPos=Split(ValSHPosition,",")
ValDEList=document.OpenOrgChart.INDEList.value
ValDMList=document.OpenOrgChart.INDMList.value
ArrDMList=Split(ValDMList,",")
ArrDEList=Split(ValDEList,",")
ValDMEndPt=document.OpenOrgChart.INDMEndPt.value
ValDEEndPt=document.OpenOrgChart.INDEEndPt.value
ArrDMEndPt=Split(ValDMEndPt,",")
ArrDEEndPt=Split(ValDEEndPt,",")
For i=LBound(ArrSHList) to UBound(ArrSHLIst)
Dim SEmptyDE
Dim SEmptyDM
SEmptyDE=-1
SEmptyDM=-1
strSH1=""
strSH2=""
SHCol=cint(ArrSHPos(i))
Redim Preserve ArrDECol(i)
Redim Preserve ArrDMCol(i)
ArrDECol(i)=SHCol-1
ArrDMCol(i)=SHCol+1
strSH1=trim(strSH1) & trim(ArrSHList(i))
Redim Preserve ArrstrSH1(i)
ArrstrSH1(i)=strSH1
Dim strDE,strDM,strGroupDE,strGroupDM
strGroupDE=""
strGroupDM=""
strDE=""
strDM=""
Redim Preserve ArrstrDE(i)
Redim Preserve ArrstrDM(i)
DMRow=SHRow
DERow=SHRow
MacEDRow = DMRow
IF i=(LBound(ArrSHList)) then
For T=1 to ArrDEEndPt(i+1)
strDE=""
strDE=trim(strDE) & trim(ArrDEList(T-1))
strGroupDE=strGroupDE & "\" & strDE
DERow=DERow + RowESpace
Next
Redim Preserve ArrStartPtDE(i)
Redim Preserve ArrEndPtDE(i)
ArrStartPtDE(i)=1
ArrEndPtDE(i)=ArrDEEndPt(i+1)
ArrstrDE(i)=strGroupDE
For T=1 to ArrDMEndPt(i+1)
strDM=""
strDM=trim(strDM) & trim(ArrDMList(T-1))
strGroupDM=strGroupDM & "\" & strDM
DMRow=DMRow + RowESpace
Next
Redim Preserve ArrStartPtDM(i)
Redim Preserve ArrEndPtDM(i)
ArrStartPtDM(i)=1
ArrEndPtDM(i)=ArrDMEndPt(i+1)
ArrstrDM(i)=strGroupDM
ELSE
For T=(ArrDEEndPt(i)+1) to ArrDEEndPt(i+1)
strDE=""
strDE=trim(strDE) & trim(ArrDEList(T-1))
strGroupDE=strGroupDE & "\" & strDE
DERow=DERow + RowESpace
Next
Redim Preserve ArrStartPtDE(i)
Redim Preserve ArrEndPtDE(i)
ArrStartPtDE(i)=ArrDEEndPt(i)+1
ArrEndPtDE(i)=ArrDEEndPt(i+1)
ArrstrDE(i)=strGroupDE
For T=(ArrDMEndPt(i)+1) to ArrDMEndPt(i+1)
strDM=""
strDM=strDM & ArrDMList(T-1)
strGroupDM=strGroupDM & "\" & strDM
DMRow=DMRow + RowESpace
Next
Redim Preserve ArrStartPtDM(i)
Redim Preserve ArrEndPtDM(i)
ArrStartPtDM(i)=ArrDMEndPt(i)+1
ArrEndPtDM(i)=ArrDMEndPt(i+1)
ArrstrDM(i)=strGroupDM
END IF
Next
ValDDHStartPnt=document.OpenOrgChart.INDDHStartPt.value
ValDDHEndPnt=document.OpenOrgChart.INDDHEndPt.value
Dim ArrDDHStartPnt,ArrDDHEndPnt
ArrDDHStartPnt=Split(ValDDHStartPnt,",")
ArrDDHEndPnt=Split(ValDDHEndPnt,",")
ECount=UBound(ArrSHLIst)
strMaclevel="SH"
xlApp.Run "MacroDrawBox",ECount,ArrstrSH1,ArrSHPos,SHRow,strMaclevel
strConLevel="DDH"
xlApp.Run "mConnectors",UBound
(ArrDDHLIst),ArrDDHStartPnt,ArrDDHEndPnt,strConLevel
xlApp.Run
"MacroDrawBoxED",ECount,ArrstrDE,ArrstrDM,MacEDRow,ArrDECol,ArrDMCol
xlApp.Run "mConnectorsED",ECount
xlApp.Run "mConnectorSubED",ECount,ArrStartPtDE, ArrEndPtDE,
ArrStartPtDM, ArrEndPtDM
xlApp.visible=true
Set xlApp=Nothing
Set xlBook=Nothing
Set xlSheet=Nothing
document.OpenOrgChart.action="OrganizationCreate.asp"
document.OpenOrgChart.submit()
End Function
</script>
<form name="OpenOrgChart" method="post">
<BODY onload="OpenChart()" BGCOLOR= 708090>
<input type=hidden name="INDGHList" id="INDGHList" value="<%=CLDGHList
%>">
<input type=hidden name="INDGHOrder" id="INDGHOrder" value="<
%=CLDGHOrder%>">
<input type=hidden name="INDGHStartPt" id="INDGHStartPt" value="<
%=CLDGHStartPt%>">
<input type=hidden name="INDGHEndPt" id="INDGHEndPt" value="<
%=CLDGHEndPt%>">
<input type=hidden name="INDGHPosition" id="INDGHPosition" value="<
%=CLDGHPosition%>">
<input type=hidden name="INDDHList" id="INDDHList" value="<%=CLDDHList
%>">
<input type=hidden name="INDDHOrder" id="INDDHOrder" value="<
%=CLDDHOrder%>">
<input type=hidden name="INDDHStartPt" id="INDDHStartPt" value="<
%=CLDDHStartPt%>">
<input type=hidden name="INDDHEndPt" id="INDDHEndPt" value="<
%=CLDDHEndPt%>">
<input type=hidden name="INDDHPosition" id="INDDHPosition" value="<
%=CLDDHPosition%>">
<input type=hidden name="INSHList" id="INSHList" value="<%=CLSHList
%>">
<input type=hidden name="INSHOrder" id="INSHOrder" value="<%=CLSHOrder
%>">
<input type=hidden name="INSHPosition" id="INSHPosition" value="<
%=CLSHPosition%>">
<input type=hidden name="INDMList" id="INDMList" value="<%=CLDMList
%>">
<input type=hidden name="INDMEndPt" id="INDMEndPt" value="<%=CLDMEndPt
%>">
<input type=hidden name="INDEList" id="INDEList" value="<%=CLDEList
%>">
<input type=hidden name="INDEEndPt" id="INDEEndPt" value="<%=CLDEEndPt
%>">
<input type=hidden name="ExFile" id="ExFile" value="<
%=strExTemplatePath%>">
</BODY>
</form>
</HTML>
After Googling for weeks, I found this site on how to create an
organization chart using the data stored in an Access database:
http://www.codeproject.com/KB/database/BSRKOrganizationChart.aspx?fid=80985&df=90&mpp=25&noise=3&sort=Position&view=Quick&select=889341.
There are only 4 files (OrganizationCreate.asp, OrganizationOpen.asp,
dbOrganzationChart.mdb, and NewOrgChartLans.xlt).
The problem is that a) I don't have enough knowledge to read
through .asp code and b) the .asp files are set up for a server rather
than just for a local machine
Can someone look at this code and provide some help on what needs to
be changed so this can work on just my local computer to create the
chart?
Thanks!
VR/Lost
OrganizationCreate.asp:
<%@ Language=VBScript %>
<%response.buffer=true%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<script language="javascript">
function fOpenChart()
{
document.OrgCreate.action ="OrganizationOpen.asp";
document.OrgCreate.submit();
}
</script>
<form name="OrgCreate" method=post>
<BODY bgcolor=708090 >
<BR>
<BR>
<BR>
<BR>
<center>
<FONT color=00FFFF size=5 style="FONT-STYLE:ARIAL FONT-SIZE:20px">
<I><B>Organization Chart</B></I>
</FONT>
<BR>
<BR>
<BR>
<input type=button id=OpenOrgChart name=OpenOrgChart value="Generate
Organization Chart" onclick="fOpenChart()">
</center>
<%
dim strSQL,sconn,SQLConnect,SQLRecordSet
Response.Buffer=true
src=server.MapPath("dbOrganizationChart.mdb")
sconn="provider=microsoft.jet.oledb.4.0;data source=" & src
set SQLConnect=server.createobject("adodb.connection")
SQLConnect.open sconn
%>
<%
Dim VDE,VDM,strSQLDGH,strSQLDDH,strSQLSH,strSQLDE,strSQLDM
VDE="DE"
VDM="DM"
strSelDGH="DGH"
'STARTING FROM TOP MANAGEMENT LEVEL
'START AND END LEVEL CAN BE DECIDED BY THE USER
strSQLDGH="select distinct(DGH) from tblOrganizationChart where
dgh='" & strSelDGH & "'"
strSQLDDH="select distinct(DDH),DGH from tblOrganizationChart where
dgh='" & strSelDGH & "'"
strSQLSH="select distinct(SH),DGH,DDH from tblOrganizationChart where
dgh='" & strSelDGH & "' order by DDH"
strSQLDE="select * from tblOrganizationChart where ISODesignation='"
& VDE & "' and dgh='" & strSelDGH & "' order by DDH,SH,cadre,EmpID"
strSQLDM="select * from tblOrganizationChart where ISODesignation='"
& VDM & "' and dgh='" & strSelDGH & "' order by DDH,SH,cadre,EmpID"
%>
<%
Dim numOrderDGH
numOrderDGH=0
Dim ArrDGH()
Dim ArrOrderDGH()
Dim CntDGH
CntDGH=0
Set SQLRecordSetDGH=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetDGH.CursorType=adOpenStatic
SQLRecordSetDGH.Open strSQLDGH,SQLConnect
With SQLRecordSetDGH
Do while not .EOF
CntDGH=CntDGH+1
strDGH=trim(.Fields("DGH"))
numOrderDGH=numOrderDGH + 1
Redim Preserve ArrDGH(CntDGH)
Redim Preserve ArrOrderDGH(CntDGH)
ArrDGH(CntDGH)=strDGH
ArrOrderDGH(CntDGH)=numOrderDGH
.MoveNext
loop
End With
SQLRecordSetDGH.Close
Set SQLRecordSetDGH=Nothing
Set SQLRecordSetDDH=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetDDH.CursorType=adOpenStatic
SQLRecordSetDDH.Open strSQLDDH,SQLConnect
Dim numOrderDDH
numOrderDDH=0
Dim ArrDDH()
Dim ArrOrderDDH()
Dim ArrDGHEndGrp()
Dim CntDDH
CntDDH=0
With SQLRecordSetDDH
Do while not .EOF
CntDDH=CntDDH+1
DDHDGH=trim(.Fields("DGH"))
For G=LBound(ArrDGH) to UBound(ArrDGH)
IF (trim(ArrDGH(G))=trim(DDHDGH)) then
Redim Preserve ArrDGHEndGrp(G)
ArrDGHEndGrp(G)=CntDDH
End IF
Next
strDDH=trim(.Fields("DDH"))
numOrderDDH=numOrderDDH + 1
Redim Preserve ArrDDH(CntDDH)
Redim Preserve ArrOrderDDH(CntDDH)
ArrDDH(CntDDH)=strDDH
ArrOrderDDH(CntDDH)=numOrderDDH
.MoveNext
loop
End With
SQLRecordSetDDH.Close
Set SQLRecordSetDDH=Nothing
Set SQLRecordSetSH=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetSH.CursorType=adOpenStatic
SQLRecordSetSH.Open strSQLSH,SQLConnect
Dim numOrderSH
numOrderSH=0
Dim ArrSH()
Dim ArrOrderSH()
Dim ArrDDHEndGrp()
Dim CntSH
CntSH=0
Dim strSHDataFlg
strSHDataFlg="Failed"
With SQLRecordSetSH
Do while not .EOF
CntSH=CntSH+1
SHDDH=trim(.Fields("DDH"))
For G=LBound(ArrDDH) to UBound(ArrDDH)
IF (trim(ArrDDH(G))=trim(SHDDH)) then
Redim Preserve ArrDDHEndGrp(G)
ArrDDHEndGrp(G)=CntSH
End IF
Next
strSH=trim(.Fields("SH"))
numOrderSH=numOrderSH + 1
Redim Preserve ArrSH(CntSH)
Redim Preserve ArrOrderSH(CntSH)
ArrSH(CntSH)=strSH
ArrOrderSH(CntSH)=numOrderSH
strSHDataFlg="Success"
.MoveNext
loop
End With
SQLRecordSetSH.Close
Set SQLRecordSetSH=Nothing
Set SQLRecordSetDE=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetDE.CursorType=adOpenStatic
SQLRecordSetDE.Open strSQLDE,SQLConnect
Dim numOrderDE
numOrderDE=0
Dim ArrDE()
Dim ArrOrderDE()
Dim ArrDESHEndGrp()
Dim CntDE
CntDE=0
Dim ArrDESHSuccess()
Dim CntDESHSuccess
CntDESHSuccess=0
With SQLRecordSetDE
Do while not .EOF
CntDE=CntDE+1
DESH=trim(.Fields("SH"))
For G=LBound(ArrSH) to UBound(ArrSH)
IF (trim(ArrSH(G))=trim(DESH)) then
Redim Preserve ArrDESHEndGrp(G)
ArrDESHEndGrp(G)=CntDE
Redim Preserve ArrDESHSuccess(CntDESHSuccess)
ArrDESHSuccess(CntDESHSuccess)=G
CntDESHSuccess=CntDESHSuccess + 1
End IF
Next
strDE=trim(.Fields("EmpID"))
numOrderDE=numOrderDE + 1
Redim Preserve ArrDE(CntDE)
Redim Preserve ArrOrderDE(CntDE)
ArrDE(CntDE)=strDE
ArrOrderDE(CntDE)=numOrderDE
.MoveNext
loop
End With
SQLRecordSetDE.Close
Set SQLRecordSetDE=Nothing
Set SQLRecordSetDM=Server.CreateObject("ADODB.RecordSet")
SQLRecordSetDM.CursorType=adOpenStatic
SQLRecordSetDM.Open strSQLDM,SQLConnect
Dim numOrderDM
numOrderDM=0
Dim ArrDM()
Dim ArrOrderDM()
Dim ArrDMSHEndGrp()
Dim CntDM
CntDM=0
Dim ArrDMSHSuccess()
Dim CntDMSHSuccess
CntDMSHSuccess=0
With SQLRecordSetDM
Do while not .EOF
CntDM=CntDM+1
DMSH=trim(.Fields("SH"))
For G=LBound(ArrSH) to UBound(ArrSH)
IF (trim(ArrSH(G))=trim(DMSH)) then
Redim Preserve ArrDMSHEndGrp(G)
ArrDMSHEndGrp(G)=CntDM
Redim Preserve ArrDMSHSuccess(CntDMSHSuccess)
ArrDMSHSuccess(CntDMSHSuccess)=G
CntDMSHSuccess=CntDMSHSuccess+1
End IF
Next
strDM=trim(.Fields("EmpID"))
numOrderDM=numOrderDM + 1
Redim Preserve ArrDM(CntDM)
Redim Preserve ArrOrderDM(CntDM)
ArrDM(CntDM)=strDM
ArrOrderDM(CntDM)=numOrderDM
.MoveNext
loop
End With
SQLRecordSetDM.Close
Set SQLRecordSetDM=Nothing
%>
<%
Dim INPosition
Dim ArrSHPosition(),ArrDDHPosition(),ArrDGHPosition()
INPosition=1
%>
<%
Dim SHX
For T=1 to CntSH
Redim Preserve ArrSHPosition(T)
SHX=ArrOrderSH(T)
ArrSHPosition(T)=(3 * (SHX))- 1
%>
<input type=hidden name=SrSHList id=SrSHList value="<%=ArrSH(T)%>">
<input type=hidden name=SrSHOrder id=SrSHOrder value="<%=ArrOrderSH(T)
%>">
<input type=hidden name=SrSHPosition id=SrSHPosition value="<
%=ArrSHPosition(T)%>">
<%
Next
%>
<%
For T=1 to CntDDH
IF T=1 then
%>
<input type=hidden name=SrDDHStartPt id=SrDDHStartPt value="<
%=INPosition%>">
<%
Else
%>
<input type=hidden name=SrDDHStartPt id=SrDDHStartPt value="<
%=ArrDDHEndGRp(T-1)+1%>">
<%
End If
Redim Preserve ArrDDHPosition(T)
If T=1 then
ArrDDHPosition(T)=(ArrSHPosition(INPosition)+ArrSHPosition
(ArrDDHEndGrp(T)))/2
else
ArrDDHPosition(T)=(ArrSHPosition(ArrDDHEndGrp(T-1)+1)+ArrSHPosition
(ArrDDHEndGrp(T)))/2
end if
%>
<input type=hidden name=SrDDHList id=SrDDHList value="<%=ArrDDH(T)
%>">
<input type=hidden name=SrDDHOrder id=SrDDHOrder value="<%=ArrOrderDDH
(T)%>">
<input type=hidden name=SrDDHEndPt id=SrDDHEndPt value="<%=ArrDDHEndGrp
(T)%>">
<input type=hidden name=SrDDHPosition id=SrDDHPosition value="<
%=ArrDDHPosition(T)%>">
<%
Next
%>
<%
For T=1 to CntDGH
IF T=1 then
%>
<input type=hidden name=SrDGHStartPt id=SrDGHStartPt value="<
%=INPosition%>">
<%
Else
%>
<input type=hidden name=SrDGHStartPt id=SrDGHStartPt value="<
%=ArrDGHEndGRp(T-1)+1%>">
<%
End If
Redim Preserve ArrDGHPosition(T)
ArrDGHPosition(T)=(ArrDDHPosition(ArrDGHEndGrp(T-1)+1)+ArrDDHPosition
(ArrDGHEndGrp(T)))/2
%>
<input type=hidden name=SrDGHList id=SrDGHList value="<%=ArrDGH(T)
%>">
<input type=hidden name=SrDGHOrder id=SrDGHOrder value="<%=ArrOrderDGH
(T)%>">
<input type=hidden name=SrDGHEndPt id=SrDGHEndPt value="<%=ArrDGHEndGrp
(T)%>">
<input type=hidden name=SrDGHPosition id=SrDGHPosition value="<
%=ArrDGHPosition(T)%>">
<%
Next
%>
<%
For T=1 to CntDE
Redim Preserve ArrDEPosition(T)
ArrDEPosition(T)=ArrOrderDE(T)
%>
<input type=hidden name=SrDEList id=SrDEList value="<%=ArrDE(T)%>">
<input type=hidden name=SrDEOrder id=SrDEOrder value="<%=ArrOrderDE(T)
%>">
<input type=hidden name=SrDEPosition id=SrDEPosition value="<
%=ArrDEPosition(T)%>">
<%
Next
%>
<%
For k=LBound(ArrDESHEndGrp) to UBound(ArrDESHEndGrp)
IF k=LBound(ArrDESHEndGrp) then
%>
<input type=hidden name=SrDEStartPt id=SrDEStartPt value="<
%=INPosition%>">
<%
Else
%>
<input type=hidden name=SrDEStartPt id=SrDEStartPt value="<
%=ArrDESHEndGrp(k-1)+1%>">
<%
End if
%>
<input type=hidden name=SrDEEndPt id=SrDEEndPt value="<%=ArrDESHEndGrp
(k)%>">
<%
Next
%>
<%
For T=1 to CntDM
Redim Preserve ArrDMPosition(T)
ArrDMPosition(T)=ArrOrderDM(T)
%>
<input type=hidden name=SrDMList id=SrDMList value="<%=ArrDM(T)%>">
<input type=hidden name=SrDMOrder id=SrDMOrder value="<%=ArrOrderDM(T)
%>">
<input type=hidden name=SrDMPosition id=SrDMPosition value="<
%=ArrDMPosition(T)%>">
<%
Next
%>
<%
For k=LBound(ArrDMSHEndGrp) to UBound(ArrDMSHEndGrp)
IF k=LBound(ArrDMSHEndGrp) then
%>
<input type=hidden name=SrDMStartPt id=SrDMStartPt value="<
%=INPosition%>">
<%
Else
%>
<input type=hidden name=SrDMStartPt id=SrDMStartPt value="<
%=ArrDMSHEndGrp(k-1)+1%>">
<%
End if
%>
<input type=hidden name=SrDMEndPt id=SrDMEndPt value="<%=ArrDMSHEndGrp
(k)%>">
<%
Next
%>
</BODY>
</Form>
</HTML>
OrganizationOpen.asp:
<%@ Language=VBScript %>
<%response.buffer=true%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<%
CLDGHList=trim(Request.Form("SrDGHList"))
CLDGHOrder=trim(Request.Form("SrDGHOrder"))
CLDGHStartPt=trim(Request.Form("SrDGHStartPt"))
CLDGHEndPt=trim(Request.Form("SrDGHEndPt"))
CLDGHPosition=trim(Request.Form("SrDGHPosition"))
%>
<%
CLDDHList=trim(Request.Form("SrDDHList"))
CLDDHOrder=trim(Request.Form("SrDDHOrder"))
CLDDHStartPt=trim(Request.Form("SrDDHStartPt"))
CLDDHEndPt=trim(Request.Form("SrDDHEndPt"))
CLDDHPosition=trim(Request.Form("SrDDHPosition"))
%>
<%
CLSHList=trim(Request.Form("SrSHList"))
CLSHOrder=trim(Request.Form("SrSHOrder"))
CLSHPosition=trim(Request.Form("SrSHPosition"))
%>
<%
CLDEList=trim(Request.Form("SrDEList"))
CLDEPosition=trim(Request.Form("SrDEPosition"))
CLDEOrder=trim(Request.Form("SrDEOrder"))
CLDEStartPt=trim(Request.Form("SrDEStartPt"))
CLDEEndPt=trim(Request.Form("SrDEEndPt"))
%>
<%
CLDMList=trim(Request.Form("SrDMList"))
CLDMPosition=trim(Request.Form("SrDMPosition"))
CLDMOrder=trim(Request.Form("SrDMOrder"))
CLDMStartPt=trim(Request.Form("SrDMStartPt"))
CLDMEndPt=trim(Request.Form("SrDMEndPt"))
%>
<%
strExTemplatePath=Server.MapPath("OrgChartLans.xlt")
%>
<script language="vbscript">
Function OpenChart()
Dim strExcelPath
Dim strMaclevel
strExcelPath=trim(document.OpenOrgChart.ExFile.value)
'strExcelPath="HTTP:\\localhost\OrgChart\OrgChartLans.xlt"
Set xlApp =CreateObject("Excel.Application")
Set xlBook=xlApp.WorkBooks.Add(strExcelPath)
Set xlSheet=xlBook.WorkSheets("OrgChart")
Dim DDHRow,SHRow,DDHCol,DGHCol
DGHPS=2
DDHPS=3
SHPS=4
ValDGHList=document.OpenOrgChart.INDGHList.value
ValDGHStartPt=document.OpenOrgChart.INDGHStartPt.value
ValDGHEndPnt=document.OpenOrgChart.INDGHEndPt.value
ValDGHPosition=document.OpenOrgChart.INDGHPosition.value
ArrDGHStartPnt=Split(ValDGHStartPt,",")
ArrDGHEndPnt=Split(ValDGHEndPnt,",")
ArrDGHList=Split(ValDGHList,",")
ArrDGHPos=Split(ValDGHPosition,",")
RowESpace=0
DGHRow=(DGHPS-1)
DDHRow=(DDHPS-1)
SHRow=(SHPS-1)
Dim strDGH1
Dim ArrstrDGH1()
strDGH1=""
For i=LBound(ArrDGHList) to UBound(ArrDGHLIst)
strDGH1=""
DGHCol=cint(trim(ArrDGHPos(i)))
strDGH1=trim(strDGH1) & trim(ArrDGHList(i))
Redim Preserve ArrstrDGH1(i)
IF not(len(strDGH1)=0)then
ArrstrDGH1(i)=strDGH1
else
ArrstrDGH1(i)=0
End if
Next
strMaclevel="DGH"
xlApp.Run "MacroDrawBox",UBound
(ArrDGHLIst),ArrstrDGH1,ArrDGHPos,DGHRow,strMaclevel
Dim strDDH1
Dim ArrstrDDH1()
strDDH1=""
ValDDHList=document.OpenOrgChart.INDDHList.value
ArrDDHList=Split(ValDDHList,",")
ValDDHPosition=document.OpenOrgChart.INDDHPosition.value
ArrDDHPos=Split(ValDDHPosition,",")
For i=LBound(ArrDDHList) to UBound(ArrDDHLIst)
strDDH1=""
DDHCol=cint(trim(ArrDDHPos(i)))
strDDH1=strDDH1 & ArrDDHList(i)
Redim Preserve ArrstrDDH1(i)
ArrstrDDH1(i)=strDDH1
Next
strMaclevel="DDH"
xlApp.Run "MacroDrawBox",UBound
(ArrDDHLIst),ArrstrDDH1,ArrDDHPos,DDHRow,strMaclevel
strConLevel="DGH"
xlApp.Run "mConnectors",UBound
(ArrDGHLIst),ArrDGHStartPnt,ArrDGHEndPnt,strConLevel
Dim strSH1,MacEDRow
Dim ArrstrSH1(),ArrstrDE(),ArrstrDM(),ArrDECol(),ArrDMCol
(),ArrStartPtDE(), ArrEndPtDE()
strSH1=""
SHCol=0
ValSHList=document.OpenOrgChart.INSHList.value
ArrSHList=Split(ValSHList,",")
ValSHPosition=document.OpenOrgChart.INSHPosition.value
ArrSHPos=Split(ValSHPosition,",")
ValDEList=document.OpenOrgChart.INDEList.value
ValDMList=document.OpenOrgChart.INDMList.value
ArrDMList=Split(ValDMList,",")
ArrDEList=Split(ValDEList,",")
ValDMEndPt=document.OpenOrgChart.INDMEndPt.value
ValDEEndPt=document.OpenOrgChart.INDEEndPt.value
ArrDMEndPt=Split(ValDMEndPt,",")
ArrDEEndPt=Split(ValDEEndPt,",")
For i=LBound(ArrSHList) to UBound(ArrSHLIst)
Dim SEmptyDE
Dim SEmptyDM
SEmptyDE=-1
SEmptyDM=-1
strSH1=""
strSH2=""
SHCol=cint(ArrSHPos(i))
Redim Preserve ArrDECol(i)
Redim Preserve ArrDMCol(i)
ArrDECol(i)=SHCol-1
ArrDMCol(i)=SHCol+1
strSH1=trim(strSH1) & trim(ArrSHList(i))
Redim Preserve ArrstrSH1(i)
ArrstrSH1(i)=strSH1
Dim strDE,strDM,strGroupDE,strGroupDM
strGroupDE=""
strGroupDM=""
strDE=""
strDM=""
Redim Preserve ArrstrDE(i)
Redim Preserve ArrstrDM(i)
DMRow=SHRow
DERow=SHRow
MacEDRow = DMRow
IF i=(LBound(ArrSHList)) then
For T=1 to ArrDEEndPt(i+1)
strDE=""
strDE=trim(strDE) & trim(ArrDEList(T-1))
strGroupDE=strGroupDE & "\" & strDE
DERow=DERow + RowESpace
Next
Redim Preserve ArrStartPtDE(i)
Redim Preserve ArrEndPtDE(i)
ArrStartPtDE(i)=1
ArrEndPtDE(i)=ArrDEEndPt(i+1)
ArrstrDE(i)=strGroupDE
For T=1 to ArrDMEndPt(i+1)
strDM=""
strDM=trim(strDM) & trim(ArrDMList(T-1))
strGroupDM=strGroupDM & "\" & strDM
DMRow=DMRow + RowESpace
Next
Redim Preserve ArrStartPtDM(i)
Redim Preserve ArrEndPtDM(i)
ArrStartPtDM(i)=1
ArrEndPtDM(i)=ArrDMEndPt(i+1)
ArrstrDM(i)=strGroupDM
ELSE
For T=(ArrDEEndPt(i)+1) to ArrDEEndPt(i+1)
strDE=""
strDE=trim(strDE) & trim(ArrDEList(T-1))
strGroupDE=strGroupDE & "\" & strDE
DERow=DERow + RowESpace
Next
Redim Preserve ArrStartPtDE(i)
Redim Preserve ArrEndPtDE(i)
ArrStartPtDE(i)=ArrDEEndPt(i)+1
ArrEndPtDE(i)=ArrDEEndPt(i+1)
ArrstrDE(i)=strGroupDE
For T=(ArrDMEndPt(i)+1) to ArrDMEndPt(i+1)
strDM=""
strDM=strDM & ArrDMList(T-1)
strGroupDM=strGroupDM & "\" & strDM
DMRow=DMRow + RowESpace
Next
Redim Preserve ArrStartPtDM(i)
Redim Preserve ArrEndPtDM(i)
ArrStartPtDM(i)=ArrDMEndPt(i)+1
ArrEndPtDM(i)=ArrDMEndPt(i+1)
ArrstrDM(i)=strGroupDM
END IF
Next
ValDDHStartPnt=document.OpenOrgChart.INDDHStartPt.value
ValDDHEndPnt=document.OpenOrgChart.INDDHEndPt.value
Dim ArrDDHStartPnt,ArrDDHEndPnt
ArrDDHStartPnt=Split(ValDDHStartPnt,",")
ArrDDHEndPnt=Split(ValDDHEndPnt,",")
ECount=UBound(ArrSHLIst)
strMaclevel="SH"
xlApp.Run "MacroDrawBox",ECount,ArrstrSH1,ArrSHPos,SHRow,strMaclevel
strConLevel="DDH"
xlApp.Run "mConnectors",UBound
(ArrDDHLIst),ArrDDHStartPnt,ArrDDHEndPnt,strConLevel
xlApp.Run
"MacroDrawBoxED",ECount,ArrstrDE,ArrstrDM,MacEDRow,ArrDECol,ArrDMCol
xlApp.Run "mConnectorsED",ECount
xlApp.Run "mConnectorSubED",ECount,ArrStartPtDE, ArrEndPtDE,
ArrStartPtDM, ArrEndPtDM
xlApp.visible=true
Set xlApp=Nothing
Set xlBook=Nothing
Set xlSheet=Nothing
document.OpenOrgChart.action="OrganizationCreate.asp"
document.OpenOrgChart.submit()
End Function
</script>
<form name="OpenOrgChart" method="post">
<BODY onload="OpenChart()" BGCOLOR= 708090>
<input type=hidden name="INDGHList" id="INDGHList" value="<%=CLDGHList
%>">
<input type=hidden name="INDGHOrder" id="INDGHOrder" value="<
%=CLDGHOrder%>">
<input type=hidden name="INDGHStartPt" id="INDGHStartPt" value="<
%=CLDGHStartPt%>">
<input type=hidden name="INDGHEndPt" id="INDGHEndPt" value="<
%=CLDGHEndPt%>">
<input type=hidden name="INDGHPosition" id="INDGHPosition" value="<
%=CLDGHPosition%>">
<input type=hidden name="INDDHList" id="INDDHList" value="<%=CLDDHList
%>">
<input type=hidden name="INDDHOrder" id="INDDHOrder" value="<
%=CLDDHOrder%>">
<input type=hidden name="INDDHStartPt" id="INDDHStartPt" value="<
%=CLDDHStartPt%>">
<input type=hidden name="INDDHEndPt" id="INDDHEndPt" value="<
%=CLDDHEndPt%>">
<input type=hidden name="INDDHPosition" id="INDDHPosition" value="<
%=CLDDHPosition%>">
<input type=hidden name="INSHList" id="INSHList" value="<%=CLSHList
%>">
<input type=hidden name="INSHOrder" id="INSHOrder" value="<%=CLSHOrder
%>">
<input type=hidden name="INSHPosition" id="INSHPosition" value="<
%=CLSHPosition%>">
<input type=hidden name="INDMList" id="INDMList" value="<%=CLDMList
%>">
<input type=hidden name="INDMEndPt" id="INDMEndPt" value="<%=CLDMEndPt
%>">
<input type=hidden name="INDEList" id="INDEList" value="<%=CLDEList
%>">
<input type=hidden name="INDEEndPt" id="INDEEndPt" value="<%=CLDEEndPt
%>">
<input type=hidden name="ExFile" id="ExFile" value="<
%=strExTemplatePath%>">
</BODY>
</form>
</HTML>
Cerebrus
Dec 24, 2008, 11:35:38 AM12/24/08
to DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting
This is not a Classic ASP group. I would suggest you find a more
appropriate forum, though I cannot guarantee that you will get help
anywhere because you are asking others to read through such a large
code file and then answer your questions.
On Dec 24, 6:03 pm, Lostguy <cpo...@mail.com> wrote:
> Hello!
>
> After Googling for weeks, I found this site on how to create an
> organization chart using the data stored in an Access database:http://www.codeproject.com/KB/database/BSRKOrganizationChart.aspx?fid....
appropriate forum, though I cannot guarantee that you will get help
anywhere because you are asking others to read through such a large
code file and then answer your questions.
On Dec 24, 6:03 pm, Lostguy <cpo...@mail.com> wrote:
> Hello!
>
> After Googling for weeks, I found this site on how to create an
Reply all
Reply to author
Forward
0 new messages