<%@ LANGUAGE="VBScript" %> <% time_start=Now() ' ' Declare Variables ' Dim c dim dv(1,6) dim run dim sequence dim ntype dim dv_type(6) ' 'dv_type(i) dv_type 'ntypes=count of dv_type 'c = count 'dv(0,c) dv quality 'dv(1,c) dv status ' If Request("run_min")<>"" Then run_min=CInt(Request("run_min")) Else run_min=6150 End If If Request("run_max")<>"" Then run_max=CInt(Request("run_max")) Else run_max=6150 End If ' ' Open Database ' Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd statement = " select dv_type from phoffline.dv_type order by dv_type " set RS = Connection.Execute(statement) ntype=0 do while not RS.EOF dv_type(ntype) = Cstr(RS("dv_type")) ntype = ntype + 1 RS.Movenext loop set RS=nothing SQLtmt = "select xx.run ,xx.sequence ,xx.dv_type,dq.quality , xx.status from phoffline.dv_quality dq," SQLtmt = SQLtmt & "(select rs.run,rs.sequence,dt.dv_type, rs.status from phoffline.dv_type dt," SQLtmt = SQLtmt & "phoffline.runseqs rs where rs.run between " & cstr(run_min)& " and " & cstr(run_max)&") xx where xx.run=dq.run(+)and xx.sequence=dq.sequence(+)" SQLtmt = SQLtmt & " and xx.dv_type=dq.dv_type(+) order by run, sequence, dv_type" set RS = Connection.Execute(SQLtmt) %> DV Quality and Status

DV Quality and Status for run for runs from <%=run_min%> to <%=run_max%>

Sequence Processing Status

<% For i=0 to ntype-1 Response.write("") next %> <%Do while Not RS.EOF run=CStr(RS("run")) sequence=CStr(RS("sequence")) if not isnull(RS("status"))then dv_status=CINT(RS("status")) else dv_status="N/A" end if c=0 For i=0 to ntype-1 if not isnull(RS("quality"))then dv(1,c)=CINT(RS("quality")) else dv(1,c)="N/A" end if c=c+1 RS.movenext next response.write("") response.write("") response.write("" & vbcrlf) For i=0 to c-1 Response.write("") next response.write("") loop %>
RUNSEQUENCE"& dv_type(i) &"STATUS
 
" & run & ""& sequence &""& dv(1,i) &""& dv_status &"
<% ' ' CLose database connection ' Set RS=nothing Connection.Close Set Connection=nothing time_stop=Now() time_tot=Round(24*60*60*(time_stop-time_start),1) %> <%=time_tot%>