<%
Dim Msg, Grid, sSQL, Cmd,ArtistID
dim t_fname, t_lname, strTable
Init
Set Grid = New GridProcess
Grid.Conn = Cn
Grid.Title = ""
Grid.Table = strTable
Grid.KeyFld = "ArtworkID"
Grid.FldName = array("ArtworkID", "Title" , "Medium","CatCode","Edition","artValue","DateSold","DateReturned",strLinks)
Grid.FldSortBy = array("ArtworkID", "Title" , "Medium","CatCode","Edition","artValue","DateSold","DateReturned","")
Grid.FldHead = array("ArtworkID", "Title" , "Medium","CatCode","Edition","artValue","DateSold","DateReturned","")
Grid.FldDefault= array("","","","","","","","","")
Grid.FldType = array("I", "T" , "T","T","T","T","T","T","T")
Grid.FldFormat = array("", "" , "","","","","D","D","")
Grid.FldAlign = array("L", "L" , "L","L","L","L","L","L","L")
Grid.FldEdit = array(0,1,1,1,1,1,1,1,0)
Grid.FldInsert = array(0,1,1,1,1,1,1,1,0)
Grid.FldDisp = array(0,1,1,1,1,1,1,1,1)
Grid.FldSort = array(0,1,1,1,1,1,1,1,0)
Grid.FldSize = array(0,20,20,20,20,20,20,20,0)
Grid.FldMaxLen = array(0,50,50,50,50,50,50,50,0)
Grid.FldWidth = array(0,80,80,80,80,80,80,80,200)
Grid.HiddenFld = array("ArtistID")
Grid.HiddenVal = array(ArtistID)
Grid.ImageLoc = "../Images/"
Grid.PageSize = 15
Grid.ShowCount = 1
Grid.EditPos = "R"
if admin() then
Grid.AddMode = 1
Grid.EditMode = 1
Grid.DelMode = 1
else
Grid.AddMode = 1
Grid.EditMode = 1
Grid.DelMode = 1
end if
sub Init
ArtistID = request("ArtistID") & ""
strTable = "Artworks where ArtistID = "&ArtistID
end sub
function strlinks()
strlinks= "'Large Pic Thumbnail'"
end function
if Request.Form ("DeleteID") & "" <> "" then
Cn.Execute "Delete from Artworks where ArtworkID = " & Request.Form ("DeleteID")
if Err <> 0 then
Msg = Err.description
else
response.redirect "artworks.asp?artistid="&ArtistID
end if
elseif Request.Form ("SaveID") & "" <> "" then
dim ID, Title , Medium,CatCode,Edition,tValue,DateSold,DateReturned
ID = Request.Form("SaveID")
Title=request("Title")
Medium=request("Medium")
CatCode=request("CatCode")
Edition=request("Edition")
tValue=request("Value")
if tValue ="" then tValue =0
DateSold=request("DateSold")
if DateSold = "" then DateSold ="1/1/1900"
DateReturned=request("DateReturned")
if DateReturned= "" then DateReturned = "1/1/1900"
if Validate() then
set cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Cn
if ID = "0" then
sSQL = "INSERT into Artworks (ArtistID,Title , Medium,CatCode,Edition,artValue,DateSold,DateReturned) " & _
" values ("&ArtistID&",'"&Title&"','"&Medium&"','"&Catcode&"','"&Edition&"',"&tvalue&",'"&DateSold&"','"&DateReturned&"')"
else
sSQL = "UPDATE Artworks SET Title='"&Title&"', Medium='"&Medium&"',CatCode='"&Catcode&"',Edition='"&Edition&"',artValue="&tvalue&",DateSold='"&DateSold&"',DateReturned='"&DateReturned&"'" & _
" WHERE ArtworkID = " & ID
end if
response.write sSQL
cn.execute sSQL
response.redirect "artwork.asp?artistid="&ArtistID
else
Grid.SaveError = True
end if
end if
function Validate
Validate = True
end function
%>
<%header("ArtWorks")%>
<%
Grid.Display()
set Grid = nothing
%>