I'm having a problem with two different javascript controls in my app.
The first chuck of javascript that I pasted into my app is the
client-side calendar control popup which works fine when first used.
The second piece of javascript pasted into the app serves as a data
validation message box that fires after some server-side code executes
(if a certain error condition exists). This action is tied to a
submit button that upon NO error condition would write the data to
SQL. The calendar controls work fine until the other server-side
javascript executes then the calendar controls will pop up but when
you click on a date the window does not go away and the selected date
does not populate the textbox it is assigned to.
NOTE: VS.NET 2003 environment
HTML FROM PAGE THAT UTILIZES CALENDAR POP-UP:
<asp:TextBox id="txtStartDt " runat="server"
Width="85px"></asp:TextBox>
<SPAN id="calBlock1" >
<A href="javascrip t:calendar_wind ow=window.open( '/advtravel/calendar.aspx?f ormname=frmNewT rvlReq.txtStart Dt','calendar_w indow','width=2 30,height=230') ;calendar_windo w.focus()"><IMG
height="16" alt="Choose A Log Date" src="images/calendar.gif"
width="18" align="absMiddl e" border="0"></A>
</SPAN>
CALENDAR.ASPX HTML:
<HTML>
<HEAD>
<title>Select a date</title>
<script runat="server">
Private Sub cntCalendar_Sel ectionChanged(B yVal sender As
System.Object, ByVal e As System.EventArg s) Handles
cntCalendar.Sel ectionChanged
Dim strjscript As String = "<script language=""java script"">"
strjscript = strjscript & "window.opener. " &
HttpContext.Cur rent.Request.Qu eryString("form name") & ".value = '" &
cntCalendar.Sel ectedDate & "';window.close ();"
strjscript = strjscript & "</script" & ">"
Literal1.Text = strjscript
End Sub
</script>
<asp:literal id="Literal1" Runat="server"> </asp:literal>
<LINK href="http://localhost/AdvTravel/CSS/calendar.css"
type="text/css" rel="stylesheet ">
</HEAD>
<BODY bgcolor="silver ">
<form id="frmCalendar " runat="server">
<cc1:roundedcor ners id="RoundedCorn ers1" runat="server"
Width="190px" BorderColor="Na vy" BorderStyle="So lid" BorderWidth="2p x"
CornerHeight="2 0px" CornerWidth="20 px" Height="190px"
BackColor="Whit eSmoke">
<TABLE cellSpacing="0" cellPadding="0" align="center">
<TR>
<TD height="13">
<asp:dropdownli st id="drpCalMonth " Runat="Server" Width="100px"
AutoPostBack="T rue" OnSelectedIndex Changed="Set_Ca lendar"
CssClass="calTi tle"></asp:dropdownlis t>
<asp:dropdownli st id="drpCalYear " Runat="Server"
Width="60px" AutoPostBack="T rue" OnSelectedIndex Changed="Set_Ca lendar"
CssClass="calTi tle"></asp:dropdownlis t>
</TD>
</TR>
<TR>
<TD>
<asp:calendar id="cntCalendar " Runat="Server" Width="100%"
CssClass="calbo dy" DayStyle-BackColor="Ligh tYellow"
OtherMonthDaySt yle-BackColor="Whit e"
OnSelectionChan ged="cntCalenda r_SelectionChan ged" ShowTitle="True "
ondayrender="Ca lendar_dayrende r"></asp:calendar>
</TD>
</TR>
</TABLE>
</cc1:roundedcorn ers>
</form>
</BODY>
</HTML>
SERVER-SIDE DATA VALIDATION CODE :
Sub btnSubmit_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnSubmit.Click
StartDate = txtStartDt.Text
EndDate = txtEndDt.Text
startTime = wsdataformat.DD L2Military(ddlS tartTime.Select edValue)
EndTime = wsdataformat.DD L2Military(ddlE ndTime.Selected Value)
Select Case EndDate
Case Is < StartDate
Dim strScript As String = "<script
language=Javasc ript>"
strScript += "alert(""" & "INVALID DATE RANGE." & "\n"
& "\n" & "The END DATE cannot occur before the START DATE." & "\n" &
"\n" & "Please re-enter the dates." & """);"
strScript += "</script>"
If (Not Page.IsStartupS criptRegistered ("ErrorScript") )
Then
Page.RegisterSt artupScript("Er rorScript",
strScript)
Exit Sub
End If
Case Is = StartDate
If EndTime < startTime Then
Dim strScript As String = "<script
language=Javasc ript>"
strScript += "alert(""" & "INVALID TIMES." & "\n"
& "\n" & "The END TIME cannot occur before the START TIME." & "\n" &
"\n" & "Please re-enter the TIMES." & """);"
strScript += "</script>"
If (Not
Page.IsStartupS criptRegistered ("ErrorScript") ) Then
Page.RegisterSt artupScript("Er rorScript",
strScript)
End If
Exit Sub
End If
Submit_Validate d()
Case Is > StartDate
Submit_Validate d()
End Select
End Sub
Any help in regards to this matter would be greatly appreciated.
-Maxwell
****If there is a better way to accomplish either of the tasks
described I would definitely be open to hear about redesign options.
Thanks in advance****
