_alert.vbhtml

<script type="text/javascript">
    toastr.options = {
        "closeButton": true,
        "debug": false,
        "positionClass": "toast-top-center",
        "onclick": null,
        "showDuration": "2000",
        "hideDuration": "2000",
        "timeOut": "30000",
        "extendedTimeOut": "1000",
        "showEasing": "swing",
        "hideEasing": "linear",
        "showMethod": "fadeIn",
        "hideMethod": "fadeOut"
    }

@If Not TempData("m_success") Is Nothing Then
    @If TempData("m_success").GetType Is GetType(String) Then
        @<text>
            toastr.success("@Html.Raw(TempData("m_success")).ToString.Replace(vbNewLine, "\n")")
        </text>
    Else
        For Each item As String In TempData("m_success")
            @<text>
                toastr.success("@Html.Raw(item).ToString.Replace(vbNewLine, "\n")")
            </text>
        Next
    End If
End If
@If Not TempData("m_warning") Is Nothing Then
    @If TempData("m_warning").GetType Is GetType(String) Then
        @<text>
            toastr.warning("@Html.Raw(TempData("m_warning")).ToString.Replace(vbNewLine, "\n")")
        </text>
    Else
        For Each item As String In TempData("m_warning")
            @<text>
                toastr.warning("@Html.Raw(item).ToString.Replace(vbNewLine, "\n")")
            </text>
        Next
    End If
End If
@If Not TempData("m_error") Is Nothing Then
    @If TempData("m_error").GetType Is GetType(String) Then
        @<text>
            toastr.error("@Html.Raw(TempData("m_error")).ToString.Replace(vbNewLine, "\n")")
        </text>
    Else
        For Each item As String In TempData("m_error")
            @<text>
                toastr.error("@Html.Raw(item).ToString.Replace(vbNewLine, "\n")")
            </text>
        Next
    End If
End If
@If Not TempData("m_info") Is Nothing Then
    @If TempData("m_info").GetType Is GetType(String) Then
        @<text>
            toastr.info("@Html.Raw(TempData("m_info")).ToString.Replace(vbNewLine, "\n")")
        </text>
    Else
        For Each item As String In TempData("m_info")
            @<text>
                toastr.info("@Html.Raw(item).ToString.Replace(vbNewLine, "\n")")
            </text>
        Next
    End If
End If


</script>