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 <[email protected]> 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.... > > 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>
