babs

						Dim optionentries() As String = options.Split(";")

						If optionentries.Length < 2 Then
							' not enough entries
							ddlMailAgain.Items.Add(New ListItem("", ""))
						Else
							Dim loopi As Integer

							For loopi = 0 To optionentries.Length - 2 Step 2
								ddlMailAgain.Items.Add(New ListItem(optionentries(loopi), optionentries(loopi + 1)))
								Response.Write("MailAgain Adding [" & optionentries(loopi) & "][" & optionentries(loopi + 1) & "]<br />")
							Next
						End If

						' now we check to see if our selected value matches any of the list
						Dim mailagainitem As ListItem
						_SelectedMailAgain = "No"
						mailagainitem = ddlMailAgain.Items.FindByText(_SelectedMailAgain)
						Response.Write("SelectedMailAgainPreCheck_Sel = [" & _SelectedMailAgain & "]<br />")
						Response.Write("SelectedMailAgainPreCheckValue = [" & ddlMailAgain.SelectedValue.ToString & "]<br />")
						Response.Write("SelectedMailAgainPreCheckIndex = [" & ddlMailAgain.SelectedIndex.ToString & "]<br />")
						Response.Write("SelectedMailAgainPreCheckItem = [" & ddlMailAgain.SelectedItem.ToString & "]<br />")
						If Not mailagainitem Is Nothing Then
							mailagainitem.Selected = True
						Else
							ddlMailAgain.Items(0).Selected = True
						End If