<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select distinct keynumber,tp.batch bat,tp.sensor sen,sl.rowid rowid_key from testkey_polysi tp,sensor_log sl where startdate=logdate" SQLStmt = SQLStmt & " and sl.rowid='" & Request("rowid_x") & "'" Set RS = Connection.Execute(SQLStmt) %> Polysilicon Key Numbers <% If Not RS.EOF Then %>

Batch <%= RS("bat") %>, sensor <%= RS("sen") %> Available Polysilicon Key Data

<% Else %>

No Available Polysilicon Key Data for this Log entry

<% End If%> <% Do While Not RS.EOF %> <% RS.Movenext Loop %>
Key Number Measurement
<%= RS("keynumber") %> <% Response.Write "IV" %>
<% Connection.Close %>