ASP.NET

But in the web.config this is at line 46:

    <authentication mode="Windows" /> 

	<!--  AUTHORIZATION 
          This section sets the authorization policies of the application. You can allow or deny access
          to application resources by user or role. Wildcards: "*" mean everyone, "?" means anonymous 
          (unauthenticated) users.
    -->

    <authorization>

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
    FormsAuthentication.SignOut()
End Sub

<br />
Sub Edit_Command(ByVal sender As Object, ByVal e As DataListCommandEventArgs) Handles DataList.EditCommand<br />
<br />
        DataList.EditItemIndex = CType(e.Item.ItemIndex, Integer)<br />
<br />
        Dim strDate As String = ""<br />
        Dim strAssignments As String = ""<br />
        Dim strSchool As String = ""<br />
        Dim strProgramme As String = ""<br />
        Dim strSubject As String = ""<br />
        Dim strCity As String = ""<br />
        Dim strState As String = ""<br />
        Dim strReason As String = ""<br />
<br />
        Dim reader As SqlDataReader<br />
        Dim cmd As New SqlCommand("SELECT * FROM tblVolDeclinedMissedCanceledAssignments WHERE VolunteerId=" & VolunteerId() & " AND Id=" & e.CommandArgument, cn)<br />
        cmd.CommandType = Data.CommandType.Text<br />
<br />
        Try<br />
            cn.Open()<br />
            reader = cmd.ExecuteReader()<br />
<br />
            While reader.Read<br />
                strDate = IIf(IsDBNull(reader("Date")), "", reader("Date"))<br />
                strAssignments = IIf(IsDBNull(reader("Assignment")), "", reader("Assignment"))<br />
                strSchool = IIf(IsDBNull(reader("SchoolVenue")), "", reader("SchoolVenue"))<br />
                strProgramme = IIf(IsDBNull(reader("Programme")), "", reader("Programme"))<br />
                strSubject = IIf(IsDBNull(reader("Subject")), "", reader("Subject"))<br />
                strCity = IIf(IsDBNull(reader("City")), "", reader("City"))<br />
                strState = IIf(IsDBNull(reader("StateProvince")), "", reader("StateProvince"))<br />
                strReason = IIf(IsDBNull(reader("Reason")), "", reader("Reason"))<br />
            End While<br />
<br />
        Catch ex As Exception<br />
            Throw New ApplicationException(ex.Message)<br />
        Finally<br />
            cn.Close()<br />
        End Try<br />
<br />
        CType(e.Item.FindControl("rdpEditDate"), Telerik.WebControls.RadDatePicker).SelectedDate = strDate<br />
        CType(e.Item.FindControl("ddlEditAssignments"), DropDownList).SelectedValue = strAssignments<br />
        CType(e.Item.FindControl("txtEditSchoolVenue"), TextBox).Text = strSchool<br />
        CType(e.Item.FindControl("ddlEditProgramme"), DropDownList).SelectedValue = strProgramme<br />
        CType(e.Item.FindControl("ddlEditSubject"), DropDownList).SelectedValue = strSubject<br />
        CType(e.Item.FindControl("txtEditCity"), TextBox).Text = strCity<br />
        CType(e.Item.FindControl("ddlEditStateProvince"), DropDownList).SelectedValue = strState<br />
        CType(e.Item.FindControl("txtEditReason"), TextBox).Text = strReason<br />
        'Me.ddlEditAssignments.Items.FindByText(reader("Assignment")).Selected = True<br />
<br />
        LoadDataMSCAData()<br />
    End Sub<br />

<br />
Protected Sub DataList_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList.UpdateCommand<br />
<br />
        Dim arg As String = e.CommandArgument<br />
<br />
        Dim strDate As String = CType(e.Item.FindControl("rdpEditDate"), Telerik.WebControls.RadDatePicker).SelectedDate.ToString<br />
        Dim strAssignment As String = CType(e.Item.FindControl("ddlEditAssignments"), DropDownList).SelectedValue<br />
        Dim strSchoolVenue As String = CType(e.Item.FindControl("txtEditSchoolVenue"), TextBox).Text<br />
        Dim strProgramme As String = CType(e.Item.FindControl("ddlEditProgramme"), DropDownList).SelectedValue<br />
        Dim strSubject As String = CType(e.Item.FindControl("ddlEditSubject"), DropDownList).SelectedValue<br />
        Dim strCity As String = CType(e.Item.FindControl("txtEditCity"), TextBox).Text<br />
        Dim strStateProvince As String = CType(e.Item.FindControl("ddlEditStateProvince"), DropDownList).SelectedValue<br />
        Dim strReason As String = CType(e.Item.FindControl("txtEditReason"), TextBox).Text<br />
<br />
        Dim sql As String<br />
<br />
        Try<br />
            sql = "UPDATE tblVolDeclinedMissedCanceledAssignments " & _<br />
                  "SET Date=@Date, Assignment=@Assignment, SchoolVenue=@SchoolVenue, Programme=@Programme, Subject=@Subject, City=@City, StateProvince=@StateProvince, Reason=@Reason " & _<br />
                  "WHERE VolunteerId=" & Me.VolunteerId & " AND Id=" & e.CommandArgument<br />
<br />
            Dim cmd As New SqlCommand(sql, cn)<br />
            cmd.Parameters.AddWithValue("@Date", strDate)<br />
            cmd.Parameters.AddWithValue("@Assignment", strAssignment)<br />
            cmd.Parameters.AddWithValue("@SchoolVenue", strSchoolVenue)<br />
            cmd.Parameters.AddWithValue("@Programme", strProgramme)<br />
            cmd.Parameters.AddWithValue("@Subject", strSubject)<br />
            cmd.Parameters.AddWithValue("@City", strCity)<br />
            cmd.Parameters.AddWithValue("@StateProvince", strStateProvince)<br />
            cmd.Parameters.AddWithValue("@Reason", strReason)<br />
            cn.Open()<br />
<br />
            cmd.ExecuteNonQuery()<br />
<br />
        Catch ex As Exception<br />
            Throw New Exception<br />
        Finally<br />
            cn.Close()<br />
        End Try<br />
<br />
        DataList.EditItemIndex = -1<br />
        LoadDataMSCAData()<br />
<br />
    End Sub<br />

<br />
if(yes)<br />
    how ?<br />
else<br />
   Any Idea !!