<% sql = " Select t.tape, d.archfile,d.archseg,d.dataset from lcd_datasets d, " sql = sql & " lcd_archive_tapes t order by t.tape, d.archfile,d.dataset " rem Response.Write("sql = " & sql)%> <%Session.timeout = 5 If IsObject(Session("Oracle_conn")) Then Set conn = Session("Oracle_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "SLAC-Unix-Oracle","sldmem","RN9<32#KN" Set Session("Oracle_conn") = conn End If %> <%Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.EOF then err_msg = "No data found for your request" response.write(err_msg) Else%>

<% response.write("|Dataset\ Medium \TAPE \ FILENUM \ TAPEDSN \\ STATUS \ EVENTS \ DATE|") %>

DataFile ArchiveFile ArchiveFileNum ArchiveFile Tape<%rs.MoveFirst() Do Until rs.EOF%>
<%=rs.Fields("dataset").Value%> <%=rs.Fields("archfile").Value%> <%=rs.Fields("archseg").Value%> <%=rs.Fields("tape").Value%>
<% rs.MoveNext() Loop End if%>