4pm: edit letbynet ams for support Google Ad manager

            Dim dd As Array = list_ad.ToArray()

            Dim strArray As System.Text.StringBuilder = New System.Text.StringBuilder
            If Not dd Is Nothing Then
                For Each sItem As String In dd
                    strArray.Append(sItem & ",")
                Next
            End If
            If strArray.Length <> 0 Then strArray.Remove(strArray.Length - 1, 1)
            If strArray.Length <> 0 Then strArray.Insert(0, "(", 1)
            If strArray.Length <> 0 Then strArray.Append(")")


            Dim sql1 As String = "select code_ams from Ams_Position where id_ams_position in  " & strArray.ToString() & "  order by NEWID()"

            Dim ds As DataSet = all(sql1)
            Dim n = 0
            position0.Text = ds.Tables(0).Rows(0)("code_ams").ToString
            position1.Text = ds.Tables(0).Rows(1)("code_ams").ToString
            position2.Text = ds.Tables(0).Rows(2)("code_ams").ToString
            position3.Text = ds.Tables(0).Rows(3)("code_ams").ToString
            position4.Text = ds.Tables(0).Rows(4)("code_ams").ToString
            position5.Text = ds.Tables(0).Rows(5)("code_ams").ToString
            position6.Text = ds.Tables(0).Rows(6)("code_ams").ToString
            position7.Text = ds.Tables(0).Rows(7)("code_ams").ToString
            position8.Text = ds.Tables(0).Rows(8)("code_ams").ToString
            position9.Text = ds.Tables(0).Rows(9)("code_ams").ToString