Dim pgen As New pegasusgen
    Protected dt_courses As New cw
    Dim dbobj As New PegasusDBAL.DBAL(pgen.connection_string)
    Dim dbqry(2) As String
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        dbqry(0) = "select course_id,course_title,course_desc from course where course_id='{0}'"
        dbqry(1) = "insert into course(course_id,course_title,course_desc)values('{0}','{1}','{2}') "
        dbqry(2) = "update course set section_id='{0}',course_title='{1}',course_desc='{2}' where course_id='{0}'"

        If pgen.qvar(Request, "action") = "edit" Then
            Dim intcourse_id As Int16 = Request.QueryString("course_id")
            Dim dt_course_out As New DataTable
            dbobj.FillTable(dt_course_out, String.Format(dbqry(2), pgen.dbformat(Request.QueryString("course_id"))))
        ElseIf pgen.qvar(Request, "action") = "" Then
            'dbobj.dbExecScalar(dbqry(1))
            Dim dt_course_add As Int16 = dbobj.dbExecScalar(String.Format(dbqry(1), pgen.fvar(Request, "cw_course_id"), pgen.fvar(Request, "cw_course_title"), pgen.fvar(Request, "cw_course_desc")))
            Response.Redirect("add_edit_courses.aspx?msg=Added successfully", True)


        End If

    End Sub