<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmtx = "select to_char(sysdate,'DD Mon YYYY') ddate,to_char(sysdate,'HH24:MI:SS') ttime,global_name from global_name "
' response.write(SQLStmtx & " " )
Set RSx = Connection.Execute(SQLStmtx)
If Not RSx.EOF Then
select case CStr(RSx("global_name"))
case "PHDB.WORLD"
dbname="Main Phobos Database"
case "ORACLE.WORLD"
dbname="Phobos Server (old) Database"
case "KRPHOBOS.WORLD"
dbname="Krakow Database"
case "ROCHESTER.WORLD"
dbname="Rochester Database"
end select
Else
dbname="Undefined Database"
End If
%>
Complete GMOD List
Complete List of Geometrical Module assignments
Status on <%=RSx("ddate")%> at <%=RSx("ttime")%> in <%=dbname%>
<%
SQLStmt = " select geo_mod,mod_type,smod_mod_pos,module_id,voper,to_char(logdate,'MM/DD/YYYY HH24:MI:SS') ldate from "
SQLStmt = SQLStmt & " assembly.assgn_mod_volt "
SQLStmt = SQLStmt & " order by geo_mod "
Set RS = Connection.Execute(SQLStmt)
' response.write(SQLStmt)
response.write("
" & vbCrLf)
response.write("
" & vbCrLf)
response.write("
" & vbCrLf)
response.write("
Geometrical Module (position)
" & vbCrLf)
response.write("
Module Type
" & vbCrLf)
response.write("
Module ID
" & vbCrLf)
response.write("
Voper [Volts]
" & vbCrLf)
response.write("
Last Assignment Change
" & vbCrLf)
response.write("
")
Do While Not RS.EOF
geo_mod =CStr(RS("geo_mod"))
mod_type =CStr(RS("mod_type"))
If mod_type="RING" or mod_type="OCTA" Then
smod_mod_pos ="(" & CStr(RS("smod_mod_pos")) & ")"
Else
smod_mod_pos=""
End If
If Not IsNull(RS("module_id")) Then
module_id=CStr(RS("module_id"))
ldate=CStr(RS("ldate"))
If Not IsNull(RS("voper")) Then
voper=RS("voper")
Else
voper="?"
End If
Else
module_id="Not assigned"
logdate=""
voper=""
End If
response.write("