Picture of Module

<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmtx = "select count(hybrid_id) nhybrid from ASSEMBLY.ASM_HYBRID_BOND_ID where MODULE_ID='"+Request("REQ_MODULE_ID")+"'" Set RSx = Connection.Execute(SQLStmtx) nhybrid=CInt(RSx("nhybrid")) Set RSx=nothing SQLStmt0 = "select ahbi.HYBRID_ID, HYBRID_POS, HYBRID_TYPE, MOD_TYPE from ASSEMBLY.ASM_HYBRID_BOND_ID ahbi, ASSEMBLY.ASM_MODULE_ID ami,ASSEMBLY.ASM_HYBRID_ID ahi where ahbi.MODULE_ID='"+Request("REQ_MODULE_ID")+"' and ami.MODULE_ID=ahbi.MODULE_ID and ahbi.HYBRID_ID=ahi.HYBRID_ID order by HYBRID_POS" SQLStmt1 = "select BATCH, SENSOR, SENSOR_POS from ASSEMBLY.ASM_SENSOR_BOND_ID where MODULE_ID='"+Request("REQ_MODULE_ID")+"' order by SENSOR_POS" Set RS0 = Connection.Execute(SQLStmt0) Set RS1 = Connection.Execute(SQLStmt1) %> Picture of Module

MODULE ID : <%= Request("REQ_MODULE_ID")%>

" alt="missing module picture">

<% If nhybrid=2 Then %> <% Else %> <% End If%> <% If nhybrid=2 Then %> <% Else %> <% End If%>

LEFT HYBRID	RIGHT HYBRID	HYBRID
"><%=RS0("HYBRID_ID")%>	<% RS0.MoveNext %> "><%=RS0("HYBRID_ID")%>	"><%=RS0("HYBRID_ID")%>

<% Do While Not RS1.EOF %> <% RS1.MoveNext Loop %>

SENSOR POSITION	BATCH - SENSOR
<%response.write(Cstr(RS1("SENSOR_POS")))%>	&sensor_x=<%= RS1("sensor") %>"><%response.write(Cstr(RS1("BATCH")) & " - " & Cstr(RS1("SENSOR")))%>

<% Connection.Close Set RS0=nothing Set RS1=nothing Set Connection=nothing %>