<%
dim proc, idArtist, status_msg
dim title, hierarchy(4, 2)
title = "Create Artist"
hierarchy(0, 0) = "Home"
hierarchy(0, 1) = "home.asp"
hierarchy(1, 0) = "Inventory Management"
hierarchy(1, 2) = "inventoryOverview.asp"
hierarchy(2, 0) = "Artists"
hierarchy(2, 1) = "viewAllArtists.asp"
hierarchy(3, 0) = "Create Artist"
hierarchy(3, 1) = "createArtist.asp"
if not isempty(request.form("btnCreateArtist")) then
set adoProc = server.createObject("ADODB.Command")
proc = run_proc_return(adoProc, "sp_insertArtist", adExecuteNoRecords, idArtist, adInteger)
if proc = true then
status_msg = "successfully inserted artist id # "& idArtist &"
"
else
status_msg = "ERROR: could not insert artist.
"& proc &"
"
end if
set adoProc = nothing
end if
%>
create artist