ASP.NET

Protected Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound
    If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
        Dim questionid As Integer
        questionid = CInt(CType(e.Item.FindControl("Label3"), Label).Text)
        Dim cnn As New SqlConnection(ConfigurationManager.ConnectionStrings("BallotsConnectionString").ConnectionString)
        Dim cmd As New SqlCommand("select CandidateId, CASE WHEN CurrentOfficeHolder='Incumbent' THEN CandidateName + ' ('+ CurrentOfficeHolder + ')' ELSE CandidateName END As CandidateName from Candidates where PositionId=@qid", cnn)
        Dim p1 As New SqlParameter("@qid", questionid)
        cmd.Parameters.Add(p1)
        Dim da As New SqlDataAdapter
        da.SelectCommand = cmd
        Dim ds As New DataSet
        da.Fill(ds, "choices")

        cnn.Open()
        For Each row As DataRow In ds.Tables("choices").Rows
            Dim cmdAns As New SqlCommand("select DISTINCT " & _
                                         "count( IsNull(er.candidateId,0)) OVER (Partition by o.orgName, p.Position, c.candidateName,p.PositionId ) " & _
                                         "as VoteCount, " & _
                                         "CAST(count( IsNull(er.candidateId,0)) OVER (Partition by o.orgName, p.Position, c.candidateName,p.PositionId ) *1./count( IsNull(er.candidateId,0)) OVER (Partition by p.Position)*100 as decimal(6,2)) as Percentage " & _
                                         "from Organizations o inner join Positions p on o.OrgID = p.OrgID inner join Candidates c on p.positionId = c.positionId " & _
                                         "inner join ElectionResults er on c.candidateId = er.candidateId " & _
                                         "WHERE c.candidateid = @cid", cnn)
            Dim pCid As New SqlParameter("@cid", row("candidateid"))
            cmdAns.Parameters.Add(pCid)

            Dim dr = cmdAns.ExecuteReader()
            If dr.HasRows = True Then
                While dr.Read
                    Dim count As Integer = dr(0)
                    Dim pct As String = dr(1)
                    row("CandidateName") = row("CandidateName") & " - " & count & "(" & pct & "%)"
                End While
            End If
            dr.Close()

        Next
        cnn.Close()
        Dim list As BulletedList = e.Item.FindControl("BulletedList1")
        list.DataSource = ds
        list.DataTextField = "CandidateName"
        list.DataBind()
    End If

End Sub

<pre lang="text">

<asp:DropDownList ID="drd1" runat="server" >
                       <asp:ListItem>select the value</asp:ListItem>
                       <asp:ListItem>sample</asp:ListItem>
                       <asp:ListItem>Anothersample</asp:ListItem>
                       <asp:ListItem>one more sample</asp:ListItem>
                       <asp:ListItem>none</asp:ListItem>
                   </asp:DropDownList