<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open rochester_rd
'
' Get the list of tested bases
'
base=CStr(request("BASE"))
'
SQLStmt0 = " select base,cable_length,comments from assembly.tof_base_data where TO_CHAR(base)='" & base & "'"
response.write(SQLStmt0)
' Set RS0 = Connection.Execute(SQLStmt0)
SQLStmt1 = " select base,electrode,electrode_number,electrode||substr(to_char(electrode_number,'00'),2,3) ens,electrode_voltage from assembly.tof_base_voltages where TO_CHAR(base)='" & base & "'"
' response.write(SQLStmt1)
Set RS1 = Connection.Execute(SQLStmt1)
%>
Single ToF Base
Base Data for Base # <%=base%>
Cable Length [mm]
<%=RS0("Cable_length")%>
Comments
<%
If IsNull(RS0("Comments")) Then
response.write("-")
Else
response.write(CStr(RS0("comments")))
End If
%>