<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = "select distinct batch,sensor from sitester.sensor_log where batch='"+Request("batch_x")+"'"
Set RS = Connection.Execute(SQLStmt)
%>
Batch Details
Batch <%= Request("batch_x") %> Details
<%
If RS.EOF Then
Response.Write(" This batch has not been recorded or tested")
Else
Do While Not RS.EOF%>
&sensor_x=<%= RS("sensor") %>">Sensor
<%= RS("Sensor") %>
<%
RS.Movenext
Loop
End If
%>
<% Connection.Close %>