<% If isempty(Request.QueryString("SO")) or isnull(Request.QueryString("SO")) or (Request.QueryString("SO"))="" then strSort= "StartTime" Else strSort= Request.QueryString("SO") End if strContract= Request.QueryString("CON") 'If strContract= "MCT" then ' strContract2= "AND ((JobLog.Contract) Like '%MCT%')" 'Else 'End If If strContract= "MCT" then strContract2= "AND ((JobLog.Contract) Like '%MCT%')" ElseIf strContract= "NOT" then strContract2= "AND ((Not(JobLog.Contract) Like '%MCT%') OR (JobLog.Contract) Is Null)" ElseIf strContract="" or IsNull(strContract) or isempty(strContract) then strContract= "All" End If If isempty(Request.QueryString("PER")) or isnull(Request.QueryString("PER")) or (Request.QueryString("PER")="") then strPeriod= "24 hrs" Else strPeriod= Request.QueryString("PER") End If Select Case strPeriod Case "Today" dtmStart= Int(Now()) Case "24 hrs" dtmStart= DateAdd("h", -24, Now) Case "7 days" dtmStart= DateAdd("h", -168, Now) Case "3 mths" dtmStart= DateAdd("m", -3, Now) End Select Response.write dtmStart Response.write "....." Response.write sesWhere %> <% ' GET JOBS set conn = server.createobject ("adodb.connection") conn.open strDataSource set RSJobs = conn.Execute("SELECT Count(*) FROM JobSummaryAll2 WHERE ((JobLog.StartTime)>= #"& dtmStart &"#) AND ((JobLog.StartTime)< #"& Now &"#) AND "& sesWhere & strContract2 &"") intRecCount= RSJobs.fields(0).value If intRecCount>=1 then set RSJobs = conn.Execute("SELECT * FROM JobSummaryAll2 WHERE ((JobLog.StartTime)>= #"& dtmStart &"#) AND ((JobLog.StartTime)< #"& Now &"#) AND "& sesWhere & strContract2 &" ORDER by "& strSort &" Asc") %>

Jobs Opened in Last <%=strPeriod%>.

<% intJobNumber=RSJobs("JobNumber") intParentJobNum=RSJobs("ParentJobNum") %>

Report Period 
Today |24hrs | 7 days | 3 mths
Contracts 
MCT | not MCT | All 

Jobs sorted by <%= strSort %>. Contract <%= strContract %>. Report compiled <% Response.write Now()%>. Records Found <%=intRecCount%>.
Click on column heading to sort by that column. 
Click on relevant Job # to go to NOC Jobs Menu
Parent Jobs are listed under "P" for "Parent"
<% ' POPULATE TABLE WITH PARENT JOB NUMBERS INFO FROM RSJobs Do Until RSJobs.EOF intJobNumber=RSJobs("JobNumber") intSlot=RSJobs("Slot") intPort=RSJobs("Port") intChannel=RSJobs("Channel") mixParentJobNum=RSJobs("ParentJobNum") If mixParentJobNum=-10 then mixParentJobNum="Is Parent" ElseIf mixParentJobNum=-1 then mixParentJobNum="Unknown" Else End If If intSlot=-1 then intSlot="-" End If If intPort=-1 then intPort="-" End If If intChannel=-1 then intChannel="-" End If %> <% RSJobs.MoveNext Loop 'RSJobs.MoveFirst %>
Create New Job...
Job # Parent # Customer Name Description Start Time Node Name Slot Port Chan Type Fix
Time
Acts
Pend
Contract
<% =intJobNumber %> <% =mixParentJobNum %> <% response.write RSJobs("CustomerName")%>. <% response.write RSJobs("JobTitle") %> <% response.write RSJobs("StartTime") %> <% response.write RSJobs("NodeName") %> <% response.write intSlot %> <% response.write intPort %> <% response.write intChannel %> <% response.write RSJobs("JobType") %> <% response.write RSJobs("FixTime") %> <% response.write RSJobs("ActionsPending") %> <% response.write RSJobs("Contract") %>
Job # Parent # Customer Name Description Start Time Node Name Slot Port Chan Type Fix
Time
Acts
Pend
Contract 

Create New Job... 

<% Else ' Record Count %>

No records found. 

<% End If ' Record Count %> [footer2.htm]

 

Page: manage/jobs_opened24+.asp