Main Page for Access to the Assembly Database

<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select DISTINCT HYBRID_TYPE from ASSEMBLY.ASM_HYBRID_ID" Set RS = Connection.Execute(SQLStmt) SQLStmt1 = "select DISTINCT MOD_TYPE from ASSEMBLY.ASM_MODULE_ID" Set RS1 = Connection.Execute(SQLStmt1) SQLStmt2 = "select MAX(MOD_TYPE) MOD_TYPE,COUNT(CHANNEL) NCHAN from ASSEMBLY.MOD_MAP GROUP BY MOD_TYPE ORDER BY MOD_TYPE" Set RS2 = Connection.Execute(SQLStmt2) %> Main Page for Access to the Assembly Database

Assembly Database

Most Recent Hybrid Activity	Most Recent Module Activity
Most Recent Hybrid Activity at ANL
Most Recent Hybrid Activity at MIT
Most Recent Hybrid Activity at UIC

Hybrid Assembly Status

<% Do While Not RS.EOF%> "><%response.write Cstr(RS("HYBRID_TYPE"))%> <% RS.MoveNext If Not RS.EOF Then response.write(",") End If Loop %>

Module Assembly Status
<%Do While Not RS1.EOF%> "><%response.write Cstr(RS1("MOD_TYPE"))%> <% RS1.MoveNext If Not RS1.EOF Then response.write(",") End If Loop %>

Module Channel Mapping, ((row, column) in Sensor or Module system of coordinates)

<% Do While Not RS2.EOF%> <%response.write(Cstr(RS2("MOD_TYPE")) & "(" & Cstr(RS2("NCHAN")) & ")")%> (">S, ">M) <% RS2.MoveNext If Not RS2.EOF Then response.write(",") End If Loop %>

Total number of required elements: sensors, hybrids and modules