<% Option Explicit %> <% Dim ActTable, ActProc, ActTitle Dim rsItems Call Init %> ASAEC - Associazione Antiestorsione Catanese “Libero Grassi”
 
 
AMMINISTRAZIONE <% Call MainMenu() %>

 
<% Call StartProc() %>
 
 
 
© 2006 Powered by FIBEA.NET  
<% If session("Access") = 1 Then Call CloseDatabase '-------------------------------------------------------------------------------------------------- '--- PROCEDURES '-------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------- '--- Proc Init() - Initialisierung '-------------------------------------------------------------------------------------------------- Private Sub Init() If session("Access") = "" Then session("Access") = 0 ' ---------------------------------------------------------------------------------------- Access If session("Access") = 1 Then ActProc = request.queryString("p") If ActProc = "" Then ActProc = "list" ActTable = request.queryString("t") If ActTable <> "eventi" and ActTable <> "stampa" Then ActTable = "" : ActProc = "choice" Else ActProc = "noaccess" End If ' --------------------------------------------------------------------------- Funktionen Call OpenDatabase End Sub '-------------------------------------------------------------------------------------------------- '--- Proc StartProc() - Auswahl und Start Prozedur '-------------------------------------------------------------------------------------------------- Private Sub Startproc() Select Case ActProc case "noaccess" call NoAccess() case "choice" call ChoiceTable() case "list" call DisplayList() case "edit" call EditItem() case "update" call UpdateItem() call DisplayList() case "add" call AddItem() case "delete" call DeleteItem() case "on" call SetOnOff() call DisplayList() case else call ChoiceTable() end Select End Sub '-------------------------------------------------------------------------------------------------- '--- Proc NoAccess() - Meldung einloggen '-------------------------------------------------------------------------------------------------- Private Sub NoAccess() response.write "AREA RISERVATA
" _ & " 
" _ & "Per accedere alle funzioni amministrative, effettuare il Login.

" Call Back() End Sub '-------------------------------------------------------------------------------------------------- '--- Proc ChoiceTable() - Meldung Tabelle wählen '-------------------------------------------------------------------------------------------------- Private Sub ChoiceTable() response.write "Scegliere Contenuto da amministrare:
" _ & " 
" response.write "Eventi | " _ & "Rassegna Stampa" End Sub '-------------------------------------------------------------------------------------------------- '--- Proc MainMenu() - Anzeige Hauptmenu mut Links '-------------------------------------------------------------------------------------------------- Private Sub MainMenu() Call Back() If session("Access") = 1 Then response.write " | Eventi | " response.write "Rassegna Stampa" End If response.write " | Sito" End Sub '-------------------------------------------------------------------------------------------------- '--- Proc DisplayList() - Anzeige Liste '-------------------------------------------------------------------------------------------------- Private Sub DisplayList() Dim ActOnline ' ----------------------------------------------------------------------------- Daten ab Datenbank je nach Tabelle holen Set rsItems = Server.CreateObject("ADODB.RecordSet") Sql = "SELECT * FROM " & ActTable & " ORDER BY " & ActTable & ".Date DESC" rsItems.Open sql, conn, 3, 1 ' ----------------------------------------------------------------------------- Haupttitel mit Links Call DisplayTitle("Lista") ' ----------------------------------------------------------------------------- Tabelle response.write "" response.write "" ' ----------------------------------------------------------------------------- Titel Liste response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" ' ----------------------------------------------------------------------------- Kein Eintrag If rsItems.Eof Then response.write "
DataContenutoFileTipoAtt.Comandi
Nessun Evento inserito
" Exit Sub End If ' ----------------------------------------------------------------------------- Einträge abarbeiten rsItems.MoveFirst Do While not rsItems.eof response.write "" ' --------------------------------------------------------------------------------------- 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 "" response.write "" response.write "" ' -------------------------------------------------------------------------------------------- Links response.write "
" _ & " " & uCase(ActTable) & " - " & vActFunc & "" _ & "" response.write "" response.write "" response.write Spacer(15,5) response.write "" response.write "" response.write Spacer(15,5) If ActTable = "eventi" Then vWebSite = "../notizie_eventi.asp" Else vWebSite = "../rassegna_stampa.asp" %><% response.write "" response.write Spacer(15,5) response.write "
" End Sub '-------------------------------------------------------------------------------------------------- '--- Proc SetOnOff() - Setzt Produkt On oder Offline '-------------------------------------------------------------------------------------------------- Private Sub SetOnOff() Dim ActID, ActOnOff ' ------------------------------------------------------------------------------------ querys holen ActID = request.queryString("id") ActOnOff = request.queryString("on") If ActID = "" Then Exit Sub if ActOnOff ="" Then Exit Sub ' ------------------------------------------------------------------------------------ db updaten Sql = "UPDATE " & ActTable & " SET Active = " & ActOnOff _ & " WHERE " & ActTable & ".ID = " & int(ActID) conn.Execute sql End Sub '-------------------------------------------------------------------------------------------------- '--- Proc AddItem() - Hinzufügen neuer Eintrag '-------------------------------------------------------------------------------------------------- Private Sub AddItem() ' -------------------------------------------------------------------------- Neue DB-Zeile erstellen Set rsItems = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM " & ActTable & " WHERE 1=2" ' WHERE 1=2 -> Spalteninfos ohne Zeile auszuwählen rsItems.Open sql, conn, 1, 3 rsItems.AddNew ' -------------------------------------------------------------------------- Daten füllen, updaten und zu edit verzweigen mit neuer ID-nr rsItems("Date") = Date() rsItems("Title") = "NEW" rsItems("Info") = "" rsItems("Filename") = "" rsItems("Filetype") = 0 rsItems("Active") = 0 rsItems.Update response.redirect "admin.asp?t=" & ActTable & "&p=edit&id=" & rsItems("ID") & "&new=1" ' jetzt editieren End Sub '-------------------------------------------------------------------------------------------------- '--- Proc EditItem() - Editiert Produkt '-------------------------------------------------------------------------------------------------- Private Sub EditItem() Dim ActID, NewDate, NewTitle, NewInfo, NewFileName, NewFileType, NewActive, IsNewAdd ' ------------------------------------------------------------------------------------ check querys ActID = request.queryString("id") If ActID = "" Then exit sub If request.queryString("new") = "1" Then IsNewAdd = 1 Else IsNewAdd = 0 ' Neuzugang? ' --------------------------------------------------------------------- id in db suchen und checken Set rsItems = Server.CreateObject("ADODB.RecordSet") Sql = "SELECT * FROM " & ActTable _ & " WHERE " & ActTable & ".ID = " & int(ActID) rsItems.Open sql, conn, 3, 1 If rsItems.Eof Then exit sub ' --------------------------------------------------------------------------------------- variabeln NewDate = rsItems("Date") NewTitle = rsItems("Title") NewInfo = rsItems("Info") NewFileName = rsItems("Filename") NewFileType = rsItems("Filetype") NewActive = rsItems("Active") If NewActive = "" Then NewActive = 0 ' ----------------------------------------------------------------------------- Haupttitel mit Links If IsNewAdd = 1 Then Call DisplayTitle("Aggiungi Elemento") Else Call DisplayTitle("Modifica Elemento") ' --------------------------------------------------------------------------- haupttabelle mit form response.write "" response.write "" response.write "" ' ------------------------------------------------------------------------ form und tabelle schliessen response.write "
" ' ------------------------------------------------------------------------ anzeige id response.write "ID: " & ActID response.write "" response.write "
 
" ' ------------------------------------------------------------------------ input datum response.write "Data: digitare la data nel formato GG/MM/AA
 
" response.write "" response.write "
 
" ' ------------------------------------------------------------------------ input titel response.write "Titolo: al massimo 200 caratteri
 
" %><% ' Wegen möglichem Apostroph auf html response.write "
 
" ' ------------------------------------------------------------------------ input info response.write "Informazioni: testo illimitato
 
" %><% ' Wegen möglichem Apostroph auf html response.write "
 
" ' ------------------------------------------------------------------------ input filename und filetyp in auswahlliste response.write "File: digitare il nome completo (p.e. immagine.jpg) e scegliere il tipo (p.e. 4-Immagine) del file
 
" response.write "" response.write "  " response.write "" response.write "
 
" ' ------------------------------------------------------------------------ aktiv setzen via Auswahlliste response.write "Attivazione Online: attivare o disattivare l'elemento online (può essere cambiato dopo in lista)
 
" response.write "" response.write "  " If NewActive = 0 Then response.write "" Else response.write "" End If response.write "
 
" response.write "
" ' ------------------------------------------------------------------------ Submit / Cancel response.write "" response.write spacer(20,10) If IsNewAdd = 1 Then ' Abbruch Neuzugang: löschen des Neueintrags response.write "" Else ' Modifikation: Liste response.write "" End If response.write "" ' ------------------------------------------------------------------------ hidden variablen response.write "" response.write "" response.write "
" If IsNewAdd = 1 Then ' Neuzugang response.write "
Clicca su 'Salva' per salvare il nuovo Elemento o clicca su 'Annulla' per cancellare l'operazione." Else response.write "
Clicca su 'Salva' per salvare le modifiche o clicca su 'Annulla' per cancellare l'operazione." End If End Sub '-------------------------------------------------------------------------------------------------- '--- Proc UpdateItem() - Aktualisiert Eintrag '-------------------------------------------------------------------------------------------------- Private Sub UpdateItem() Dim ActID, NewDate, NewTitle, NewInfo, NewFileName, NewFileType, NewActive ' ------------------------------------------------------------------------------------ querys holen ActID = request.queryString("id") NewDate = request.queryString("date") NewTitle = request.queryString("title") NewInfo = request.queryString("info") NewFileName = request.queryString("filename") NewFileType = request.queryString("filetype") NewActive = request.queryString("active") ' ------------------------------------------------------------------------ db updaten Set rsItems = Server.CreateObject("ADODB.RecordSet") Sql = "SELECT * FROM " & ActTable _ & " WHERE " & ActTable & ".ID = " & int(ActID) rsItems.Open sql, conn, 1, 3 If IsDate(NewDate) Then rsItems("Date") = NewDate Else rsItems("Date") = Date() rsItems("Title") = NewTitle rsItems("Info") = NewInfo rsItems("FileName") = NewFileName rsItems("FileType") = NewFileType rsItems("Active") = NewActive rsItems.Update End Sub '-------------------------------------------------------------------------------------------------- '--- Proc DeleteItem() - Löscht Eintrag inkl. alle Produkte '--- Modus 0 = Abfrageform / 1 = löschen '-------------------------------------------------------------------------------------------------- Private Sub DeleteItem() Dim ActID, DeleteMode, ActInfo ' ------------------------------------------------------------------------------------ querys holen ActID = request.queryString("id") DeleteMode = request.queryString("mode") If ActID = "" Then response.redirect "admin.asp?t=" & ActTable & "&p=list" if DeleteMode = "" Then DeleteMode = 0 ' -------------------------------------------------------------------------- Modus 0 -> Abfrageform If DeleteMode = 0 Then ' -------------------------------------------------------------------------- ab DB holen Set rsItems = Server.CreateObject("ADODB.RecordSet") Sql = "SELECT * FROM " & ActTable _ & " WHERE " & ActTable & ".ID = " & int(ActID) rsItems.Open sql, conn, 3, 1 If rsItems.Eof Then response.redirect "admin.asp?t=" & ActTable & "&p=list" ' zur Liste wenn nichts gefunden ' ----------------------------------------------------------------------------- Haupttitel mit Links Call DisplayTitle("Elimina Elemento") ' ---------------------------------------------------------------------------- haupttabelle mit form response.write "" response.write "" ' ---------------------------------------------------------------------------------- Inhalt anzeigen response.write "" ' ------------------------------------------------------------------------ form und tabelle schliessen response.write "
" response.write FormatActDate(rsItems("Date")) ' Datum response.write "
 
" response.write "" & rsItems("Title") & "" ' Titel response.write "
 
" ActInfo = trim(" " & rsItems("Info") & " ") ' Inhalt If ActInfo <> "" Then ActInfo = replace(ActInfo,chr(13), "
") response.write ActInfo response.write "
 
" response.write "File: " ' File response.write rsItems("Filename") Select Case rsItems("Filetype") case 1, 2, 3, 5 ' HTML/DOC/PDF/DIV Call OpenPopup("../" & ActTable & "/" & rsItems("Filename")) response.write "  " & Arrow("r") & " vedi File..." case 4 ' Image Call OpenPopup("../viewimage.asp?file=" & ActTable & "/" & rsItems("Filename")) response.write "  " & Arrow("r") & " vedi File..." case else ' Sonst kein Symbol und kein Link end Select response.write "
 
" If rsItems("Active") = 0 Then response.write "" Else response.write "" End If response.write "
" ' ------------------------------------------------------------------------ Submit / Cancel response.write "" response.write spacer(20,10) response.write "" ' ------------------------------------------------------------------------ hidden variablen response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "
Clicca su 'Elimina' per eliminare il contenuto dal database o clicca su 'Annulla' per tornare indietro." End If ' --------------------------------- DeleteMode 1 löschen + redirect zu liste If DeleteMode = 1 Then Sql = "DELETE FROM " & ActTable _ & " WHERE " & ActTable & ".ID = " & int(ActID) conn.Execute sql response.redirect "admin.asp?t=" & ActTable & "&p=list" End If End Sub %>