ASP.NET

Parser Error Message: It is an error to use a section registered as allowDefinition='MachineToApplication' beyond application level.  This error can be caused by a virtual directory not being configured as an application in IIS.<br />
<br />
Source Error: <br />
<br />
<br />
Line 70:   </system.webServer><br />
Line 71:   <system.web><br />
Line 72:     <machineKey validationKey="59A121FFDC2D70BE6D724AF408F28842ADD3AAE4" decryptionKey="1701E06AEE1C19DBF7033856F0B6B8845788802AEC00EA83" decryption="3DES" validation="SHA1" /><br />
Line 73:     <!-- HttpModules for Common Functionality --><br />
Line 74:     <httpModules>

Dim id As Integer = Request.QueryString("ui")
        Dim cmd2 As String = ("Select Specification from DefineSpecification where CategoryID=" + id.ToString())
        Dim rdr2 As IDataReader = db.ExecuteReader(CommandType.Text, cmd2)
        Dim conn As New SqlConnection
        Dim cmd As New SqlCommand("Select Count(*) from DefineSpecification Where CategoryID=" + id.ToString(), conn)
        conn.ConnectionString = ConfigurationManager.ConnectionStrings("See2Buy").ConnectionString
        conn.Open()
        Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar())
        While rdr2.Read
            Dim lbl = New Label()
            lbl.Width = "140"
            lbl.Text = rdr2.Item("Specification")
            Panel4.Controls.Add(lbl)
            For counter2 As Integer = 1 To count
                Dim txt = New TextBox()
                txt.Width = "140"
                txt.ID = "TextBoxID" + counter2.ToString
                Panel4.Controls.Add(txt)
                Dim txt1 As TextBox = CType(Panel4.FindControl("TextBoxID" + counter2.ToString()), TextBox)
                Dim txt2 = CStr(txt1.Text)
                Dim cmd3 As String = "Insert into Specification(SpecificationHeading,SpecificationDescription)Values('" + lbl.Text + "','" + txt2 + "')"
                Dim dbcmd As DbCommand = db.GetSqlStringCommand(cmd3)
                db.ExecuteNonQuery(dbcmd)
            Next
        End While

protected void GridView1_RowUpdating(object sender, GridViewUpdateEventArgs e)
           {
               cmd.CommandText = "UPDATE CouponTransaction SET CouponTypeID=@coupon_id, TransactionDate=@date, TransactionTypeID=@transaction_type,Description=@description,CafeMenu=@menu,SerialStart=@start, SerialEnd=@end,Price=@price WHERE RecordID=@record_id";
               cmd.Parameters.Add("@coupon_id", SqlDbType.TinyInt).Value = ((TextBox)GridView1.Rows[e.RowIndex].Cells[2].Controls[0]).Text;
               cmd.Parameters.Add("@record_id", SqlDbType.TinyInt).Value = Convert.ToInt32(GridView1.DataKeys[e.RowIndex]["record_id"]);
               cmd.Connection = cnx ;
               cnx.Open();
               cmd.ExecuteNonQuery();
               cnx.Close();
               GridView1.EditIndex = -1;
               bindGridView();

           }