<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open rochester_rd
'
' Get the list of tested bases
'
'
SQLStmt0 = " select base from assembly.tof_base_data order by base "
' response.write(SQLStmt0)
Set RS0 = Connection.Execute(SQLStmt0)
%>
ToF Bases and PMTs
Time of Flight Database
Bases
<%
icol=0
Do While Not RS0.EOF
if int(icol/10)=icol/10 Then
if icol=0 Then
%>