<%@ LANGUAGE="VBScript" %> <% if Request("node")<>"" then node=cstr(Request("node")) else node="vmesparc.phobos.bnl.gov" end if ' ' Open Database ' Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd statement="select distinct rs.run run, min(rs.sequence) seqmin, max(rs.sequence) seqmax from phoffline.runseq_files rs," statement=statement & "(select fileid from phoffline.files where node='" & node &"' and status is null) f " statement=statement & "where f.fileid=rs.fileid group by run " 'response.write(statement) set RS=Connection.Execute(statement) %> Files on <%=node%>

Files on <%=node%>

<% dim run Do while not RS.EOF run=cstr(RS("run")) seqmin=cint(RS("seqmin")) seqmax=cint(RS("seqmax")) response.write("") response.write("") response.write(" ") RS.movenext Loop %>

Corresponding Run

Corresponding Sequences

") response.write(run &"") if seqmin<>seqmax then response.write("") response.write(seqmin&"-"&seqmax) else response.write("") response.write(seqmin) end if response.write("
<% ' ' CLose database connection ' Set RS=nothing Connection.Close Set Connection=nothing %>