LANSA for the WEB HTML for Function SET171A
<!-- Process : SET_171 Web Calendar -->
<!-- Function : SET171A Web Calendar -->
<!-- Page : 001 -->
<!-- Generated by - LANSA -->
<!-- Created by user - SETUSER -->
<!-- Time and Date - 122401010500 -->
<!-- RDML function sequence number - 0025 -->
<!-- This is a *WEBEVENT function -->
<HTML>
<HEAD>
<RDML MERGE="&STYLE">
<TITLE><RDML MERGE="&FUNCTION"> </TITLE>
</HEAD>
<RDML MERGE="&SCRIPT">
<RDML COMPONENT="S_171ACALENDAR">
<BODY BGCOLOR="<RDML MERGE="*LW3CLNTCOLOR">" BACKGROUND="<RDML MERGE="*LW3CLNTBKGND">" <RDML COMPONENT="FORMINIT">>
<FORM METHOD="POST" NAME="LANSA" ACTION="/<RDML MERGE="&CGI">/LANSAWEB?WEBEVENT+<RDML MERGE="&SESSPL">">
<RDML MERGE="&HIDDEN">
<RDML COMPONENT="STDHEADER">
<DIV align="center"> <FONT FACE="Arial" COLOR="DARKBLUE"><H1>Web Calendar</H1></FONT></DIV>
<RDML MERGE="&MESSAGES">
<DIV ALIGN="CENTER">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=3>
<TR>
<TD><RDML COMPONENT="S_171ADESC"></TD>
</TR>
<TR>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="15"></TD>
</TR>
<TR>
<TD><TABLE BORDER=0 CELLPADDING=0 CELLSPACING=3>
<TR>
<TD>Date in format <B>ddmmyy</B></TD>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="2"></TD>
<TD><INPUT NAME="SDDMMYY" TYPE="TEXT" MAXLENGTH="008" <RDML MERGE="DDMMYY " EDITCODEI="Y"> onFocus="SetNameLocation('SDDMMYY ',03,18)"></TD>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="2"></TD>
<TD><A HREF="JavaScript:createCalendar(160,170,443,351,4,'SDDMMYY')"><IMG SRC="<RDML MERGE="*LW3SETCALENDAR">" BORDER=0></A></TD>
</TR>
<TR>
<TD>Date in format <B>ddmmyyyy</B></TD>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="2"></TD>
<TD><INPUT NAME="SDDMMYYYY" TYPE="TEXT" MAXLENGTH="010" <RDML MERGE="DDMMYYYY " EDITWORDI="' / / ' "> onFocus="SetNameLocation('SDDMMYYYY ',04,18)"></TD>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="2"></TD>
<TD><A HREF="JavaScript:createCalendar(160,170,443,351,3, 'SDDMMYYYY')"><IMG SRC="<RDML MERGE ="*LW3SETCALENDAR">" ALT="Click here to open calendar and select a Date." BORDER=0></A></TD>
</TR>
</TR>
</TD>
</TABLE>
</TABLE>
</DIV>
<BR>
<RDML COMPONENT="STDFOOTER">
</FORM>
</BODY>
</HTML>
<!-- Process : SET_171 Web Calendar -->
<!-- Function : SET171A Web Calendar -->
<!-- Page : 001 -->
<!-- Generated by - LANSA -->
<!-- Created by user - SETUSER -->
<!-- Time and Date - 122401010500 -->
<!-- RDML function sequence number - 0025 -->
<!-- This is a *WEBEVENT function -->
<HTML>
<HEAD>
<RDML MERGE="&STYLE">
<TITLE><RDML MERGE="&FUNCTION"> </TITLE>
</HEAD>
<RDML MERGE="&SCRIPT">
<RDML COMPONENT="S_171ACALENDAR">
<BODY BGCOLOR="<RDML MERGE="*LW3CLNTCOLOR">" BACKGROUND="<RDML MERGE="*LW3CLNTBKGND">" <RDML COMPONENT="FORMINIT">>
<FORM METHOD="POST" NAME="LANSA" ACTION="/<RDML MERGE="&CGI">/LANSAWEB?WEBEVENT+<RDML MERGE="&SESSPL">">
<RDML MERGE="&HIDDEN">
<RDML COMPONENT="STDHEADER">
<DIV align="center"> <FONT FACE="Arial" COLOR="DARKBLUE"><H1>Web Calendar</H1></FONT></DIV>
<RDML MERGE="&MESSAGES">
<DIV ALIGN="CENTER">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=3>
<TR>
<TD><RDML COMPONENT="S_171ADESC"></TD>
</TR>
<TR>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="15"></TD>
</TR>
<TR>
<TD><TABLE BORDER=0 CELLPADDING=0 CELLSPACING=3>
<TR>
<TD>Date in format <B>ddmmyy</B></TD>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="2"></TD>
<TD><INPUT NAME="SDDMMYY" TYPE="TEXT" MAXLENGTH="008" <RDML MERGE="DDMMYY " EDITCODEI="Y"> onFocus="SetNameLocation('SDDMMYY ',03,18)"></TD>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="2"></TD>
<TD><A HREF="JavaScript:createCalendar(160,170,443,351,4,'SDDMMYY')"><IMG SRC="<RDML MERGE="*LW3SETCALENDAR">" BORDER=0></A></TD>
</TR>
<TR>
<TD>Date in format <B>ddmmyyyy</B></TD>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="2"></TD>
<TD><INPUT NAME="SDDMMYYYY" TYPE="TEXT" MAXLENGTH="010" <RDML MERGE="DDMMYYYY " EDITWORDI="' / / ' "> onFocus="SetNameLocation('SDDMMYYYY ',04,18)"></TD>
<TD><IMG SRC="<RDML MERGE ="*LW3SETSPACER">" BORDER=0 width="10" height="2"></TD>
<TD><A HREF="JavaScript:createCalendar(160,170,443,351,3, 'SDDMMYYYY')"><IMG SRC="<RDML MERGE ="*LW3SETCALENDAR">" ALT="Click here to open calendar and select a Date." BORDER=0></A></TD>
</TR>
</TR>
</TD>
</TABLE>
</TABLE>
</DIV>
<BR>
<RDML COMPONENT="STDFOOTER">
</FORM>
</BODY>
</HTML>