I am currently trying to get multiple files to upload at once
I have setup the button as "File Upload - User Defined"
When clicking the button I can select the multiple files but on upload I get the error:
"Error executing After Upload Server Side Event event function (\'saveFiles"
My function is:
function saveFiles as v (e as p)
dim count as n
count = e.filecount
dim i as n
dim arr as p
arr = e.filearray
dim cn as sql::connection
dim cs as c
cs = "::Name::Connection1"
cn.open(cs)
dim sql as c
sql = "INSERT INTO photos_incident_damage (assno, directoryname, filename) values (:assno, :directory_name, :filename)"
dim args as sql::arguments
args.add("assno",session.assno)
args.add("directory_name","C:\A5Webroot\asman\images\photographs\" + session.assno + "\Incident_Damage")
for i = 1 to count
dim fn as c
dim data as b
data = e.fileArray[i].data
fn = "C:\A5Webroot\asman\images\photographs\" + session.assno + "\Incident_Damage" + chr(92) + e.fileArray[i].fileName
file.From_blob(fn,data)
dim fntoStore as c
fntoStore = e.fileArray[i].fileName
args.add("filename",fntoStore)
dim flag as l
flag = cn.Execute(sql,args)
next i
cn.close()
end function
Can anyone perhaps tell me where i am going wrong?
Any assistance would be greatly appreciated.
Thank you
I have setup the button as "File Upload - User Defined"
When clicking the button I can select the multiple files but on upload I get the error:
"Error executing After Upload Server Side Event event function (\'saveFiles"
My function is:
function saveFiles as v (e as p)
dim count as n
count = e.filecount
dim i as n
dim arr as p
arr = e.filearray
dim cn as sql::connection
dim cs as c
cs = "::Name::Connection1"
cn.open(cs)
dim sql as c
sql = "INSERT INTO photos_incident_damage (assno, directoryname, filename) values (:assno, :directory_name, :filename)"
dim args as sql::arguments
args.add("assno",session.assno)
args.add("directory_name","C:\A5Webroot\asman\images\photographs\" + session.assno + "\Incident_Damage")
for i = 1 to count
dim fn as c
dim data as b
data = e.fileArray[i].data
fn = "C:\A5Webroot\asman\images\photographs\" + session.assno + "\Incident_Damage" + chr(92) + e.fileArray[i].fileName
file.From_blob(fn,data)
dim fntoStore as c
fntoStore = e.fileArray[i].fileName
args.add("filename",fntoStore)
dim flag as l
flag = cn.Execute(sql,args)
next i
cn.close()
end function
Can anyone perhaps tell me where i am going wrong?
Any assistance would be greatly appreciated.
Thank you