<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| INDEX |
'| |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim objRepeater
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
objAccessControl.objOraSession = OraSession ' Create database link for orasession
objAccessControl.objOraDatabase = OraDatabase ' Create database link for oradatabase
Set objRepeater = New Repeater
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
Production Manager
<%
Dim rsQry
'Set fs = Server.CreateObject("Scripting.FileSystemObject")
'Set rootFolders = fs.GetFolder("E:\wwwTRD\manager_suite_DEVELOPMENT\production_manager\XMLBOMS\")
'Set subFolders = rootFolders.subFolders
'Response.Write(objAccessControl.UserId)
'-- FROM START ---------------------------------------------------------------------------------------------------------
objFormComponent.FormName = "FormName"
objFormComponent.Action = ScriptName
Call objFormComponent.FormStart()
%>
Production BOM
<%
Dim Display
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductionBrowser.sql") , ORADYN_DEFAULT )
If objAccessControl.IsActive("GMPTE") Then
Display = "GMPTE/PCL (GMP)"
ElseIf objAccessControl.IsActive("Vasttrafik") Then
Display = "VÄSTTRAFIK PRODUCTION (VTProd)"
ElseIf objAccessControl.IsActive("SanFrancisco") Then
Display = "SAN FRANCISCO PRODUCTION (SFOProd)"
ElseIf objAccessControl.IsActive("UK") Then
Display = "UK STAGE COACH PRODUCTION (SSWProd)"
End If
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
If rsQry("proj_name") = Display Then
%>
><%=rsQry("bom_name")%>