<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = " SELECT asbi.MODULE_ID, asbi.SENSOR_POS,asbi.BATCH,asbi.SENSOR,st.THICKNESS " SQLStmt = SQLStmt & " FROM ASSEMBLY.ASM_SENSOR_BOND_ID asbi,SITESTER.SENSOR_THICKNESS st,ASSEMBLY.ASM_MODULE_ID ami " SQLStmt = SQLStmt & " WHERE st.SENSOR(+)=asbi.SENSOR " SQLStmt = SQLStmt & " AND st.BATCH(+) = asbi.BATCH AND asbi.MODULE_ID = ami.MODULE_ID " SQLStmt = SQLStmt & " ORDER BY ami.MOD_TYPE,asbi.MODULE_ID,asbi.SENSOR_POS " 'response.write(SQLStmt) Set RS = Connection.Execute(SQLStmt) %> Sensor Thickness in Assembled modules

Sensor Thickness in Assembled modules

 

<% Do While Not RS.EOF %> <% RS.Movenext Loop %>

Module_ID

Sensor Position

 Batch Sensor Thickness
<%=RS("MODULE_ID")%> <%=RS("SENSOR_POS")%> <% =RS("BATCH") %> <% =RS("SENSOR") %> <% If IsNull(RS("THICKNESS")) Then Response.Write("-") Else Response.write(CStr(RS("THICKNESS"))) End If %>
<% Connection.Close %>