DUNQUE QUESTO SARà IL CODICE per il mio sito?
\\\\\\\\\\\\\\\\\\\\\\
' >> DA ADATTARE! <<
'
' Specificare il percorso dove è stato inserito
' il file contenente la skin dell'applicazione.
%><%
'
'
'-------------------------------------------------------------------------------'
'-------------------------------------------------------------------------------'
' Includi le informazioni generiche di configurazione
'-------------------------------------------------------------------------------'
%>
<%
'-------------------------------------------------------------------------------'
' Includi le informazioni di gestione dei report statistici
'-------------------------------------------------------------------------------'
%>
<%
'-------------------------------------------------------------------------------'
' Includi le informazioni sullo sviluppo del layout tramite funzioni
'-------------------------------------------------------------------------------'
%>
<%
'---------------------------------------------------
' Dimension variables : show icons
'---------------------------------------------------
Dim strAsgIconaTemp
Dim Index
'---------------------------------------------------
' Dimension variables : sorting records
'---------------------------------------------------
Dim strAsgSortBy
Dim strAsgSortByFld
Dim strAsgSortOrder
'---------------------------------------------------
' Dimension variables : report data search engine
'---------------------------------------------------
Dim strAsgSQLsearchstring 'Holds the search string to query database
Dim asgSearchfor 'Holds the keywords to search for
Dim asgSearchIn 'Holds the name of the table to search in
'---------------------------------------------------
' Dimension variables : other elaborations
'---------------------------------------------------
Dim strAsgUnknownIcon 'Holds unknown icons information
'---------------------------------------------------
' Controllo aggiornamenti
'---------------------------------------------------
Dim strAsgLastVersion '
Dim dtmAsgLastUpdate '
Dim intAsgLastUpdate 'Casiste possibili:
intAsgLastUpdate = 0 ' - variabile non in calcolo
'1 - tutto combacia
'2 - differente versione e data
'3 - uguale versione ma differente data
Dim urlAsgLastUpdate '
'-------------------------------------------------------------------------------'
' Includi le informazioni sulla traduzione in uso
'-------------------------------------------------------------------------------'
'// Italiano %>
<%
'// English %>
<%
'// Espanol %>
<%
'---------------------------------------------------
' Apri connessione al Database
'---------------------------------------------------
If blnConnectionIsOpen = False Then
'Se si usano variabili application apri la connessione
'dato che non è stata aperta per gestire le risorse
'del file di conteggio.
objAsgConn.Open strAsgConn
'---------------------------------------------------
End If
'---------------------------------------------------
'-----------------------------------------------------------------------------------------
' Check version for update!
'-----------------------------------------------------------------------------------------
' Controllo differenza data ed esecuzione solo se amministratore
If Clng(Clng(Year(Now()) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2)) - blnAsgCheckUpdate) > 7 AND Session("AsgLogin") = "Logged" Then
'Esegui controllo versione
Call CheckUpdate(strAsgVersion, dtmAsgUpdate)
'Aggiornamento informazioni sul controllo
strAsgSQL = "UPDATE "&strAsgTablePrefix&"Config SET Opt_Check_Update = " & Year(Now()) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2) & ""
objAsgConn.Execute(strAsgSQL)
'Se si utilizzano le variabili Application aggiornale
If blnApplicationConfig Then
'Aggiorna Variabili Application
Application("blnAsgCheckUpdate") = Year(Now()) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2)
End If
End If
%>
\\\\\\\\\\\\\\\\\\\\\\\\\
e qui al posto di percorso che va di preciso?
%><%

Rispondi quotando