Add items to menu at runtime,display message,Web service to search item in textbox etc in asp.net

Add items to menu at runtime using asp.net

 Dim str, str1 As String  
 str = "select distinct PRODUCT_CATEGORY,PARENT_CATEGORY_CD,PRODUCT_CATEGORY_CD from PRODUCT_CATEGORY where PARENT_CATEGORY_CD is NULL"  
 Dim adp As New SqlDataAdapter(str, cn.openDb())  
 adp.Fill(ds)  
 cn.closeDb()  
 If (ds.Tables(0).Rows.Count > 0) Then  
 For Each dr In ds.Tables(0).Rows  
 Dim mu As MenuItem = New MenuItem  
 mu.Text = dr("PRODUCT_CATEGORY").ToString  
 mu.Value = dr("PRODUCT_CATEGORY_CD").ToString  
 BrowsebyCategory.Items.Add(mu)  
 Next  
 End If  

This code is to Add items to menu at runtime using asp.net code you can use code to backend side


Simple Display message using asp.net

 Simple Display message using asp.net. Just use following code.  
 Dim myStringVariable As String = String.Empty  
 myStringVariable = "Message"  
 ClientScript.RegisterStartupScript(Me.[GetType](), "myalert", "alert('" & myStringVariable & "');", True)  

Web service to search item in textbox asp.net

first write webservice code then design your textbox the source code will be

 asp:TextBox ID="TextBox2" runat="server" CssClass="textboxchange" Width="35%"  
 Columns="1" Wrap="False" Visible="False" asp:TextBoxdfs  
 cc1:AutoCompleteExtender ID="TextBox2_AutoCompleteExtender" runat="server" MinimumPrefixLength="3"  
 Enabled="True" BehaviorID="" ServiceMethod="GetCountryInfo1"  
 ServicePath="WebService.asmx" TargetControlID="TextBox2"  
 Imports System.Web  
 Imports System.Web.Services  
 Imports System.Web.Services.Protocols  
 Imports System.Data.SqlClient  
 Imports System.Data  
 Imports System.Web.Script.Services  
 Imports System.Collections  
 Imports System.ComponentModel  
 <="http: ?)="" tempuri.org="">_  
 <=wsiprofiles.basicprofile1_1)>_  
 _  
 _  
 Public Class WebService  
 Inherits System.Web.Services.WebService  
 _  
 Public Function GetCountryInfo(ByVal prefixText As String) As String()  
 Dim count As Integer = 10  
 Dim clscmn1 As New clsCommon  
 Dim cn As New clsConnection  
 Dim sql As String  
 ' Dim adp1 As SqlDataAdapter  
 sql = "Select Name from list Where Name like @prefixText"  
 Dim adp1 As New SqlDataAdapter(sql, cn.openDb())  
 adp1.SelectCommand.Parameters.Add("@prefixText", SqlDbType.VarChar, 50).Value = prefixText + "%"  
 Dim dt As New DataTable()  
 adp1.Fill(dt)  
 Dim items(dt.Rows.Count) As String  
 Dim i As Integer = 0  
 Dim dr As DataRow  
 For Each dr In dt.Rows  
 items.SetValue(dr("Author").ToString(), i)  
 i += 1  
 Next dr  
 Return items  
 End Function