Make your Classic ASP code work like in ASP.NET

Drop Down Example

<!--#Include File = "..\WebControl.asp"        -->
<!--#Include File = "..\Server_LinkButton.asp" -->
<!--#Include File = "..\Server_CheckBox.asp" -->
<!--#Include File = "..\Server_DropDown.asp" -->
<!--#Include File = "..\Server_Label.asp"    -->
<!--#Include File = "DBWrapper.asp"    -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>DropDown Example</TITLE>
<LINK rel="stylesheet" type="text/css" href="Samples.css">
</HEAD>
<BODY>
<!--#Include File = "Home.asp"        -->
<%
    Call Main()
%>   
<Span Class="Caption">DROPDOWN EXAMPLES</Span>
<!--#Include File = "..\FormStart.asp"        -->
    <%lblMessage%><HR>
    <%chkHideShow%> | <%chkAutoPostBack%> | <%chkListBox%><HR>
    <%cboDropDown%>
    <HR>
    <%cmdAdd%> | <%cmdRemove%>
   
<!--#Include File = "..\FormEnd.asp"        -->
</BODY>
</HTML>
<%  'This would normaly go in a another page, but for the sake of simplicity and to minimize the number of pages
    'I'm including code behind stuff here...
    Dim lblMessage
    Dim cmdAdd
    Dim cmdRemove   
    Dim chkHideShow
    Dim chkAutoPostBack
    Dim chkListBox
    Dim cboDropDown
   
    Page.DebugEnabled = False
   
    Public Function Page_Init()
        Set lblMessage = New_ServerLabel("lblMessage")
        Set cmdAdd = New_ServerLinkButton("cmdAdd")
        Set cmdRemove = New_ServerLinkButton("cmdRemove")                       
        Set chkHideShow = New_ServerCheckBox("chkHideShow")
        Set chkAutoPostBack = New_ServerCheckBox("chkAutoPostBack")
        Set chkListBox= New_ServerCheckBox("chkListBox")
        Set cboDropDown = New_ServerDropDown("cboDropDown")
    End Function
    Public Function Page_Controls_Init()                       
        cmdAdd.Text = "Add"
        cmdRemove.Text = "Remove"
        lblMessage.Control.Style = "border:1px solid blue;background-color:#EEEEEE;width:100%;font-size:8pt"       
        lblMessage.Text = "This is an Example"
        chkHideShow.Caption = "Hide/Show List"
        chkHideShow.AutoPostBack = True
        chkAutoPostBack.Caption = "DropDown AutoPostBack"
        chkAutoPostBack.AutoPostBack=True
        chkListBox.Caption = "Make it a list box"
        chkListBox.AutoPostBack = True
       
        cboDropDown.DataTextField = "TerritoryDescription"
        cboDropDown.DataValueField = "TerritoryID"
        Set cboDropDown.DataSource = GetRecordset("SELECT TerritoryID,TerritoryDescription FROM Territories ORDER BY 2")       
        cboDropDown.DataBind() 'Loads the items collection (that will stay in the viewstate)...
        Set cboDropDown.DataSource = Nothing 'Clear
        cboDropDown.Caption = "Territory:"
        cboDropDown.CaptionCssClass = "InputCaption"
               
    End Function
   
    Public Function Page_PreRender()
        Dim x,mx
        Dim msg
        Set msg = New StringBuilder
        msg.Append "<B>Selected Value=</B>" & cboDropDown.Items.GetSelectedText  &  "<BR>"
        msg.Append "<B>Selected Text=</B>" & cboDropDown.Items.GetSelectedValue  &  "<BR>"
        msg.Append "<HR>"
        mx = cboDropDown.Items.Count -1       
        lblMessage.Text  = msg.ToString()       
    End Function

    Public Function chkHideShow_Click()
        cboDropDown.Control.Visible = Not cboDropDown.Control.Visible
    End Function
    Public Function chkAutoPostBack_Click()
        cboDropDown.AutoPostBack = chkAutoPostBack.Checked
    End Function
    Public Function cmdAdd_OnClick()
        cboDropDown.Items.Add cboDropDown.Items.Count,cboDropDown.Items.Count,False
    End Function
    Public Function cmdRemove_OnClick()
        cboDropDown.Items.Remove cboDropDown.Items.Count-1
    End Function
    Public Function chkListBox_Click()
        if chkListBox.Checked Then
            cboDropDown.Rows = 10
            cboDropDown.Multiple = True
            cboDropDown.Items.Mode = 2
        Else
            cboDropDown.Rows = 1
            cboDropDown.Multiple = False
            cboDropDown.Items.Mode = 1
        End If
        'cboDropDown.Mode =
    End Function   
   
%>

You might also like...

Comments

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“An expert is a man who has made all the mistakes that can be made in a very narrow field” - Niels Bohr