<%
if request.QueryString("action")="login" then
if request.Form("myUID")=myUsername then
if request.Form("myPWD")=myPassword then
session("cal_admin")="OK"
response.Redirect("cal_events.asp")
else
sysmsg="Password errata"
end if
else
sysmsg="Username errato"
end if
elseif request.QueryString("action")="logout" then
session("cal_admin")=""
response.Redirect("cal_events.asp")
end if
%>
<%if session("cal_admin")="" then%>
WBS Calendario eventi
<%else%>
<%
Dim dteDate,dteMDate,dteYdate,dteTheDate,strtitle,strDescription
if request.querystring("m")="" then
dteTheDate=formatdatetime(now,2)
dteDate=1
else
if request.querystring("d")="" then
dteDate=1
else
dteDate=request.querystring("d")
end if
dteMDate=request.querystring("m")
dteYdate=request.querystring("y")
if dteMDate>=13 then
dteMDate=1
dteYdate=dteYdate+1
elseif dteMDate<=0 then
dteMDate=12
dteYdate=dteYdate-1
end if
dteTheDate=cdate(dteMDate & "/" & dteDate & "/" & dteYdate)
end if
%>
Calendario eventi
"" then%>
onLoad="alert('<%=sysmsg%>')"<%end if%>>
