If action = "refundcs" Then


                Set getChar_cmd = Server.CreateObject ("ADODB.Command")
                getChar_cmd.ActiveConnection = web
                getChar_cmd.CommandText = "SELECT * FROM log_purchase WHERE login = ? and realm = ? LIMIT 1"
                getChar_cmd.Prepared = true
                getChar_cmd.Parameters.Append getChar_cmd.CreateParameter("param1", 202, 1, 32, apexu)
                getChar_cmd.Parameters.Append getChar_cmd.CreateParameter("param2", 202, 1, 32, "Crystalsong")

                Set getChar = getChar_cmd.Execute
                getChar_numRows = 0

                If (getChar.EOF Or getChar.BOF) Then
                Response.Redirect("error.asp?nix-geen rows-in-de-db-vuile-hoer")
                end if


        While Not (getChar.EOF)



        getChar.MoveNext()

       Wend

            old_points_vin  = getChar("old_don")
            new_points_vin  = getChar("new_don")
            id_points_vin   = getChar("ID")
            refund_vin = (old_points_vin - new_points_vin)

            Set getChar2_cmd = Server.CreateObject ("ADODB.Command")
                getChar2_cmd.ActiveConnection = logon
                getChar2_cmd.CommandText = "UPDATE accounts SET donor_points = donor_points + ? WHERE login = ? LIMIT 1"
                getChar2_cmd.Prepared = true
                getChar2_cmd.Parameters.Append getChar2_cmd.CreateParameter("param1", 202, 1, 32, refund_vin)
                getChar2_cmd.Parameters.Append getChar2_cmd.CreateParameter("param2", 202, 1, 32, apexu)

                Set getChar2 = getChar_cmd.Execute
                getChar2_numRows = 0

                Set getChar3_cmd = Server.CreateObject ("ADODB.Command")
                getChar3_cmd.ActiveConnection = web
                getChar3_cmd.CommandText = "DELETE FROM log_purchase WHERE ID = ? AND login = ? AND realm = ? LIMIT 1"
                getChar3_cmd.Prepared = true
                getChar3_cmd.Parameters.Append getChar3_cmd.CreateParameter("param1", 202, 1, 32, id_points_vin)
                getChar3_cmd.Parameters.Append getChar3_cmd.CreateParameter("param2", 202, 1, 32, apexu)
                getChar3_cmd.Parameters.Append getChar3_cmd.CreateParameter("param3", 202, 1, 32, "Crystalsong")

                Set getChar3 = getChar3_cmd.Execute
                getChar3_numRows = 0


                Response.Redirect("/donate/spent.asp?done=refund-success")

    end if