|
|
|
|
<%
'
' Get Documentation
'
set objConn2 = Server.CreateObject("ADODB.Connection")
objConn2.Provider = "MSDataShape"
objConn2.Open strConnWebDB
docStr = "select distinct docid, docno, doctype, title, updatedate, filesize, " _
& "filetype, parent, filepath, new, longdesc " _
& "from v_allDocs_App where docid in " _
& "(select secdocid from docassociations) order by doctype, docno"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open docStr, objConn2, adOpenForwardOnly, , adCmdText
If Not oRs.EOF Then
DTFirst = ""
oRs.MoveFirst
%>
<%
RowCount = 0
Do While Not oRs.EOF
DocType = oRs("DocType")
DocId = oRs("DocId")
DocNo = oRs("DocNo")
FilePath = oRs("FilePath")
FileSize = oRs("filesize")
UpdateDate = oRs("updatedate")
Title = oRs("Title")
FileType = oRs("FileType")
FileNew = oRs("new")
LongDesc = oRs("longdesc")
DTCurrent = DocType
If DTFirst <> DTCurrent Then
DTFirst = DTCurrent %>
| <%=DTCurrent%> | | |
| <%=ODNimg%> Doc ID | <%=OTimg%> Title | <%=ODimg%> Updated | File Type | <%=OSimg%> Size (KB) |
<%
End If
DCurrent = DocID
If DFirst <> DCurrent Then
DFirst = DCurrent %>
<%
If RowCount MOD 2 = 0 Then 'Even Row
thisColor = "#FFFFFF"
Else 'Odd Row
thisColor = "#EDEDED"
End If
%>
| <%=UCASE(docno)%> |
<%if not isnull(LongDesc) and len(LongDesc)>0 then %> <% end if %><%=title%>Application Note long description |
<%=UpdateDate%> |
<% Call getPic(FileType,fileNew) %> |
<%=FileSize%> |
|
|
<%
End If
RowCount = RowCount + 1
oRs.MoveNext
Loop
oRs.Close
set oRs = nothing
%>
|
|
<% End If %>
|
|
|