<%@ LANGUAGE="VBScript" %>
<% if Request("node")<>"" then
node=cstr(Request("node"))
else
node="vmesparc.phobos.bnl.gov"
end if
if Request("run")<>"" then
run=cstr(Request("run"))
else
run="21"
end if
'
' Open Database
'
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
statement="select distinct rs.sequence sequence from phoffline.runseq_files rs,"
statement=statement & "(select fileid from phoffline.files where node='" & node &"') f "
statement=statement & "where f.fileid=rs.fileid and rs.run="& run&" order by sequence "
'response.write(statement)
set RS=Connection.Execute(statement)
%>
Sequences of Run:<%=run%> on Node:<%=node%>