Io Alessandro ti consiglieri di salvarti l'evento nel database.
Poi recuperi l'id dell'evento e creii la cartella public/aziende/eventi/azienda[id]/evento[id]
e inserisci le foto rinomindandole recuperando la data e ora .
codice:
<% 
function nomefoto(str)
    Dim ObjRegexp
    Set ObjRegexp = New RegExp
    ObjRegexp.Global = True
    ObjRegexp.IgnoreCase = True
   ObjRegexp.Pattern = "[^0-9]"
    str = ObjRegexp.Replace(str,"")
    Set ObjRegexp = Nothing
    nomefoto = str
end function

  data = date()
  ora   = time()
  data = nomefoto(data)
  ora  = nomefoto(ora)

 Foto =data & ora
  %>
In questo modo ti sarebbe facile anche estrarre eventi tramite idazienda.