<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select distinct MODULE_ID, MOD_TYPE from ASSEMBLY.ASM_MODULE_ID order by MOD_TYPE" Set RS = Connection.Execute(SQLStmt) %> Assembled Modules

List of Assembled Modules

<% Old_ht = "X" Do While Not RS.EOF %>

<% If Cstr(RS("MOD_TYPE")) <> Old_ht Then Response.write("

Module Type : " & Cstr(RS("MOD_TYPE")) & "

") Old_ht=Cstr(RS("MOD_TYPE")) End If %>

ID: <% response.write Cstr(RS("MODULE_ID"))+" , " %> ">Picture , ">Assembly Status

<% RS.Movenext Loop %> <% Connection.Close %>