Partial Class admin_catalogue
    Inherits System.Web.UI.Page

    

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("AdminID") Is Nothing Then
            Response.Redirect("AdminLogin.aspx?sesn=expire")
            Exit Sub
        End If
        If Not IsPostBack Then
            'If Session("AdminID") = Nothing Then
            '    Response.Redirect("AdminLogin.aspx")
            'End If
            Fill_Combo("SELECT     Product_Kid, Product_Name + ' - ' + isnull(Product_Code,'N.A.') + ' - ' + isnull(Product_ModelNo,'N.A.') AS Expr1    FROM Product_Master WHERE     (Product_IsDeleted = N'0') AND (Product_Approved = N'Y') and Product_Kid!='' order by product_name", ddlproduct)

        End If
    End Sub

   
    
  

    Protected Sub ddlproduct_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlproduct.SelectedIndexChanged
        If ddlproduct.SelectedIndex > 0 Then
            Dim productid As String = RemoveLiterals(ddlproduct.SelectedValue)
            btncatalogue.Attributes.Add("onclick", "return openform('" & productid & "');")
        End If

    End Sub
End Class