Ektron® eWebEditPro Developer's Reference Guide

Automatic Upload
strCommand = g_objUpload.EkFormFieldValue(g_binaryFormData, "actiontyp", ErrorCode)
' These are the possible commands:
If strCommand = "uploadfile" Then
ReceiveSubmittedFiles ' Saves the submitted files.
ElseIf strCommand = "uploadcontent" Then
ReceiveContent
Else
Response.Write("Unknown Posting.")
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''
' This function will receive the files and send back
' the required response data. There is no processing
' of the files and there is no affecting the file data.
Sub ReceiveSubmittedFiles()
Dim objFile, iErrorCode
Dim strLogicalRefDest, strFileAltTitle, strReqWebRoot, strImageDate
Dim iFileSize, iExtensionID, iWidth, iHeight, strFileType
strLogicalRefDest = g_objUpload.EkFormFieldValue(g_binaryFormData, "editor_media_path",
iErrorCode)
strFileAltTitle = g_objUpload.EkFormFieldValue(g_binaryFormData, "file_title", iErrorCode)
strReqWebRoot = g_objUpload.EkFormFieldValue(g_binaryFormData, "web_media_path",
iErrorCode)
strImageDate = g_objUpload.EkFormFieldValue(g_binaryFormData, "img_date", iErrorCode)
iFileSize = g_objUpload.EkFormFieldValue(g_binaryFormData, "file_size", iErrorCode)
iExtensionID = g_objUpload.EkFormFieldValue(g_binaryFormData, "extension_id", iErrorCode)
iWidth = g_objUpload.EkFormFieldValue(g_binaryFormData, "width", iErrorCode)
iHeight = g_objUpload.EkFormFieldValue(g_binaryFormData, "height", iErrorCode)
strFileType = g_objUpload.EkFormFieldValue(g_binaryFormData, "file_type", iErrorCode)
strNewFileName = g_objUpload.EkFileSave(g_binaryFormData, "uploadfilephoto", _
Server.MapPath(strLogicalRefDest), iErrorCode, "makeunique")
If g_objUpload.FileCount() > 0 then
Set objFile = g_objUpload.FileObject(1)
strNewFileName = objFile.FileName()
objFile.FileUrl(MakeMediaPathName(strReqWebRoot, strNewFileName)) ' see:
functions.asp
AddFileToDatabase strFileAltTitle, strReqWebRoot, strNewFileName, strImageDate,
iFileSize, iExtensionID, iWidth, iHeight
Set objFile = Nothing
End If
End Sub
Response.Write(g_objUpload.ResponseData())
'''''''''''''''''''''''''''''''''''''''''''''''''
' This routine processes the submission of the
' content contained within the eWebEditPro editor.
Sub ReceiveContent()
Ektron® eWebEditPro Developer’s Reference Guide, Release 5.1, Revision 1 497