sub page_load (obj as object, e as eventargs)
if not page.ispostback then
'ora inserisco come ultimo allievo inserito
'formattazione data ****************************************
dim d as string
dim br as string
dim ora as string
d=(datetime.now.tolongdatestring())
d=replace(d,"lunedì","")
d=replace(d,"martedì","")
d=replace(d,"mercoledì","")
d=replace(d,"giovedì","")
d=replace(d,"venerdì","")
d=replace(d,"sabato","")
d=replace(d,"domenica","")
d=replace(d,"gennaio","gen")
d=replace(d,"febbraio","feb")
d=replace(d,"marzo","mar")
d=replace(d,"aprile","apr")
d=replace(d,"maggio","mag")
d=replace(d,"giugno","giu")
d=replace(d,"luglio","lug")
d=replace(d,"agosto","ago")
d=replace(d,"settembre","set")
d=replace(d,"ottobre","ott")
d=replace(d,"novembre","nov")
d=replace(d,"dicembre","dic")
d=replace(d,"2005","05")
d=replace(d,"2006","06")
d=replace(d,"2007","07")
d=replace(d,"2008","08")
d=replace(d,"2009","09")
d=replace(d,"2010","10")
d=replace(d,"2011","11")
br="
"
ora=(datetime.now.toshorttimestring())
dim dataeora as string
dataeora=d
response.Write(dataeora & "
")
dim timex as string
dataeora="27 giu 2013"
if (timex=dataeora) then
response.Write("ok")
else
response.Write("no")
end if
end if
end sub