You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

16 lines
473 B

<%@ Page Language="VB" %>
<%@ Register TagPrefix="obout" Namespace="OboutInc.Calendar2" Assembly="obout_Calendar2_NET" %>
<script runat="server">
Dim myCal As OboutInc.Calendar2.Calendar
Sub Page_Init(o As Object, e As EventArgs)
myCal = New OboutInc.Calendar2.Calendar()
myCal.ID = "calendar"
myCalPlaceholder.Controls.Add(myCal)
End Sub
Sub Page_Load(o As Object, e As EventArgs)
If(Not Page.IsPostBack)
myCal.DateFirstMonth = New DateTime(2007, 6, 1)