<%option explicit%>
<%
'*************************************************
' updates image into database
' inputs are in session variables
' uploadcatalogid
' uploadfield
' uploadimage
' uploadtable
' uploadreturn
' VP-ASP 6.50 Nov 12, 2005
'************************************************
shopcheckadmin ""
Dim image, dbc, msg
dim catalogId, idfield, returnurl, dbtable
Dim sAction
Dim cimageURL
dim dbfield
AdminPageHeader
GetInputfields
if serror="" then
UpdateDatabase
WriteInfo
else
writeErrors
end if
AdminPageTrailer
'
Sub UpdateDatabase
serror=""
dim fieldvalue
If Serror<>"" then exit sub
If cimageURL="NULL" then
fieldvalue="NULL"
else
fieldvalue="'" & cimageurl & "'"
end if
Shopopendatabase dbc
Sql="Select * from " & dbtable
sql=sql & " Where " & idfield & "=" & catalogid
set objrs=dbc.execute(sql)
if objrs.eof then
msg= getlang("LangRecordnotfound") & " " & catalogid
closerecordset objrs
shopclosedatabase dbc
exit sub
end if
closerecordset objrs
sql="Update " & dbtable & " set " & dbfield & "=" & fieldvalue
sql=sql & " Where " & idfield & "=" & catalogid
dbc.execute(sql)
shopclosedatabase dbc
end sub
'
Sub GetInputFields
catalogid=Getsess("uploadcatalogid")
cimageURl=Getsess("uploadimage")
dbfield=Getsess("uploadfield")
returnurl=getsess("uploadreturnurl")
dbtable=getsess("uploadtable")
idfield=getsess("uploadidfield")
If catalogid="" then
Serror="catalogid is missing" & "
"
end if
If cimageURL="" then
Serror=sError & "image filename is missing" & "
"
end if
If dbfield="" then
Serror=sError & "Field is missing" & "
"
end if
'Debugwrite "catalogid=" & catalogid & " field=" & dbfield & " image=" & cimageurl
end Sub
Sub WriteErrors
shopwriteError serror
end sub
Sub WriteInfo
dim url
shopwriteheader getlang("languploadsuccess")
response.write "
" & cimageurl & "
"
response.write "![](" & cimageURL & ")
"
If returnurl="" then
returnurl="shopadmin1.asp"
end if
url=returnurl & "?which=" & catalogid & "&table=" & dbtable & "&idfield=" & idfield
response.write "" & getlang("LangcommonContinue") & ""
end sub
%>