'==============================================================================
Public Function b_old_save_record_REG_REGISTRATION_live()
cDebug "<b><font face='Webdings'>6</font>save_record_REG_REGISTRATION_live()</b>", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
    Dim sCMD, objConn, objCmd, objParam
    '--------------------------------------------------------------------------
    '  Table Name:  REG_REGISTRATION
    '  DB Path:     C:\inetpub\wwwroot\hosting\Gladhill_2.19\_data\db\gladhill_14.1.mdb
    '  Created on:  10/27/2020 3:00:20 PM
    '--------------------------------------------------------------------------

    if request("reg_ID") <> "" then
        '---[ Exsiting record.  Use UPDATE command ]---
       sCMD =   "UPDATE reg_Registration SET reg_Status=@reg_Status, reg_Referral=@reg_Referral, reg_Course_ID=@reg_Course_ID, "&_
                "reg_Course_Title=@reg_Course_Title, reg_Course_Type=@reg_Course_Type, reg_sched_ID=@reg_sched_ID, reg_sched_Loc=@reg_sched_Loc, "&_
                "reg_sched_Info=@reg_sched_Info, reg_sched_StartDate=@reg_sched_StartDate, reg_sched_EndDate=@reg_sched_EndDate, "&_
                "reg_sched_Price=@reg_sched_Price, reg_student_Count=@reg_student_Count, reg_total_Price=@reg_total_Price, "&_
                "reg_Date_Closed=@reg_Date_Closed, reg_items_JSON=@reg_items_JSON, reg_Updated=@reg_Updated "&_
                "WHERE (((reg_Registration.reg_ID)=@reg_ID));"
    else
        '---[ New record!  Use INSERT command ]---
       sCMD =   "INSERT INTO reg_Registration ( reg_Status, reg_Referral, reg_Course_ID, reg_Course_Title, reg_Course_Type, reg_sched_ID, reg_sched_Loc, "&_
                "reg_sched_Info, reg_sched_StartDate, reg_sched_EndDate, reg_sched_Price, reg_student_Count, reg_total_Price, reg_Date_Closed, "&_
                "reg_items_JSON, reg_Updated, reg_Date ) "&_
                "VALUES( @reg_Status, @reg_Referral, @reg_Course_ID, @reg_Course_Title, @reg_Course_Type, @reg_sched_ID, @reg_sched_Loc, @reg_sched_Info, "&_
                "@reg_sched_StartDate, @reg_sched_EndDate, @reg_sched_Price, @reg_student_Count, @reg_total_Price, @reg_Date_Closed, @reg_items_JSON, "&_
                "@reg_Updated, @reg_Date );"
    end if
'cDebug "sCMD",sCMD

    set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open application("DBDriver") & MapPath(application("MainDB"))
  
    Set objCmd = Server.CreateObject("ADODB.Command")
    objCmd.CommandText = sCMD
    objcmd.ActiveConnection = objConn 
    objCmd.CommandType = adCmdText

    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Status",          adBoolean,      adParamInput, 2,           cbool(request("reg_Status")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Referral",        adInteger,      adParamInput, 4,           testIntVal(request("reg_Referral")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Course_ID",       adDouble,       adParamInput, 8,           testIntVal(request("course_ID")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Course_Title",    adVarWChar,     adParamInput, 255,         testStrVal(request("course_Title")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Course_Type",     adVarWChar,     adParamInput, 255,         testStrVal(request("course_Type")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_ID",        adInteger,      adParamInput, 4,           testIntVal(request("course_sched_ID")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_Loc",       adVarWChar,     adParamInput, 255,         testStrVal(request("reg_sched_Loc")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_Info",      adLongVarWChar, adParamInput, 536870910,   testStrVal(request("reg_sched_Info")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_StartDate", adDate,         adParamInput, 8,           testDateVal(request("reg_sched_StartDate")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_EndDate",   adDate,         adParamInput, 8,           testDateVal(request("reg_sched_EndDate")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_Price",     adCurrency,     adParamInput, 8,           testStrVal(request("course_Price")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_student_Count",   adInteger,      adParamInput, 4,           testIntVal(request("studentCount")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_total_Price",     adCurrency,     adParamInput, 8,           testStrVal(request("invoiceTotal")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Date_Closed",     adDate,         adParamInput, 8,           testDateVal(request("reg_Date_Closed")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_items_JSON",      adLongVarWChar, adParamInput, 536870910,   testStrVal(request("reg_items_JSON")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Updated",         adDate,         adParamInput, 8,           now())

    if len(request("reg_ID")) <> 0 then 
        '---[ Existing record. Add the "reg_ID" parameter ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_ID", adInteger, adParamInput, 4, testIntVal(request("reg_ID")))
    else
        '---[ New record. Move any paramaters to here that are for New records only ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Date", adDate, adParamInput, 8, now())

    end if
cDebug "ObjCmd",ObjCmd

'---[ Uncomment the next line after confirming all configurations are valid  ]---
ObjCmd.Execute

    if request("reg_ID")="" then
        '---[ New record!  Get the "reg_ID" of the INSERT'ed record ]-----------
        Dim oRecSet
        set oRecSet = Server.CreateObject("ADODB.Recordset") 

        oRecSet.open "SELECT @@IDENTITY", objConn, adOpenStatic, adLockReadOnly, adCmdText
        oConfig("reg_ID") = oRecSet.Fields(0).value
    else
        '---[ Existing record.  Get "reg_ID" from the request object ]----------
        oConfig("reg_ID") = request("reg_ID")
    end if

    set objCmd = nothing
    set objConn = nothing

cDebug "<b><font face='Webdings'>5</font>save_record_REG_REGISTRATION_live()</b>", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
End Function
'==============================================================================


'==============================================================================
Public Function b_old_save_record_reg_Registration_online()
cDebug "<b><font face='Webdings'>6</font>save_record_reg_Registration_online()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
    Dim sCMD, objConn, objCmd, objParam

    '--------------------------------------------------------------------------
    '  Table Name:  reg_Registration
    '  DB Path:     C:\inetpub\wwwroot\hosting\Gladhill\New\_data\db\gladhill_14.1.mdb
    '  Created on:  4/6/2014 12:40:16 PM
    '--------------------------------------------------------------------------

    if request("reg_ID") <> "" then
        '---[ Exsiting record.  Use UPDATE command ]---
        sCMD = "UPDATE reg_Registration  SET reg_Status=@reg_Status, reg_sched_Price=@reg_sched_Price, "&_
            "reg_student_Count=@reg_student_Count, reg_total_Price=@reg_total_Price, reg_Updated=@reg_Updated "&_
            "WHERE (((reg_Registration .reg_ID)=@reg_ID));"
    else
        '---[ New record!  Use INSERT command ]---
        sCMD =  "INSERT INTO reg_Registration ("&_
            "reg_Date, reg_Status, reg_Course_ID, reg_Course_Title, "&_
            "reg_Course_Type, reg_sched_Price, reg_student_Count, reg_total_Price) "&_
            "VALUES("&_
            "@reg_Date, @reg_Status, @reg_Course_ID, @reg_Course_Title, "&_
            "@reg_Course_Type, @reg_sched_Price, @reg_student_Count, @reg_total_Price);"
    end if
cDebug "sCMD",sCMD

    set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open application("DBDriver") & MapPath(application("MainDB"))
  
    Set objCmd = Server.CreateObject("ADODB.Command")
    objCmd.CommandText = sCMD
    objcmd.ActiveConnection = objConn 
    objCmd.CommandType = adCmdText

    if request("reg_ID") <> "" then
    '---[ Exsiting record.  Use UPDATE command ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Status",        adBoolean,  adParamInput, 2, False)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_Price",   adCurrency, adParamInput, 8, request("course_Price"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_student_Count", adInteger,  adParamInput, 4, request("studentCount"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_total_Price",   adCurrency, adParamInput, 8, request("paymentTotal"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Updated",       adDate,     adParamInput, 8, now())
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_ID",            adInteger,  adParamInput, 4, testIntVal(request("reg_ID")))
    else  
    '---[ New record!  Use INSERT command ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Date",         adDate,      adParamInput, 8,   Now())
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Status",       adBoolean,   adParamInput, 2,   False)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Course_ID",    adDouble,    adParamInput, 8,   request("course_ID"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Course_Title", adVarWChar,  adParamInput, 255, request("course_Title"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Course_Type",  adVarWChar,  adParamInput, 255, request("course_Type"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_Price",  adCurrency,  adParamInput, 8,   request("course_Price"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_student_Count", adInteger,  adParamInput, 4,   request("studentCount"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_total_Price",   adCurrency, adParamInput, 8,   request("paymentTotal"))
    end if
'cDebug "ObjCmd",ObjCmd

    '---[ Uncomment the next line after confirming all configurations are valid  ]---
    ObjCmd.Execute

    if request("reg_ID") <> "" then
        '---[ Exsiting record.  Use UPDATE command ]---
        oConfig("reg_ID") = request("reg_ID")
    else
        '---[ New record!  Get the "reg_ID" of the INSERT'ed record ]-----------
        Dim oRecSet
        set oRecSet = Server.CreateObject("ADODB.Recordset") 
        oRecSet.open "SELECT @@IDENTITY", objConn, adOpenStatic, adLockReadOnly, adCmdText
        oConfig("reg_ID") = oRecSet.Fields(0).value
    end if

    oConfig("reg_Registration_pass") = true

    set objCmd = nothing
    set objConn = nothing

cDebug "<b><font face='Webdings'>5</font>save_record_reg_Registration_online()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
'response.end
End Function
'==============================================================================

'==============================================================================
Public Function OLD_save_record_reg_Registration_live()
cDebug "<b><font face='Webdings'>6</font>save_record_reg_Registration_live()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
    Dim sCMD, objConn, objCmd, objParam

    '--------------------------------------------------------------------------
    '  Table Name:  reg_Registration
    '  DB Path:     C:\inetpub\wwwroot\hosting\Gladhill\New\_data\db\gladhill_14.1.mdb
    '  Created on:  4/6/2014 12:40:16 PM
    '--------------------------------------------------------------------------

    if request("reg_ID") <> "" then
        '---[ Exsiting record.  Use UPDATE command ]---
        sCMD = "UPDATE reg_Registration SET reg_Status=@reg_Status, reg_sched_Price=@reg_sched_Price, "&_
            "reg_student_Count=@reg_student_Count, reg_total_Price=@reg_total_Price, reg_sched_Loc=@reg_sched_Loc, "&_
            "reg_sched_Info=@reg_sched_Info, reg_sched_StartDate=@reg_sched_StartDate, reg_sched_EndDate=@reg_sched_EndDate, "&_
            "reg_Course_Title=@reg_Course_Title, reg_Updated=@reg_Updated "&_
            "WHERE (((reg_Registration.reg_ID)=@reg_ID));"
    else

        '---[ New record!  Use INSERT command ]---
        sCMD =  "INSERT INTO reg_Registration ("&_
                "reg_Date, reg_Status, reg_Course_ID, reg_Course_Title, "&_
                "reg_Course_Type, reg_sched_ID, reg_sched_Loc, reg_sched_Info, reg_sched_StartDate, "&_
                "reg_sched_EndDate, reg_sched_Price, reg_student_Count, reg_total_Price) "&_
                "VALUES("&_
                "@reg_Date, @reg_Status, @reg_Course_ID, @reg_Course_Title, "&_
                "@reg_Course_Type, @reg_sched_ID, @reg_sched_Loc, @reg_sched_Info, @reg_sched_StartDate, "&_
                "@reg_sched_EndDate, @reg_sched_Price, @reg_student_Count, @reg_total_Price);"

        sCMD =  "INSERT INTO reg_Registration ("&_
                "reg_Date, reg_Status, reg_Course_ID, reg_Course_Title, reg_Course_Type, reg_sched_ID, reg_sched_Loc, "&_
                "reg_sched_Info, reg_sched_StartDate, reg_sched_EndDate, reg_sched_Price, reg_student_Count, reg_total_Price, ) "&_
                "VALUES ("&_
                "@reg_Date, @reg_Status, @reg_Course_ID, @reg_Course_Title, @reg_Course_Type, @reg_sched_ID, @reg_sched_Loc, "&_
                "@reg_sched_Info, @reg_sched_StartDate, @reg_sched_EndDate, @reg_sched_Price, @reg_student_Count, @reg_total_Price);"
    end if
cDebug "sCMD",sCMD

    set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open application("DBDriver") & MapPath(application("MainDB"))
  
    Set objCmd = Server.CreateObject("ADODB.Command")
    objCmd.CommandText = sCMD
    objcmd.ActiveConnection = objConn 
    objCmd.CommandType = adCmdText

    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Status",          adBoolean,  adParamInput, 2,    False)
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_Price",     adCurrency, adParamInput, 8,    request("course_Price"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_student_Count",   adInteger,  adParamInput, 4,    request("studentCount"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_total_Price",     adCurrency, adParamInput, 8,    request("paymentTotal"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_Loc",       adVarWChar, adParamInput, 255,  request("reg_sched_Loc"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_Info",      adLongVarWChar, adParamInput,   536870910, request("reg_sched_Info"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_StartDate", adDate,     adParamInput, 8,    request("reg_sched_StartDate"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_EndDate",   adDate,     adParamInput, 8,    request("reg_sched_EndDate"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Course_Title",    adVarWChar, adParamInput, 255,  request("course_Title"))

    if request("reg_ID") <> "" then
        '---[ Exsiting record.  Use UPDATE command ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Updated", adDate,     adParamInput, 8, now())
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_ID",      adInteger,  adParamInput, 4, testIntVal(request("reg_ID")))
    else  
        '---[ New record!  Use INSERT command ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Date",        adDate,     adParamInput, 8,    Now())
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Course_ID",   adDouble,   adParamInput, 8,    request("course_ID"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Course_Type", adVarWChar, adParamInput, 255,  request("course_Type"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_sched_ID",    adInteger,  adParamInput, 4,    request("course_sched_ID"))
    end if
cDebug "ObjCmd",ObjCmd

  '---[ Uncomment the next line after confirming all configurations are valid  ]---
  ObjCmd.Execute
  oConfig("reg_Registration_pass") = true

    if request("reg_ID") <> "" then
        '---[ Exsiting record.  Use UPDATE command ]---
        oConfig("reg_ID") = request("reg_ID")
    else
        '---[ New record!  Get the "reg_ID" of the INSERT'ed record ]-----------
        Dim oRecSet
        set oRecSet = Server.CreateObject("ADODB.Recordset") 
        oRecSet.open "SELECT @@IDENTITY", objConn, adOpenStatic, adLockReadOnly, adCmdText
        oConfig("reg_ID") = oRecSet.Fields(0).value
    end if

    set objCmd = nothing
    set objConn = nothing

cDebug "<b><font face='Webdings'>5</font>save_record_reg_Registration_live()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
'response.end
End Function
'==============================================================================




'==============================================================================
Public Function b_old_save_record_REG_COMPANY()
cDebug "<b><font face='Webdings'>6</font>save_record_REG_COMPANY()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
    Dim sCMD, objConn, objCmd, objParam

    '--------------------------------------------------------------------------
    '  Table Name:  REG_COMPANY
    '  DB Path:     C:\inetpub\wwwroot\hosting\Gladhill\New\_data\db\gladhill_14.1.mdb
    '  Created on:  4/6/2014 1:01:19 PM
    '--------------------------------------------------------------------------

    if request("reg_company_ID")<>"" then
        '---[ Exsiting record.  Use UPDATE command ]---
        sCMD = "UPDATE reg_Company SET reg_company_Name=@reg_company_Name, "&_
                "reg_company_Address=@reg_company_Address, reg_company_City=@reg_company_City, reg_company_State=@reg_company_State, "&_
                "reg_company_Zip=@reg_company_Zip, reg_company_ContactName=@reg_company_ContactName, reg_company_ContactEMail=@reg_company_ContactEMail, "&_
                "reg_company_Phone=@reg_company_Phone "&_
                "WHERE (((reg_Company.reg_company_ID)=@reg_company_ID));"
    else
        '---[ New record!  Use INSERT command ]---
        sCMD =  "INSERT INTO reg_Company ("&_
                "reg_company_Name, reg_company_Address, reg_company_City, "&_
                "reg_company_State, reg_company_Zip, reg_company_ContactName, "&_
                "reg_company_ContactEMail, reg_company_Phone, reg_company_reg_ID) "&_
                "VALUES("&_
                "@reg_company_Name, @reg_company_Address, @reg_company_City, "&_
                "@reg_company_State, @reg_company_Zip, @reg_company_ContactName, "&_
                "@reg_company_ContactEMail, @reg_company_Phone, @reg_company_reg_ID);"
    end if
cDebug "sCMD",sCMD

    set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open application("DBDriver") & MapPath(application("MainDB"))
  
    Set objCmd = Server.CreateObject("ADODB.Command")
    objCmd.CommandText = sCMD
    objcmd.ActiveConnection = objConn 
    objCmd.CommandType = adCmdText


    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_Name",         adVarWChar, adParamInput, 255,  request("reg_company_Name"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_Address",      adVarWChar, adParamInput, 255,  request("reg_company_Address"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_City",         adVarWChar, adParamInput, 255,  request("reg_company_City"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_State",        adVarWChar, adParamInput, 255,  request("reg_company_State"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_Zip",          adVarWChar, adParamInput, 25,   request("reg_company_Zip"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_ContactName",  adVarWChar, adParamInput, 255,  request("reg_company_ContactName"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_ContactEMail", adVarWChar, adParamInput, 255,  request("reg_company_ContactEMail"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_Phone",        adVarWChar, adParamInput, 25,   request("reg_company_Phone"))
        
    if len(request("reg_company_ID")) <> 0 then 
        '---[ Existing record. Add the "reg_company_ID" parameter ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_ID", adInteger, adParamInput, 4, testIntVal(request("reg_company_ID")))
    else
        '---[ New record. Move any paramaters to here that are for New records only ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_company_reg_ID",       adInteger, adParamInput, 4,     oConfig("reg_ID"))
    end if

cDebug "ObjCmd",ObjCmd

    '---[ Uncomment the next line after confirming all configurations are valid  ]---
    ObjCmd.Execute

    if request("reg_company_ID")="" then
        '---[ New record!  Get the "reg_company_ID" of the INSERT'ed record ]-----------
        Dim oRecSet
        set oRecSet = Server.CreateObject("ADODB.Recordset") 

        oRecSet.open "SELECT @@IDENTITY", objConn, adOpenStatic, adLockReadOnly, adCmdText
        oConfig("reg_company_ID") = oRecSet.Fields(0).value
    else
        '---[ Existing record.  Get "reg_company_ID" from the request object ]----------
        oConfig("reg_company_ID") = request("reg_company_ID")
    end if

    set objCmd = nothing
    set objConn = nothing


    cDebug "<b><font face='Webdings'>5</font>save_record_REG_COMPANY()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
    'response.end
End Function
'==============================================================================

'==============================================================================
Public Function b_old_save_record_REG_PAYMENT()
cDebug "<b><font face='Webdings'>6</font>save_record_REG_PAYMENT()</b>", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
    Dim sCMD, objConn, objCmd, objParam
    '--------------------------------------------------------------------------
    '  Table Name:  REG_PAYMENT
    '  DB Path:     C:\inetpub\wwwroot\hosting\Gladhill_2.19\_data\db\gladhill_14.1.mdb
    '  Created on:  10/27/2020 10:19:52 AM
    '--------------------------------------------------------------------------

    if request("reg_payment_ID") <> "" then
        sCMD =  "UPDATE reg_Payment SET "&_
                "reg_payment_Paytype=@reg_payment_Paytype, reg_payment_po_Num=@reg_payment_po_Num, reg_payment_Total=@reg_payment_Total, "&_
                "reg_payment_Process=@reg_payment_Process, reg_payment_Recieved=@reg_payment_Recieved, reg_payment_Confirmation=@reg_payment_Confirmation, "&_
                "reg_intent=@reg_intent, reg_Discount=@reg_Discount, reg_InvoiceTotal=@reg_InvoiceTotal, reg_paymentToken=@reg_paymentToken, "&_
                "reg_payerID=@reg_payerID, reg_paymentID=@reg_paymentID, reg_PayPal_data=@reg_PayPal_data, reg_payment_cc_Num=@reg_payment_cc_Num, "&_
                "reg_payment_cc_Month=@reg_payment_cc_Month, reg_payment_cc_Year=@reg_payment_cc_Year, reg_payment_cc_Zip=@reg_payment_cc_Zip, "&_
                "reg_payment_cc_Name=@reg_payment_cc_Name, reg_payment_cc_CVV=@reg_payment_cc_CVV "&_
                "WHERE (((reg_Payment.reg_payment_ID)=@reg_payment_ID));"
    else
        '---[ New record!  Use INSERT command ]---
        sCMD =  "INSERT INTO reg_Payment ( "&_
                "reg_payment_Paytype, reg_payment_po_Num, reg_payment_Total, reg_payment_Process, reg_payment_Recieved, reg_payment_Confirmation, reg_intent, reg_Discount, reg_InvoiceTotal, reg_paymentToken, "&_
                "reg_payerID, reg_paymentID, reg_PayPal_data, "&_
                "reg_payment_cc_Num, reg_payment_cc_Month, reg_payment_cc_Year, reg_payment_cc_Zip, reg_payment_cc_CVV, reg_payment_cc_Name, reg_payment_reg_ID "&_
                ") VALUES ("&_
                "@reg_payment_Paytype, @reg_payment_po_Num, @reg_payment_Total, @reg_payment_Process, @reg_payment_Recieved, @reg_payment_Confirmation, @reg_intent, @reg_Discount, @reg_InvoiceTotal, @reg_paymentToken, "&_
                "@reg_payerID, @reg_paymentID, @reg_PayPal_data, "&_
                "@reg_payment_cc_Num, @reg_payment_cc_Month, @reg_payment_cc_Year, @reg_payment_cc_Zip, @reg_payment_cc_CVV, @reg_payment_cc_Name, @reg_payment_reg_ID "&_
                ");"
    end if
'cDebug "sCMD",sCMD

    set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open application("DBDriver") & MapPath(application("MainDB"))
  
    Set objCmd = Server.CreateObject("ADODB.Command")
    objCmd.CommandText = sCMD
    objcmd.ActiveConnection = objConn 
    objCmd.CommandType = adCmdText

    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Paytype",        adVarWChar,     adParamInput, 255,  testStrVal(request("reg_payment_type")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_po_Num",         adVarWChar,     adParamInput, 255,  testStrVal(request("reg_payment_po_Num")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Total",          adCurrency,     adParamInput, 8,    request("invoiceTotal"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Process",        adVarWChar,     adParamInput, 255,  testStrVal(request("reg_payment_Process")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Recieved",       adBoolean,      adParamInput, 2,    false)
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Confirmation",   adVarWChar,     adParamInput, 255,  "")
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_intent",                 adVarWChar,     adParamInput, 255,  testStrVal(request("reg_intent")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Discount",               adDouble,       adParamInput, 8,    testIntVal(request("unitDiscount")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_InvoiceTotal",           adCurrency,     adParamInput, 8,    request("invoiceTotal"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_paymentToken",           adVarWChar,     adParamInput, 255,  testStrVal(request("reg_paymentToken")))

    if request("reg_payment_Process") = "type-paypal" then
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payerID",                adVarWChar,     adParamInput, 255,       testStrVal(request("details.payer.payer_id")))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_paymentID",              adVarWChar,     adParamInput, 255,       testStrVal(request("data.orderID")))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_PayPal_data",            adLongVarWChar, adParamInput, 536870910, testStrVal(request("paypalDetails")))
    else
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payerID",                adVarWChar,     adParamInput, 255,       null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_paymentID",              adVarWChar,     adParamInput, 255,       null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_PayPal_data",            adLongVarWChar, adParamInput, 536870910, null)
    end if

    if ucase(request("reg_payment_Process")) = "TYPE-CC" then
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Num",         adVarWChar,     adParamInput, 255,  testStrVal(request("reg_payment_cc_Num")))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Month",       adInteger,      adParamInput, 4,    testIntVal(request("reg_payment_cc_Month")))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Year",        adInteger,      adParamInput, 4,    testIntVal(request("reg_payment_cc_Year")))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Zip",         adVarWChar,     adParamInput, 255,  testStrVal(request("reg_payment_cc_Zip")))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Name",        adVarWChar,     adParamInput, 255,  testStrVal(request("reg_payment_cc_Name")))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_CVV",         adVarWChar,     adParamInput, 255,  testStrVal(request("reg_payment_cc_CVV")))
    else
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Num",         adVarWChar,     adParamInput, 255,  null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Month",       adInteger,      adParamInput, 4,    null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Year",        adInteger,      adParamInput, 4,    null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Zip",         adVarWChar,     adParamInput, 255,  null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Name",        adVarWChar,     adParamInput, 255,  null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_CVV",         adVarWChar,     adParamInput, 255,  null)
    end if

    if len(request("reg_payment_ID")) <> 0 then 
        '---[ Existing record. Add the "reg_payment_ID" parameter ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_ID", adInteger, adParamInput, 4, testIntVal(request("reg_payment_ID")))
    else
        '---[ New record. Move any paramaters to here that are for New records only ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_reg_ID",         adInteger,      adParamInput, 4,    oConfig("reg_ID"))

    end if
cDebug "ObjCmd",ObjCmd

'---[ Uncomment the next line after confirming all configurations are valid  ]---
ObjCmd.Execute

    if request("reg_payment_ID")="" then
        '---[ New record!  Get the "reg_payment_ID" of the INSERT'ed record ]-----------
        Dim oRecSet
        set oRecSet = Server.CreateObject("ADODB.Recordset") 

        oRecSet.open "SELECT @@IDENTITY", objConn, adOpenStatic, adLockReadOnly, adCmdText
        oConfig("reg_payment_ID") = oRecSet.Fields(0).value
    else
        '---[ Existing record.  Get "reg_payment_ID" from the request object ]----------
        oConfig("reg_payment_ID") = request("reg_payment_ID")
    end if
    oConfig("reg_payment_Process") = request("reg_payment_Process")

    set objCmd = nothing
    set objConn = nothing

cDebug "<b><font face='Webdings'>5</font>save_record_REG_PAYMENT()</b>", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
End Function
'==============================================================================


'==============================================================================
Public Function OLD_save_record_REG_PAYMENT()
cDebug "<b><font face='Webdings'>6</font>save_record_REG_PAYMENT()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
    cDebug "last update", now()
    Dim sCMD, objConn, objCmd, objParam
    '--------------------------------------------------------------------------
    '  Table Name:  REG_PAYMENT
    '  DB Path:     C:\inetpub\wwwroot\hosting\Gladhill\New\_data\db\gladhill_14.1.mdb
    '  Created on:  4/6/2014 1:01:19 PM
    '--------------------------------------------------------------------------

    if request("reg_payment_ID") <>  "" then
        '---[ Exsiting record.  Use UPDATE command ]---
        sCMD = "UPDATE reg_Payment SET "&_
            "reg_payment_reg_ID=@reg_payment_reg_ID "&_
            "reg_Discount=@reg_Discount, reg_InvoiceTotal=@reg_InvoiceTotal, reg_payerID=@reg_payerID, "&_
            "reg_payment_cc_CVV=@reg_payment_cc_CVV, reg_payment_cc_Month=@reg_payment_cc_Month, "&_
            "reg_payment_cc_Name=@reg_payment_cc_Name, reg_payment_cc_Num=@reg_payment_cc_Num, "&_
            "reg_payment_cc_Year=@reg_payment_cc_Year, reg_payment_cc_Zip=@reg_payment_cc_Zip, "&_
            "reg_payment_Confirmation=@reg_payment_Confirmation, reg_payment_Paytype=@reg_payment_Paytype, "&_
            "reg_payment_po_Num=@reg_payment_po_Num, reg_payment_Process=@reg_payment_Process, "&_
            "reg_payment_Recieved=@reg_payment_Recieved, reg_payment_Total=@reg_payment_Total, "&_
            "reg_paymentID=@reg_paymentID, reg_PayPal_data=@reg_PayPal_data "&_
            "WHERE (((reg_Payment.reg_payment_ID)=@reg_payment_ID));"
    else
        '---[ New record!  Use INSERT command ]---
        sCMD = "INSERT INTO reg_Payment ("&_
            "reg_Discount, reg_InvoiceTotal, reg_payerID, reg_payment_cc_CVV, reg_payment_cc_Month, "&_
            "reg_payment_cc_Name, reg_payment_cc_Num, reg_payment_cc_Year, reg_payment_cc_Zip, "&_
            "reg_payment_Confirmation, reg_payment_Paytype, reg_payment_po_Num, reg_payment_Process, "&_
            "reg_payment_Recieved, reg_payment_reg_ID, reg_payment_Total, reg_paymentID, reg_PayPal_data"&_
            ") VALUES ("&_
            "@reg_payment_reg_ID,@reg_Discount, @reg_InvoiceTotal, @reg_payerID, @reg_payment_cc_CVV, "&_
            "@reg_payment_cc_Month, @reg_payment_cc_Name, @reg_payment_cc_Num, @reg_payment_cc_Year, "&_
            "@reg_payment_cc_Zip, @reg_payment_Confirmation, @reg_payment_Paytype, @reg_payment_po_Num, "&_
            "@reg_payment_Process, @reg_payment_Recieved, @reg_payment_Total, @reg_paymentID, @reg_PayPal_data"&_
            ");"
    end if

'cDebug "sCMD", textarea( join(split(sCMD, ", "),vbcrlf))
cDebug "sCMD", textarea( join(split(replace(replace(sCMD,"SET ", "SET" + vbCrLf),"WHERE ", vbCrLf + "WHERE"), ", "),vbcrlf))
'cDebug "sCMD", split(replace(replace(sCMD,"SET ", "SET," ),"WHERE ", ",WHERE"), ",")

    set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open application("DBDriver") & MapPath(application("MainDB"))
  
    Set objCmd = Server.CreateObject("ADODB.Command")
    objCmd.CommandText = sCMD
    objcmd.ActiveConnection = objConn 
    objCmd.CommandType = adCmdText

    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_reg_ID",       adInteger,  adParamInput, 4,    oConfig("reg_ID"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Paytype",      adVarWChar, adParamInput, 255,  request("reg_payment_type"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_po_Num",       adVarWChar, adParamInput, 255,  request("reg_payment_po_Num"))

    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Total",        adCurrency, adParamInput, 8,    request("paymentTotal"))  
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Process",      adVarWChar, adParamInput, 255,  request("reg_payment_Process"))
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Recieved",     adBoolean,  adParamInput, 2,    false)
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_Confirmation", adVarWChar, adParamInput, 255,  "")
    
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_Discount",       adDouble, adParamInput, 8,  request("unitDiscount"))  
    objCmd.Parameters.Append objCmd.CreateParameter ("@reg_InvoiceTotal",   adCurrency, adParamInput, 8,    cdbl(replace(request("invoiceTotal"),"$","")))  

    if request("reg_payment_Process") = "type-paypal" then
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payerID",      adVarWChar, adParamInput, 255,  request("details.payer.payer_id"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_paymentID",    adVarWChar, adParamInput, 255,  request("data.orderID"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_PayPal_data",  adLongVarWChar, adParamInput, 536870910, request("paypalDetails"))
    else
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payerID",      adVarWChar, adParamInput, 255,  null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_paymentID",    adVarWChar, adParamInput, 255,  null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_PayPal_data",  adLongVarWChar, adParamInput, 536870910, null)
    end if

    if ucase(request("reg_payment_Process")) = "TYPE-CC" then
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Num",       adVarWChar, adParamInput, 255,  request("reg_payment_cc_Num"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Month",     adInteger,  adParamInput, 4,    request("reg_payment_cc_Month"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Year",      adInteger,  adParamInput, 4,    request("reg_payment_cc_Year"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Zip",       adVarWChar, adParamInput, 255,  request("reg_payment_cc_Zip"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Name",      adVarWChar, adParamInput, 255,  request("reg_payment_cc_Name"))
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_CVV",       adVarWChar,  adParamInput, 255, request("reg_payment_cc_CVV"))
    else
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Num",       adVarWChar, adParamInput, 255,  null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Month",     adInteger,  adParamInput, 4,    null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Year",      adInteger,  adParamInput, 4,    null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Zip",       adVarWChar, adParamInput, 255,  null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_Name",      adVarWChar, adParamInput, 255,  null)
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_cc_CVV",       adVarWChar, adParamInput, 255,  null)
    end if

    if len(request("reg_payment_ID")) <> 0 then 
        '---[ Existing record. Add the "reg_payment_ID" parameter ]---
        objCmd.Parameters.Append objCmd.CreateParameter ("@reg_payment_ID", adInteger, adParamInput, 4, testIntVal(request("reg_payment_ID")))
    else
        '---[ New record. Move any paramaters to here that are for New records only ]---

    end if
cDebug "ObjCmd",ObjCmd.parameters
    Dim tmp, itm
    for each itm in ObjCmd.parameters
        tmp = tmp & itm.Name & " = " & itm.Value & vbCrLf
    next
    cDebug "tmp", textarea(tmp)

    '---[ Uncomment the next line after confirming all configurations are valid  ]---
    ObjCmd.Execute

    if request("reg_payment_ID") = "" then
        '---[ New record!  Get the "reg_payment_ID" of the INSERT'ed record ]-----------
        Dim oRecSet
        set oRecSet = Server.CreateObject("ADODB.Recordset") 

        oRecSet.open "SELECT @@IDENTITY", objConn, adOpenStatic, adLockReadOnly, adCmdText
        oConfig("reg_payment_ID") = oRecSet.Fields(0).value
    else
        '---[ Existing record.  Get "reg_payment_ID" from the request object ]----------
        oConfig("reg_payment_ID") = request("reg_payment_ID")
    end if

    set objCmd = nothing
    set objConn = nothing

cDebug "<b><font face='Webdings'>5</font>save_record_REG_PAYMENT()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
'response.end
End Function
'==============================================================================

'==============================================================================
Public Function b_old_save_record_REG_STUDENT()
cDebug "<b><font face='Webdings'>6</font>save_record_REG_STUDENT()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
  Dim sCMD, objConn, objCmd, objParam, parm

  '--------------------------------------------------------------------------
  '  Table Name:  REG_STUDENT
  '  DB Path:     C:\inetpub\wwwroot\hosting\Gladhill\New\_data\db\gladhill_14.1.mdb
  '  Created on:  4/7/2014 7:38:25 AM
  '--------------------------------------------------------------------------
  set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open application("DBDriver") & MapPath(application("MainDB"))
  

    if request("reg_ID") <> "" then
        sSQL = popstring("DELETE reg_Student.*, reg_Student.student_reg_ID FROM reg_Student WHERE (((reg_Student.student_reg_ID)=[reg_ID]));", request.form)
        cDebug "sSQL", sSQL
        oRecSet.open sSQL, objConn, adOpenKeyset, adLockBatchOptimistic
    end if


  '---[ New record!  Use INSERT command ]---
  sCMD = "INSERT INTO reg_Student (student_reg_ID, student_LName, student_FName, student_EMail) "&_
          "VALUES(@student_reg_ID, @student_LName, @student_FName, @student_EMail);"
cDebug "sCMD",sCMD

  Dim r
  for r = 1 to cint(request("studentCount") )
    Set objCmd = Server.CreateObject("ADODB.Command")
    objCmd.CommandText = sCMD
    objcmd.ActiveConnection = objConn 
    objCmd.CommandType = adCmdText

    objCmd.Parameters.Append objCmd.CreateParameter ("@student_reg_ID", adInteger,  adParamInput, 4,   oConfig("reg_ID"))  
    
    objCmd.Parameters.Append objCmd.CreateParameter ("@student_FName",  adVarWChar, adParamInput, 255, request("student_FName")(r))
    objCmd.Parameters.Append objCmd.CreateParameter ("@student_LName",  adVarWChar, adParamInput, 255, request("student_LName")(r))
    objCmd.Parameters.Append objCmd.CreateParameter ("@student_EMail",  adVarWChar, adParamInput, 255, request("student_EMail")(r))

cDebug "ObjCmd",ObjCmd

      '---[ Uncomment the next line after confirming all configurations are valid  ]---
      ObjCmd.Execute
  next
  oConfig("reg_Student_pass") = true

  '---[ New record!  Get the "student_ID" of the INSERT'ed record ]-----------
  'Dim oRecSet
  'set oRecSet = Server.CreateObject("ADODB.Recordset") 
  'oRecSet.open "SELECT @@IDENTITY", objConn, adOpenStatic, adLockReadOnly, adCmdText
  'oConfig("student_ID") = oRecSet.Fields(0).value

  set objCmd = nothing
  set objConn = nothing

cDebug "<b><font face='Webdings'>5</font>save_record_REG_STUDENT()", "<b>===[ " & Request.ServerVariables("PATH_INFO") & " ]===</b>"
'response.end
End Function
'==============================================================================

'==============================================================================
Private Function send_EmailToCustomer()
'cDebug "<b><font face='Webdings'>6</font>send_EmailToCustomer</b>", bold(padright("===[ " & Request.ServerVariables("PATH_INFO") & " ]", "=", 80))
  Dim cTmplt, oFld, rsStudents, sTmpltFile, sBody, oEmail

  sSQL = "SHAPE{SELECT get_registration_info_by_reg_id.* FROM get_registration_info_by_reg_id WHERE (((get_registration_info_by_reg_id.reg_ID)=[reg_ID]));}"&_
          "APPEND({SELECT reg_Student.* FROM reg_Student;} AS rsStudents "&_
          "RELATE reg_ID TO student_reg_ID)"
  sSQL = replace(sSQL, "[reg_ID]", oConfig("reg_ID"))
'cDebug "sSQL", sSQL

  '---[ connect to db and get recordset ]---
  objConn.Open application("DBDriver") & MapPath(application("MainDB"))
  oRecSet.open sSQL, objConn, adOpenKeyset, adLockBatchOptimistic
'cDebug "oRecSet", Data(oRecSet)

  sTmpltFile = popstring("_email_registration_[reg_Course_Type]_[reg_payment_Process].htm", oRecSet)
  oRecSet.Movefirst
'cDebug "sTmpltFile", sTmpltFile

  '---[ fill out email template ]---
  Set cTmplt = new clsRepeat
  With cTmplt
    .TemplatePath = "res\html\"
    .TemplateFile = sTmpltFile
'cDebug "cTmplt", .debug    
    .Region 0

    .ShapeData oRecSet
    oRecSet.Movefirst
    .Tag 1, "reg_payment_cc_Num_trunc", right(oRecSet("reg_payment_cc_Num").Value, 4)


    sBody = .Template    
  End With
'cDebug "cTsBodymplt", sBody    

  oRecSet.MoveFirst

  '---[ send email confirmation to customer ]----------------------------------
  set oEmail = new clsCDOMail
    oEmail "cdoSMTPConnectionTimeout", 5
  oEmail "From",     application("Email_From_Address")
  oEmail "To",       oRecSet("reg_company_ContactEMail").value
  oEmail "Subject",  Application("SiteTitle") & " - Training registration"
  oEmail "HTMLBody", sBody
  if bLocalHost then oEmail "SMTPConnectionTimeout", 5
  oEmail.SendEMail
'cDebug "oEmail.Debug", oEmail.Debug

  oRecSet.close
'cDebug "<b><font face='Webdings'>5</font>send_EmailToCustomer", bold(string(79,"="))
End Function
'==============================================================================

'==============================================================================
Private Function send_EmailToAdmin()
'cDebug "<b><font face='Webdings'>6</font>send_EmailToAdmin</b>", bold(padright("===[ " & Request.ServerVariables("PATH_INFO") & " ]", "=", 80))
  Dim cTmplt, sBody, oEmail

  sSQl = "SELECT list_registrations_open.* FROM list_registrations_open;"
'cDebug "sSQL", sSQL

  oRecSet.open sSQL, objConn, adOpenKeyset, adLockBatchOptimistic
'cDebug "oRecSet", data(oRecSet)

  Set cTmplt = new clsRepeat
  With cTmplt
    .TemplateFile = "res/html/_admin_registrations_open.htm"
'cDebug "cTmplt.Debug", .Debug

    .Region 0
    .Tag 0, "cnt", oRecSet.RecordCount

    .ShapeData oRecSet

    sBody = .Template
'cDebug "sBody", sBody
  End With

  '---[ send email confirmation to customer ]----------------------------------
  set oEmail = new clsCDOMail
    oEmail "cdoSMTPConnectionTimeout", 5
  oEmail "From",     application("Email_From_Address")
  oEmail "To",       application("Email_From_Address")
  oEmail "Subject",  Application("SiteTitle") & " - Pending training registrations."
  oEmail "HTMLBody", sBody
  if bLocalHost then oEmail "SMTPConnectionTimeout", 5
 oEmail.SendEMail
'cDebug "oEmail.Debug", oEmail.Debug

  oRecSet.close
'cDebug "<b><font face='Webdings'>5</font>send_EmailToAdmin", bold(string(79,"="))
End Function
'==============================================================================