<%@ LANGUAGE="VBScript" %>
<%
timedate=CStr(Request("timedate"))
Set Connection = Server.CreateObject("ADODB.Connection")
'
Connection.Mode = adModeRead
'
Connection.Open phdb_rd
If timedate="" Then
SQLStmt = " select to_char(sysdate,'MM/DD/YYYY') timedate from dual "
Set RS = Connection.Execute(SQLStmt)
timedate = CStr(RS("timedate"))
Set RS=nothing
End If
If Not IsDate(timedate) Then
message="Wrong Time/Date format " & timedate
%>
<%
Else
date_string=" TO_DATE('" & timedate & "','MM/DD/YYYY') "
End If
'
' list all sensors and modules.
'
SQLStmt = " select gms.GEO_SENSOR,gmp.SMOD_ORIENTATION,gms.SENSOR_POS,gms.GEO_MOD,gms.SMOD_MOD_POS,gma.MODULE_ID "
SQLStmt = SQLStmt & " from ASSEMBLY.GEO_MOD_SENSOR gms,(select distinct gm.GEO_MOD,sr.SMOD_MOD_POS,gm.SMOD_ORIENTATION "
SQLStmt = SQLStmt & " from ASSEMBLY.GEO_MODS gm,ASSEMBLY.SMOD_READOUT sr where gm.SMOD_TYPE=sr.SMOD_TYPE "
SQLStmt = SQLStmt & " and " & date_string & " >=gm.STARTDATE and gm.STOPDATE>= " & date_string & " ) gmp, "
SQLStmt = SQLStmt & " (select GEO_MOD,SMOD_MOD_POS,MODULE_ID from ASSEMBLY.GEO_MOD_ASSIGNMENT where (geo_mod,smod_mod_pos,logdate) "
SQLStmt = SQLStmt & " in (select max(geo_mod),max(smod_mod_pos),max(logdate)from (select geo_mod,smod_mod_pos,logdate "
SQLStmt = SQLStmt & " from ASSEMBLY.GEO_MOD_ASSIGNMENT where " & date_string & " >=logdate) "
SQLStmt = SQLStmt & " group by GEO_MOD,smod_mod_pos)) gma where gma.GEO_MOD(+)=gms.GEO_MOD "
SQLStmt = SQLStmt & " and gma.SMOD_MOD_POS(+)=gms.SMOD_MOD_POS and gms.GEO_MOD=gmp.GEO_MOD "
SQLStmt = SQLStmt & " and gms.SMOD_MOD_POS=gmp.SMOD_MOD_POS and (gms.GEO_MOD,gms.SMOD_MOD_POS) "
SQLStmt = SQLStmt & " in (select distinct gm.GEO_MOD,sr.SMOD_MOD_POS from ASSEMBLY.GEO_MODS gm,ASSEMBLY.SMOD_READOUT sr "
SQLStmt = SQLStmt & " where gm.SMOD_TYPE=sr.SMOD_TYPE and " & date_string & " >=gm.STARTDATE "
SQLStmt = SQLStmt & " and gm.STOPDATE>= " & date_string & " ) "
SQLStmt = SQLStmt & " order by gms.GEO_SENSOR "
'
' response.write(SQLStmt)
'
Set RS = Connection.Execute(SQLStmt)
%>
Sensor List
Sensor List , Status on <%=timedate%>
| Phat Sensor |
Orientation |
GeoMod |
Sensor Position |
Smod Position |
Module |
<%
nsensors=0
Do While Not RS.EOF
%>
| <%=RS("GEO_SENSOR")%> |
<%=RS("SMOD_ORIENTATION")%> |
<%=RS("GEO_MOD")%> |
<%=RS("SENSOR_POS")%> |
<%=RS("SMOD_MOD_POS")%> |
<%=RS("MODULE_ID")%> |
<%
nsensors=nsensors+1
RS.MoveNext
Loop
%>
Total <%=nsensors%> sensors
<%
Connection.Close
%>