<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim Rm As New Tornado.z
  Rm.dbQP = "U=1| S=aspdbzen| Th=Tit=Stand Alone Normal Calendar"
  Rm.dbEventCalendar = "ID=cal| codebase='ccalendar' MAYSCRIPT|" & _ 
     "ar=/tornado/Jars/aspdbcalendar.jar| wi=260| he=350| fieldname=MYDATE| " & _
     "formname=F| format=m/d/y| color_fond=ccccff| color_case=FFC0C0| color_Comment=FFAAAA| " & _
     "color_empty=FF9090|posterimages=##.jpg| day2=Mon| day3=Tue| day4=Wed| " & _
     "day5=Thu| day6=Fri| day7=Sat| Day1=Sun"
  Response.Write(Rm.ASPdbCalendar)
  Response.Write("<P><FORM name=F>Date Selected: <INPUT TYPE='TEXT'" & _ 
     "name='MYDATE' SIZE=23></FORM>")
End Sub
</script>