Subversion Repositories DevTools

Rev

Rev 64 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                                        INDEX                                          |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/_form_window_common.asp"-->
<!--#include file="class/classRepeater.asp"-->
<%
'------------ 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 ----------------------
'----------------------------------------------
%>
<!--#include file="_access_control_general.asp"-->
<html>
<head>
<title>Production Manager</title>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="images/production_manager_style.css" type="text/css">
<script language="JavaScript" src="images/common.js"></script>
</head>
<!-- HEADER ++++++++++++++++ -->
<!--#include file="_header.asp"-->
<!-- +++++++++++++++++++++++ -->
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
<!--#include file="_main_menu.asp"-->
<%
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()
%>
                <table width="100%"  border="0" cellspacing="3" cellpadding="0">
          <tr>
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
              <tr>
                <td align="center" nowrap background="images/bg_table_col.gif" class="body_col">&nbsp;Production BOM</td>
              </tr>
            </table></td>
                        
          </tr>
<table width="100%"  border="0" cellspacing="3" cellpadding="0">
<%
        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
%>      
        <tr>
                <td bgcolor='#FFFFFF' class='body_row' align="center" valign='top'><img src='icons/i_world.gif' hspace='5' align='absmiddle'><a href=bom_home.asp?bom_id=<%=rsQry("bom_id")%>><%=rsQry("bom_name")%></a></td>
        </tr>
          <tr>
            <td colspan="2" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
          </tr> 
<%      
                End If
        rsQry.MoveNext()
        
        Wend
        
        rsQry.Close()
        Set rsQry = nothing
%>               
                        
                        
                



</table>
<!--#include file="common/globals_destructor.asp"-->


</html>