| |
 |
|
| |
| |
(click
on the headings to sort each list) |
<%
sSort = request.querystring("sSort")
sOrder = request.querystring("sOrder")
if sOrder <> "desc" then sOrder = "asc"
if sSort <> "sLiteratureNumber" and sSort <> "sCategory" and sSort <> "dRevised" then
sSort = "sDocumentName"
end if
sSort = sSort & " " & sOrder
if left(sSort,13) <> "sDocumentName" then
sSort = sSort & ", sDocumentName"
end if
if sOrder = "desc" then sOrder = "asc" else sOrder = "desc"
%>
| |
Literature # |
Document Name & Type |
Category |
Revised |
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sSQL = "SELECT sType,sPDFFile, sCategory, dRevised, sDocumentName, sLiteratureNumber FROM tbLibraryItems order by " & sSort & ";"
'sSQL = "SELECT sAssociateName from tbAssociates"
rs.Open sSQL, Application("Joslyn_DB"),0,1
'response.write rs("sAssociateName")
while not rs.eof
sPDFFile = rs("sPDFFile") & ""
sCategory = rs("sCategory")
dRevised = rs("dRevised")
sLiteratureNumber = rs("sLiteratureNumber")
sAppendToName = ""
select case rs("sType")
case "DB"
sAppendToName = " Brochure"
case "I"
sAppendToName = " Instruction Manual"
end select
sDocumentName = rs("sDocumentName") & sAppendToName
if sPDFFile <> "" then
%>
| |
 |
<%=sLiteratureNumber%> |
<%=sDocumentName%> |
<%=sCategory%> |
<%=dRevised%> |
<%
end if
rs.movenext
wend
rs.close
set rs = nothing
%>
|