<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt0 = "select to_char(LOGDATE,'MM/DD/YYYY HH24:MI:SS')LDATE,OPERATOR,LOCATION,COMMENTS,ROWID from ASSEMBLY.ASM_MODULE_LOG "
SQLStmt0 = SQLStmt0 & " where LOGDATE="
SQLStmt0 = SQLStmt0 & "(select max(aml.LOGDATE) from ASSEMBLY.ASM_MODULE_LOG aml "
SQLStmt0 = SQLStmt0 & "where aml.ACTION='S_Survey_1' and aml.MODULE_ID='"+Request("REQ_MODULE_ID")+"')"
'response.write(SQLStmt0)
Set RS0 = Connection.Execute(SQLStmt0)
If Not RS0.EoF Then
SQLStmt1 = "select ms.POSITION_NUM,ms.X,ms.Y,ms.Z from ASSEMBLY.ASM_MODULE_LOG aml, ASSEMBLY.MOD_SURVEY ms "
SQLStmt1 = SQLStmt1 & " where aml.LOGDATE=ms.STARTDATE "
SQLStmt1 = SQLStmt1 & " and aml.ROWID='" & CStr(RS0("ROWID")) & "' order by ms.POSITION_NUM "
'response.write(SQLStmt1)
Set RS1 = Connection.Execute(SQLStmt1)
%>
View module survey measurements
MODULE ID :<%= Request("REQ_MODULE_ID")%>
| Date: |
<%=RS0("LDATE")%>
|
| Operator: |
<%=RS0("OPERATOR")%>
|
| Location: |
<%=RS0("LOCATION")%>
|
| Comments: |
<%=RS0("COMMENTS")%>
|
Measurements
| Position |
X |
Y |
Z |
<% Do While Not RS1.EOF %>
| <% =RS1("POSITION_NUM")%>
|
<% =RS1("X") %>
|
<% =RS1("Y") %>
|
<% =RS1("Z") %>
|
<% RS1.MoveNext
Loop
%>
<% Else %>
No Data for this measurement
<%
End If
Connection.Close %>