How do you pass values from a sub routine to another page?

I'm using a calander that when a certain date is clicked, it will get the date from the sub routine and pass it to another page to be evaluated.

Once this value is passed to the other page, it will be compared against the database to see if the date exist in the database. If it does, it will display the news and if it doesn't exist it will display a page stating "No News Found!".

How would I pass this variable in .Net?

Why use another page ?

To pass the values to another page you would either have to use the get method and attach the parameters to the url or use the post method or session the parameters.

You could also cache the parameter but that seems like overkill to me.

How do you want this to work?

1. select a date on a page and redirect to another page?
-OR-
2. have a pop up window display a calendar and refresh data on the parent window?

1. on the SelectedDateChanged event do response.redirect("nextpage.aspx?d=" & myCalendar.SelectedDate.ToShortDateString). Then on nextpage.aspx in the page load event
Dim D as Date = cDate(Request.QueryString("d"))

2. on the main form place a link to open the popup window
<a href="javascript:window.open('calendar.aspx')"></a>. google javascript: window.open to find addtional options when opening a new window. also put a hidden text box on the form <input type=hidden id=txtHide runat=server />

on the SelectedDateChanged event put the following code

VB Code:

If calDate.SelectedDates.Count = 1 Then
            Dim script As New System.Text.StringBuilder
 
            script.Append("<script language='javascript'>")
            script.Append("window.opener.document.forms[0].txtHide.value='" & calDate.SelectedDate.ToShortDateString & "';")
            script.Append("window.opener.document.forms[0].submit();")
            script.Append("window.close();")
            script.Append("</script>")
            Page.RegisterStartupScript("SetDate", script.ToString)
End If

then on your page load event of the parent form:

VB Code:

if not page.ispostback then
    'first time page loads
else
    if txtHide.Value <> "" Then
        Try 
            Dim D as Date = cDate(txtHide.Value)
        Catch
            'value not a date
        End Try
        'query database for records to display
    end if
end if