<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select HYBRID_ID, HYBRID_TYPE from ASSEMBLY.ASM_HYBRID_ID order by HYBRID_TYPE,HYBRID_ID" Set RS = Connection.Execute(SQLStmt) %> Assembled Hybrids

List of Assembled Hybrids

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

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

Hybrid Type : " & Cstr(RS("HYBRID_TYPE")) & "

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

ID: <% response.write Cstr(RS("HYBRID_ID"))%> ">Assembly Status

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