I have a javascript jump menu that selects the last 12 months from the present, when a user selects a month, e.g May 2005 I want that selection to stay, in Classic ASP you would use Response.Write("Selected"), how do you do it in ASP.Net VB

Here is my code:

<%
Dim month_number as Integer
Dim month_counter as String
Dim year_counter as Integer
Dim theMonthNumber as String
Dim theYearNumber as String

If Request("MonthNumber") = "" Then
     theMonthNumber = Month(Now)
Else
If Request("MonthNumber") = 0 Then
         theMonthNumber = 0
Else
    theMonthNumber = Request("MonthNumber")
End If
End If

If Request("YearNumber") = "" then
  theYearNumber = Year(Now)
else
  theYearNumber = Request("YearNumber")
End if
%>
<%


theYearNumber = Year(Now)

theMonthNumber = Month(Now)
for month_number = 0 to -12 step -1
month_counter = Month(DateAdd("m", month_number, Date()))
year_counter = Year(DateAdd("m", month_number, Date()))

%>

<option value="register.aspx?MonthNumber=<%=month_counter% >&YearNumber=<%=year_counter%>"><%=MonthName(month _counter) & " " & year_counter %></option>
<% Next %>

</select>

If you have an ASP dropdownlist and you programmatically change the selected value on the client, you shouldn't need to do anything to get it to stay. The postback handler of .net will automagically preset the selected item when the postback occurs.

Does this answer your question? Or are you asking how to preset a selected value in a DDL? You've posted classic ASP code so I'm not sure exactly what you are trying to accomplish.

-Peter

I have attempted to .Net the code, the problem now is that the drop down is empty, any help would be appreciated.

<asp:DropDownList id="ddlCompany" runat="server" AutoPostBack="True" />

Sub LoadDropDownMonth()
  If Not IsPostBack Then

    Dim month_number as Integer
    Dim month_counter as String
    Dim year_counter as Integer
    Dim theMonthNumber as String
    Dim theYearNumber as String

    If Request("MonthNumber") = "" Then
     theMonthNumber = Month(Now)
     Else
         If Request("MonthNumber") = 0 Then
             theMonthNumber = 0
         Else
             theMonthNumber = Request("MonthNumber")
         End If
    End If

    If Request("YearNumber") = "" then
        theYearNumber = Year(Now)
    else
        theYearNumber = Request("YearNumber")
    End if

    theYearNumber = Year(Now)
    theMonthNumber = Month(Now)

    for month_number = 0 to -12 step -1
    month_counter = Month(DateAdd("m", month_number, OtherDate))
    year_counter = Year(DateAdd("m", month_number, OtherDate))

    ddlCompany.DataTextField = MonthName(month_counter) & " " & year_counter
    ddlCompany.DataValueField = "register.aspx?MonthNumber=" & month_counter & "&YearNumber=" & year_counter
    ddlCompany.DataBind()

    Next

 End If
End Sub

Since you have not provided a datasource for the DDL, DataBind() will be ineffective. You need to either provide a datasource or manually add the items.

Do a loop similar to what you had before, but use the following:

ddlCompany.Items.Add(New ListItem(...))

The constructor for ListItem will accept two strings, one for the value and one for the text of the item (option) in the DDL. Then you can set the desired item as selected.

-Peter

Thanks, this code populates the ddl fine:

ddlCompany.Items.Add(New ListItem(...))

But how do I populate the value field, at present the value field looks like this, I want to populate the value field with a different values from the text value

<option value="June 2005">June 2005</option>
<option value="May 2005">May 2005</option>
<option value="April 2005">April 2005</option>

Thanks!

ddlCompany.Items.Add(New ListItem(text, value))

-Peter

Thanks again Peter, if anyone would like to use the following code, it works fine. The code creates a drop down list of the previous 12 months. e.g. Text = August 2004, Value = 08

Function OtherDate
    OtherDate = Day(Now) &"/"& Month(Now) &"/"& Year(Now)
End Function

Sub LoadDropDownMonth()
  If Not IsPostBack Then

    Dim month_number as Integer
    Dim month_counter as String
    Dim year_counter as Integer
    Dim theMonthNumber as String
    Dim theYearNumber as String


    theYearNumber = Year(Now)
    theMonthNumber = Month(Now)

    for month_number = 0 to -12 step -1
    month_counter = Month(DateAdd("m", month_number, OtherDate))
    year_counter = Year(DateAdd("m", month_number, OtherDate))

    ddlCompany.Items.Add(New ListItem(MonthName(month_counter) & " " & year_counter, month_counter))

    Next

 End If
End Sub