<!--#include file="cn_cal.asp"-->
<!--#include file="settings.asp"-->
<style type="text/css">
.style1 {
color: #FFFFFF;
}
</style>
<%
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%>
<br><br><br><br>
<center>
<h3>WBS Calendario eventi</h3>
<form method="post" action="<%=request.ServerVariables("SCRIPT_NAME")%>?action=login">
<table width="170" border="1" style="FONT-SIZE: 10px; COLOR: #333;
FONT-FAMILY: verdana,geneva,lucida,helvetica,sans-serif;border-collapse:collapse;">
<tr>
<td align="center">UID</td>
<td align="center"><input type="text" name="myUID"></td>
</tr>
<tr>
<td align="center">PWD</td>
<td align="center"><input type="password" name="myPWD"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="Login" onClick="this.value='validazione....'"></td>
</tr>
</table>
</form>
</center>
<%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
%>
<html>
<head>
<title>Calendario eventi</title>
<meta name="Description" content="tutorials, ASP applications, FAQ's, book and software reviews, forums, tools, services, and much, much more.......">
<meta name="Keywords" content="ASP, free, script, application, forum, bulletin, board, hosting, design, tutorials, articles, designing, site, tools, services, building, reviews, CSS, HTML, DHTML, JavaScript, Active, server, Pages, download, downloads, 101, guestbook, login, search, engine, submission, service, hit counter, hosting, domain names, links, linkz, freeware, uk, website, tutorial, how to, FAQ, book, software, applications, scripts">
<meta name="rating" content="general">
<meta name="expires" content="never">
<meta name="charset" content="ISO-8859-1">
<meta name="distribution" content="Global">
<meta name="robots" content="INDEX,FOLLOW">
<meta name="revisit-after" content="7 Days">
<meta name="author" content="Roy L. Besiera">
<meta name="copyright" content="Copyright ©2007 WBS">
<link rel="stylesheet" href="default.css" type="text/css">
</head>
<body <%if sysmsg<>"" then%>
onLoad="alert('<%=sysmsg%>')"<%end if%>>
<table cellspacing="1" cellpadding="1" style="width: 729px">
<tr><td colspan="2">
<a href="../index.htm">
<img src="images/calLogo.gif" border="0" align="absmiddle" alt="bobweb.it"> </a></td>
</tr>
<tr><td bgcolor="#336699" colspan="2">
<font color="#FFFFFF"><b>Hai selezionato la seguente data : <%=formatdatetime(dteTheDate,1)%></b></font>
<a href="printable.asp?date=<%=dteTheDate%>"><span class="style1">P</span><font color="#FFFFFF">rint events</font>
</a> <a href="rapportino.asp?date=<%=dteTheDate%>"><span class="style1">P</span><font color="#FFFFFF">rint rapportino</font>
</a>
</td>
</tr>
<tr>
<td width="140" valign="top">
<!--#include file="inc_cal.asp"-->
<form method="post" action="cal_pro.asp">
<table border="0" cellspacing="1" cellpadding="1" style="width: 385%">
<tr><td colspan="2">
<input type="text" name="strtitle" value="Titolo dell'evento" size="23"
style="border: 1px solid #808c9a; FONT-SIZE: 12px; COLOR: #333; FONT-FAMILY: verdana,geneva,lucida,helvetica,sans-serif;
width: 177px;"></td></tr>
<tr>
<td>Da:</td>
<td>
<select name="myTime"
style="FONT-SIZE: 9px; COLOR: #333; FONT-FAMILY: verdana,geneva,lucida,helvetica,sans-serif;
BORDER-RIGHT: #808c9a 1px solid; BORDER-LEFT: #808c9a 1px solid;
BORDER-TOP: #808c9a 1px solid; BORDER-BOTTOM: #808c9a 1px solid">
<% for i=StartTime to EndTime%>
<%if i>=13 then%>
<option value="<%=i%>"><%=i-(12)%>:00 PM</option>
<%else%>
<option value="<%=i%>"><%=i%>:00 AM</option>
<%
end if
next
%>
</select></td>
</tr>
<tr>
<td>A:</td>
<td>
<select name="tomyTime" style="FONT-SIZE: 9px; COLOR: #333; FONT-FAMILY: verdana,geneva,lucida,helvetica,sans-serif;
BORDER-RIGHT: #808c9a 1px solid; BORDER-LEFT: #808c9a 1px solid;
BORDER-TOP: #808c9a 1px solid; BORDER-BOTTOM: #808c9a 1px solid">
<% for i=StartTime+1 to 22%>
<%if i>=13 then%>
<option value="<%=i%>"><%=i-(12)%>:00 PM</option>
<%else%>
<option value="<%=i%>"><%=i%>:00 AM</option>
<%
end if
next
%></select></td>
</tr>
<tr><td valign="top"><input type="radio" name="RepEnt" value="0" checked></td>
<td>Da non ripetere</td></tr>
<tr><td valign="top"><input type="radio" name="RepEnt" value="1"></td>
<td>Ripetere tutti i gg per 1 settimana</td></tr>
<tr><td valign="top"><input type="radio" name="RepEnt" value="2"></td>
<td>Ripetere tutte le sett. per 1 mese</td></tr>
<tr><td valign="top" colspan="2">
<textarea name="Event"
style="border: 1px solid #808c9a; FONT-SIZE: 12px; COLOR: #333; FONT-FAMILY: verdana,geneva,lucida,helvetica,sans-serif;
width: 547px; height: 225px;">Descrizione dell'evento</textarea>
</td></tr>
<tr><td colspan="2"><input type="submit" value="Aggiungi" style="font-size:9px;"></td></tr>
</table>
<input type="hidden" value="<%=dteTheDate%>" name="EntryDate">
</form>
</td>
<td valign="top" width="620">
<table width="100%" cellspacing="1" cellpadding="0">
<tr>
<td>
<!--#include file="inc_midData.asp"-->
</td>
</tr>
</table>
</td>
</tr>
</table>
<br><br>
</body>
</html>
<%
end if
set rs=nothing
cn.close
set cn=nothing
%>