A Demo for creating and consuming the Webservice in ASP.NET

Public Function GetCSC(Optional ByVal Countryname As String = "", Optional ByVal Statename As String = "") As

    DataSet

    Dim ds As New DataSet()

    conStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=WorldCSC;Data

    Source=WEBMASTER;"

    adconn = New ADO.ADOConnection(constr)

    adconn.Open()

    If countryname = "" Then

        sqlStr = "Select * from Countrymaster"

    Else

        If statename = "" Then

            sqlStr = "select * from Statemaster where countryId = (select countryID from countrymaster where 

            countryname = '" & Trim(countryname) & "')"

        Else

            sqlStr = "select * from citymaster where stateId = (select stateid from statemaster where statename

            = '" & Trim(statename) & "')"

        End If

    End If

    addataset = New ADO.ADODataSetCommand(sqlstr, adconn)

    If Countryname = "" Then

        addataset.FillDataSet(ds, "Countrymaster")

    Else

        If statename = "" Then

            addataset.FillDataSet(ds, "StateMaster")

        Else

            addataset.FillDataSet(ds, "CityMaster")

        End If

    End If

    GetCSC = ds