|
| |
Downloads |
|
| |
| |
Document Name |
Document Type |
Date of Submission |
<%
'SQL to fetch the values from the table Downloads
SQL = "Select * from Downloads Order by DOS DESC"
RS.Open SQL,strConnectionString,3,3,1
If not RS.EOF and not RS.BOF Then
While not RS.EOF %>
 |
" target="_blank"><%=RS("DocTitle")%> |
<%
docType = Split(RS("doc"),".")
if UCase(docType(1)) = "DOC" Then
imgToDisp = "doc.gif"
elseif UCase(docType(1)) = "PDF" Then
imgToDisp = "pdf.gif"
elseif UCase(docType(1)) = "RTF" Then
imgToDisp = "doc.gif"
elseif UCase(docType(1)) = "XLS" Then
imgToDisp = "xls.gif"
End if %>
|
<%=RS("DOS")%> |
<% RS.MoveNext
Wend
End if
RS.Close
Set RS = nothing %>
|
| |
|
|
|
|
|