RadDateInput Auto correcting to the wrong date in UI for ASP.NET AJAX

This is a migrated thread and some comments may be shown as answers.

RadDateInput Auto correcting to the wrong date

3 Answers 17 Views

Calendar

This is a migrated thread and some comments may be shown as answers.

3 Answers, 1 is accepted

answered on 06 Apr 2011, 02:48 PM

Here is the code that produced the problem. This page has been running for more than a year without a problem, now seems to be changing the month for not apparently reason.

<% @Import Namespace="System.Data" %>

<% @Import Namespace="System.Data.SqlClient" %>

<%@ Page Language="VB" Debug="true" %>

<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="cc1" %>

<%@ Register Namespace="Telerik.WebControls" TagPrefix="radI" Assembly="RadInput.Net2"%>

<link href="../style.css" rel="stylesheet" type="text/css" />

<title> S&R Shift Schedule - Add a Schedule </title>

<script language="javascript">

function UpdateSecondPicker()

{

var picker1 = <%= fromdate.ClientID %>;

var picker2 = <%= todate.ClientID %>;

var date = picker1.GetDate();

date.setDate(date.getDate() + 4);

picker2.SetDate(date);

}

</script>

<script language="javascript">

Telerik.Web.UI.RadDateInput.prototype.parseDate = function (value, baseDate)

{

}

</script>

<script runat="server">

Private Sub addtodbase(ByVal sender As System.Object, ByVal e As System.EventArgs)

if ( todate.selecteddate= "" or fromdate.selecteddate="" or Request.form("amill") = "" or Request.form("bmill") = "" or Request.form("cmill") = "" or Request.form("dmill") = "" or Request.form("emill") = "" or Request.form("smill") = "" or Request.form("pmill") = "") and Request.form("cbLive") = "on" then

Session("error") ="Required fields left blank!"

Session("firstvisit2") = ""

Session("savefromdate") = Request.form("fromdate")

Session("savetodate") = Request.form("todate")

Session("saveamill") = Request.form("amill")

Session("savebmill") = Request.form("bmill")

Session("savecmill") = Request.form("cmill")

Session("savedmill") = Request.form("dmill")

Session("saveemill") = Request.form("emill")

Session("savesmill") = Request.form("smill")

Session("savepmill") = Request.form("pmill")

Session("saveamillcomm") = Request.form("amillcomm")

Session("savebmillcomm") = Request.form("bmillcomm")

Session("savecmillcomm") = Request.form("cmillcomm")

Session("savedmillcomm") = Request.form("dmillcomm")

Session("saveemillcomm") = Request.form("emillcomm")

Session("savesmillcomm") = Request.form("smillcomm")

Session("savepmillcomm") = Request.form("pmillcomm")

Session("savegencomm") = Request.form("generalcomm")

Session("savecbLive") = Request.form("cbLive")

response.redirect("addschedule.aspx")

else

if (fromdate.selecteddate = "" or todate.selecteddate = "") then

Session("error") ="Required fields left blank!"

Session("firstvisit2") = ""

Session("savefromdate") = Request.form("fromdate")

Session("savetodate") = Request.form("todate")

Session("saveamill") = Request.form("amill")

Session("savebmill") = Request.form("bmill")

Session("savecmill") = Request.form("cmill")

Session("savedmill") = Request.form("dmill")

Session("saveemill") = Request.form("emill")

Session("savesmill") = Request.form("smill")

Session("savepmill") = Request.form("pmill")

Session("saveamillcomm") = Request.form("amillcomm")

Session("savebmillcomm") = Request.form("bmillcomm")

Session("savecmillcomm") = Request.form("cmillcomm")

Session("savedmillcomm") = Request.form("dmillcomm")

Session("saveemillcomm") = Request.form("emillcomm")

Session("savesmillcomm") = Request.form("smillcomm")

Session("savepmillcomm") = Request.form("pmillcomm")

Session("savegencomm") = Request.form("generalcomm")

Session("savecbLive") = Request.form("cbLive")

response.redirect("addschedule.aspx")

end if

DIM Connection as New SqlConnection

DIM oRS as SqlDataReader

DIM oRS2 as SqlDataReader

DIM qry as New SqlCommand

DIM qry2 as New SqlCommand

DIM maxnumber as integer

Session("addschedule") = ""

Session("firstvisit") = ""

Session("firstvisit2") = ""

Session("savefromdate") = ""

Session("savetodate") = ""

Session("saveamill") = ""

Session("savebmill") = ""

Session("savecmill") = ""

Session("savedmill") = ""

Session("saveemill") = ""

Session("savesmill") = ""

Session("savepmill") = ""

Session("saveamillcomm") = ""

Session("savebmillcomm") = ""

Session("savecmillcomm") = ""

Session("savedmillcomm") = ""

Session("saveemillcomm") = ""

Session("savesmillcomm") = ""

Session("savepmillcomm") = ""

qry2.CommandText = "select Max(scheduleid) as maxnum from shiftschedule"

Connection = New System.Data.SQLClient.SQLConnection ("server=172.20.72.251; initial catalog=workorder;uid=workuser;pwd=")

Connection.open()

qry.Connection = Connection

qry2.Connection = Connection

oRS2 = qry2.ExecuteReader()

if oRS2.Read() then

maxnumber = oRS2("maxnum") + 1

end if

Connection.Close

Session("fromdate") = fromdate.SelectedDate

Session("fromdate2") = Request.Form("fromdate")

Session("todate") = todate.SelectedDate

Session("todate2") = Request.Form("todate")

If Request.form("cblive") = "on" then

session("liveswitch") = "1"

else

session("liveswitch") = "0"

end if

qry.CommandText = "Insert into shiftschedule (scheduleid, datefrom, dateto, a_mill, a_mill_comments, b_mill, b_mill_comments, c_mill, c_mill_comments, d_mill, d_mill_comments, e_mill, e_mill_comments, s_mill, s_mill_comments, p_mill, p_mill_comments,gencomm,live,revised) values('" & maxnumber & "', '" & Session("fromdate") & "', '" & Session("todate") & "', '" & Request.Form("amill") & "', '" & Request.Form("amillcomm") & "', '" & Request.Form("bmill") & "', '" & Request.Form("bmillcomm") & "', '" & Request.Form("cmill") & "', '" & Request.Form("cmillcomm") & "', '" & Request.Form("dmill") & "', '" & Request.Form("dmillcomm") & "', '" & Request.Form("emill") & "', '" & Request.Form("emillcomm") & "', '" & Request.Form("smill") & "', '" & Request.Form("smillcomm") & "', '" & Request.Form("pmill") & "', '" & Request.Form("pmillcomm") & "', '" & Request.Form("generalcomm") & "' , '" & Session("liveswitch") & "',0)"

Connection.Open()

oRS = qry.ExecuteReader()

end if

Response.redirect("admin.aspx")

End Sub

</script>

<body>

<center><img src="../SRLOGOCO2.JPG" width="184" height="150" alt=""><BR><BR><font color="red" size="-1">* <i>= Required to make live</i></font><BR>

<%

'if User.IsInRole("SRS-LOCAL\SchedUsers")= False Then

' Response.Redirect("../sschedule.aspx")

'end if

if Session("error") <> "" then

Response.write("<Font color='red'><b> " & Session("error") & " </b></font>")

Session("error") = ""

end if

%>

<form method="post" action="addschedule.aspx" name="testform" runat="server">

<font size="-1">

<table cellspacing="0" cellpadding="5">

<tr>

<td><font size="-1">Make Live? </font> </td>

<td colspan=3>

<asp:CheckBox ID="cbLive" runat="server"></asp:CheckBox>

</td>

</tr>

<tr>

<td><font size="-1">From Date(MM/DD/YYYY): </font></td>

<td colspan=3><radI:RadDateInput id="fromdate" style="FONT: 8pt monospace" runat="server" Skin="mac" autocompletetype="Disabled" DateFormat="MM/dd/yyyy" width="100px">

<ClientEvents OnValueChanged="UpdateSecondPicker" />

</radI:RadDateInput></td>

</tr>

<tr>

<td><font size="-1">To Date(MM/DD/YYYY): </font></td>

<td colspan=3><radI:RadDateInput id="todate" style="FONT: 8pt monospace" runat="server" Skin="mac"

width="100px"></radI:RadDateInput>

</td>

</tr>

<tr>

<td><font size="-1">A-Mill will be on: </font></td>

<td><% Response.write("<input type='text' name='amill' size=3 maxlength=3 value='" & Session("saveamill") & "' />")%><font color="red" size="-1">*</font></td>