javascript popup conflict

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Caesar Augustus (maxrawson_at_yahoo.com)
Date: 12/02/04 

Date: 2 Dec 2004 15:19:50 -0800

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="javascript:calendar_window=window.open('/advtravel/calendar.aspx?formname=frmNewTrvlReq.txtStartDt','calendar_window','width=230,height=230');calendar_window.focus()"><IMG
height="16" alt="Choose A Log Date" src="images/calendar.gif"
width="18" align="absMiddle" border="0"></A>
</SPAN>

CALENDAR.ASPX HTML:

<HTML>
  <HEAD>
    <title>Select a date</title>
    <script runat="server">
    Private Sub cntCalendar_SelectionChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cntCalendar.SelectionChanged

        Dim strjscript As String = "<script language=""javascript"">"
        strjscript = strjscript & "window.opener." &
HttpContext.Current.Request.QueryString("formname") & ".value = '" &
cntCalendar.SelectedDate & "';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="style***">
  </HEAD>
    <BODY bgcolor="silver">
      <form id="frmCalendar" runat="server">
        <cc1:roundedcorners id="RoundedCorners1" runat="server"
Width="190px" BorderColor="Navy" BorderStyle="Solid" BorderWidth="2px"
CornerHeight="20px" CornerWidth="20px" Height="190px"
BackColor="WhiteSmoke">
          <TABLE cellSpacing="0" cellPadding="0" align="center">
            <TR>
              <TD height="13">
                <asp:dropdownlist id="drpCalMonth" Runat="Server" Width="100px"
AutoPostBack="True" OnSelectedIndexChanged="Set_Calendar"
CssClass="calTitle"></asp:dropdownlist>
                <asp:dropdownlist id="drpCalYear" Runat="Server"
Width="60px" AutoPostBack="True" OnSelectedIndexChanged="Set_Calendar"
CssClass="calTitle"></asp:dropdownlist>
              </TD>
            </TR>
            <TR>
              <TD>
                <asp:calendar id="cntCalendar" Runat="Server" Width="100%"
CssClass="calbody" DayStyle-BackColor="LightYellow"
OtherMonthDayStyle-BackColor="White"
OnSelectionChanged="cntCalendar_SelectionChanged" ShowTitle="True"
ondayrender="Calendar_dayrender"></asp:calendar>
              </TD>
            </TR>
          </TABLE>
        </cc1:roundedcorners>
      </form>
    </BODY>
</HTML>

SERVER-SIDE DATA VALIDATION CODE :

Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnSubmit.Click

        StartDate = txtStartDt.Text
        EndDate = txtEndDt.Text
        startTime = wsdataformat.DDL2Military(ddlStartTime.SelectedValue)
        EndTime = wsdataformat.DDL2Military(ddlEndTime.SelectedValue)

        Select Case EndDate

            Case Is < StartDate
                Dim strScript As String = "<script
language=Javascript>"
                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.IsStartupScriptRegistered("ErrorScript"))
Then
                    Page.RegisterStartupScript("ErrorScript",
strScript)
                    Exit Sub
                End If

            Case Is = StartDate
                If EndTime < startTime Then
                    Dim strScript As String = "<script
language=Javascript>"
                    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.IsStartupScriptRegistered("ErrorScript")) Then
                        Page.RegisterStartupScript("ErrorScript",
strScript)
                    End If
                    Exit Sub
                End If
                Submit_Validated()

            Case Is > StartDate

                Submit_Validated()

        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****

Quantcast