|
|
|
|
|
 |
| ||
<% if (Session("PWOK") = "" ) then %>
For complete access to this page, please log-in. Click here to go to the log-in page. <% end if %>
<%
dim cn, rs, strSQL
dim recid, cls, subclass, subject, link, description, docsize, doctype
dim lastcls, lastsub
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "ctsds"
Set rs = Server.CreateObject("ADODB.Recordset")
On Error Resume Next
strSQL = "SELECT recid, Class, SubClass, Subject, Link, Description, docsize, doctype FROM downloads ORDER BY Class, SubClass, Subject"
rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
do until rs.EOF
recid = rs("recid")
cls = rs("Class")
subclass = rs("SubClass")
subject = rs("Subject")
link = Trim(rs("Link"))
description = rs("Description")
docsize = rs("docsize")
doctype = rs("doctype")
if cls <> lastcls then
Response.Write "
" & cls & " " lastcls = cls lastsub = "999999" end if if subclass <> lastsub then Response.Write " " & subclass & " " lastsub = subclass end if Response.write " " & subject & " (" Response.write docsize & ")" rs.MoveNext loop rs.Close cn.Close Set rs = Nothing Set cn = Nothing %> |