Dim wsPri As New riu.wsPrice

        Dim siPri As New riu.siPrice

        Dim soPri As New riu.soPrice

        Dim dsPri() As riu.soPriceDataSet

        

        siPri.PageIndex = 0                     'ดูข้อมูลหน้าที่ ข้อมูลหน้าแรกจะเท่ากับ 0

        siPri.PageSize = 20                     'จำนวนข้อมูลต่อหน้า

        siPri.UserName = "xxxx"                 'รหัสผู้ใช้งานของ RIU หากยังไม่มีให้ Register ก่อน

        siPri.Password = "xxxx"                 'รหัสผ่านของ RIU

        siPri.RubberMarketID = "1,2,3,4"        'ใส่ค่ารหัสตลาดยางโดยคั่นด้วย ","

        siPri.RubberTypeID = "1,2,3"            'ใส่ค่ารหัสประเภทยางโดยคั่นด้วย ","

        siPri.PriceDate_Begin = "2013-03-01"    'ใส่ค่าวันที่ในรูปแบบ "yyyy-mm-dd"

        siPri.PriceDate_End = "2013-03-31"      'ใส่ค่าวันที่ในรูปแบบ "yyyy-mm-dd"

        soPri = wsPri.EnquiryPrice_Thai(siPri)

        Response.Write("หน้าที่ " & (siPri.PageIndex + 1).ToString & "/" & soPri.PageCount.ToString & "<br />")

        If soPri.IsAuthorize = 1 Then

            If soPri.RecordCount > 0 Then

                dsPri = soPri.PriceDataSet()

                For Each iPri As riu.soPriceDataSet In dsPri

                    Response.Write(iPri.RecordNo & " " & _

                                   iPri.RubberMarketName & " " & _

                                   iPri.RubberTypeName & " " & _

                                   iPri.PriceDate & " " _

                                   & iPri.PriceBaht & "<br />")

                Next

            End If

        Else

            Response.Write(soPri.ReasonNotAllow)

        End If

        riu.wsPrice wsPri = new riu.wsPrice();

        riu.siPrice siPri = new riu.siPrice();

        riu.soPrice soPri = new riu.soPrice();

        riu.soPriceDataSet[] dsPri;

        siPri.PageIndex = 0;                        //ดูข้อมูลหน้าที่ ข้อมูลหน้าแรกจะเท่ากับ 0

        siPri.PageSize = 20;                        //จำนวนข้อมูลต่อหน้า

        siPri.UserName = "xxxxxxx";               //รหัสผู้ใช้งานของ RIU หากยังไม่มีให้ Register ก่อน

        siPri.Password = "xxxxxxxx";                //รหัสผ่านของ RIU

        siPri.RubberMarketID = "1,2,3,4";           //ใส่ค่ารหัสตลาดยางโดยคั่นด้วย ","

        siPri.RubberTypeID = "1,2,3";               //ใส่ค่ารหัสประเภทยางโดยคั่นด้วย ","

        siPri.PriceDate_Begin = "2013-03-01";       //ใส่ค่าวันที่ในรูปแบบ "yyyy-mm-dd"

        siPri.PriceDate_End = "2013-03-31";         //ใส่ค่าวันที่ในรูปแบบ "yyyy-mm-dd"

        soPri = wsPri.EnquiryPrice_Thai(siPri);

        Response.Write("หน้าที่ " + (siPri.PageIndex + 1).ToString() + "/" + soPri.PageCount.ToString() + "<br />");

        if ((soPri.IsAuthorize == 1))

        {

            if ((soPri.RecordCount > 0))

            {

                dsPri = soPri.PriceDataSet;

                foreach (riu.soPriceDataSet iPri in dsPri)

                {

                    Response.Write(iPri.RecordNo + " "

                                    + iPri.RubberMarketName + " "

                                    + iPri.RubberTypeName + " "

                                    + iPri.PriceDate + " "

                                    + iPri.PriceBaht + "<br />");

                }

            }

        }

        else

        {

            Response.Write(soPri.ReasonNotAllow);

        }