0
					1
					2
					3
					4
					5
					Not Rated
				
			
		
		
	





***********************************


    Sub ddlRating_RatingChanged(ByVal sender As Object, ByVal e As EventArgs)


        Dim i
        Dim lbl_RatingId As Label


        For i = 0 To dgRatings.Items.Count() - 1
            If dgRatings.Items(i).Cells(3).Controls(1).UniqueID().ToString = sender.UniqueID().ToString() Then
                lbl_RatingId = CType(dgRatings.Items(i).Cells(0).Controls(1), Label)
                Exit For
            End If
        Next
        Response.Write(lbl_RatingId.Text)
    End Sub