Ricavare orario server

[rempox]

c'è quest'esempio di A.Caratta se puoi utilizzare asp

<% 
function orario() 
   dim intOra 
   intOra=datepart("h", time() ) 
   if len(intOra)="1" then 
      intOra="0" & intOra 
   end if 
   dim intMin 
   intMin=datepart("n", time() ) 
   if len(intMin)="1" then 
      intMin="0" & intMin 
   end if 
   dim intSec 
   intSec=datepart("s", time() ) 
   if len(intSec)="1" then 
      intSec="0" & intSec 
   end if 
   orario= intOra&":"&intMin&":"&intSec 
end function 
response.write orario() 
%> 

Ciao