26 maggio 2003 alle 07:09:25

'Conta e controlla eventi di un dato giorno
Function getEventiCount(dt)
getEventiCount=0
dim rSQL, oCn, dtInizio, oRs
Set oCn = DBConnexion(DB_EVENTI)
dtInizio=CDate(dt)
rSQL = "SELECT count(Event_ID)as count FROM events WHERE Data_Evento='"&DateToString(dtInizio)&"'"
Set oRs = DBRecordSet(oCn, rSQL)
if oRs.eof and ors.BOF then exit function
getEventiCount=oRs("count").Value
oRs.Close
End function



'Taglia la stringa e aggiunge 3 puntini
Function cutString(byval s, byval max)
s=Trim(s)
cutString=s
dim l
l=len(s)
if l>max then
cutString=left(s, max-3) & "..."
end if
End Function



'Controlla e aggiunge se vero
Function iif(exp, tPart, fPart)
if isObject(exp) then
set iif=fPart
else
iif=fPart
end if
if exp then
if isObject(exp) then
set iif=tPart
else
iif=tPart
end if
end if
End function

26 maggio 2003 alle 21:37:27

' Redirect to default page if user is not authorized to access to a special part of the site
' IN : iAccessRole (int) : minimum level's access
' OUT : -
Sub AccessOnly(iAccessRole)
If Not IsAuthorized(iAccessRole) Then
Set oLangXML = Nothing
Response.Redirect GLOBAL_SITE_PATH & "Default.asp"
Response.End
End If
End Sub
' QUESTA E' LA FINE DEL FILE ORIGINALE--------> DA QUI PUOI INSERIRE LE MODIFICHE------------>

'Conta e controlla eventi di un dato giorno
Function getEventiCount(dt)
getEventiCount=0
dim rSQL, oCn, dtInizio, oRs
Set oCn = DBConnexion(DB_EVENTI)
dtInizio=CDate(dt)...........etc---->