% Option Explicit %>
<%
Dim ActTable, ActProc, ActTitle
Dim rsItems
Call Init
%>
"
' --------------------------------------------------------------------------------------- Datum
response.write "| " & FormatActDate(rsItems("Date")) & " | "
' --------------------------------------------------------------------------------------- Titel & Info
response.write "" & "" & rsItems("Title") & ""
If trim(" " & rsItems("Info") & " ") <> "" Then
response.write " " & Spacer(5,5) & " " & replace(rsItems("Info"),chr(13)," ")
End If
response.write " | "
' --------------------------------------------------------------------------------------- File
response.write "" & rsItems("FileName") & " | "
' --------------------------------------------------------------------------------------- FileTyp mit Link
response.write ""
Select Case rsItems("Filetype")
case 1 ' HTML/ASP
Call OpenPopup("../" & ActTable & "/" & rsItems("Filename"))
response.write " "
case 2 ' PDF
Call OpenPopup("../" & ActTable & "/" & rsItems("Filename"))
response.write " "
case 3 ' DOC
Call OpenPopup("../" & ActTable & "/" & rsItems("Filename"))
response.write " "
case 4 ' Image
Call OpenPopup("../viewimage.asp?file=" & ActTable & "/" & rsItems("Filename"))
response.write " "
case 5 ' Downloadfile/Diverses
Call OpenPopup("../" & ActTable & "/" & rsItems("Filename"))
response.write " "
case else ' Sonst kein Symbol und kein Link
response.write "-"
end Select
response.write " | "
' --------------------------------------------------------------------------------------- Online
response.write "" ' Online-LED mit Link auf Wechsel
ActOnline = rsItems("Active")
If ActOnline = "" Then ActOnline = 0
If ActOnline = 0 Then ' Offline -> Wechsel auf Online
response.write ""
response.write " | "
Else ' Online -> Wechsel auf Offline
response.write ""
response.write "
"
End If
' --------------------------------------------------------------------------------------- Befehle
response.write ""
response.write "" ' Edit
response.write " "
response.write spacer(10,5)
response.write "" ' Delete
response.write " "
response.write " | "
response.write "
"
rsItems.MoveNext
Loop
' -------------------------------------------------------------------------------------------- Tabelle zu
response.write ""
End Sub
'--------------------------------------------------------------------------------------------------
'--- Proc DisplayTitle(vActFunc) - Anzeige Haupttitel in Tabelle mit Links
'--- vActFunc = Bezeichnung akt. aufrufende Funktion
'--------------------------------------------------------------------------------------------------
Private Sub DisplayTitle(vActFunc)
Dim vWebSite
response.write "