Event Calendar
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim country As String
  If Not IsNothing(Request.QueryString("UK")) And Request.QueryString("UK") <> "" Then country = "UK" Else country = "US"
  Dim T As New Tornado.z
  T.dbQP = "U=3| S=aspdbzen| Th=Tit=" & country & " Stand Alone Event Calendar"
  T.dbCalendar3 = "Type=Event| Width=600| Height=500| dateformat=m.d.y| eventfileurl=/tornado/DB/Calendar/2005-" & country & ".evt"
  Response.Write("<Center>" & T.ASPdbCalendar() & "</Center>")
  Response.Write("<FORM>")
  Response.Write("<INPUT TYPE='Submit' NAME='US' VALUE='US Calendar'> ")
  Response.Write("<INPUT TYPE='Submit' NAME='UK' VALUE='UK Calendar'>")
  Response.Write("</FORM>")
End Sub
</script>
A event calendar is one that you can place text (event) in the day boxes. You can generate these events and schedules (lockouts) data for the calendar via program code or text file. You can also define hyperlinks to link your daily event to an URL. If there is no default event and schedule file, then the existing ones will be used every year. Otherwise, you can specify a different one for each user. You have full control of international formats and color. Essentially, all you need is one line of code (dbCalendar3). Very flexible and very simple.

Note: In WS2003, access web files has a different security requirements. The event and schedule file url must be ./filename.txt. The file extension must be within the correct MIME type. The test will be to display the files by entering the url in the browser. Therefore using file extension like .txt is better than using extension like .evt ot .sch.