This works:

MsAccess
Pure ASP File Upload 3.0.15 with flashuploader
Rename Uploaded Files 1.8.1
Smart Image Processor 2.5.4 [resize and rename]
DW insert behaviour

multiple images are uploaded and recorded to database


This is NOT working

MsAccess
Pure ASP File Upload 3.0.15 with flashuploader
Rename Uploaded Files 1.8.1
Smart Image Processor 2.5.4 [resize and rename]
Smart Image Processor 2.5.4 [resize]
DW insert behaviour

multiple images are uploaded but NOT recorded

When using 2 SIP behaviours data will NOT recorded to database

This script works

<
%'*** Pure ASP File Upload 3.0.15
' Process form upload1
Dim pau, DMX_uploadAction, UploadRequest, UploadQueryString, pau_thePath, pau_nameConflict, pau_saveWidth, pau_saveHeight
Set pau = new PureUpload
pau.ScriptLibrary = "../ScriptLibrary"
pau.TimeOut = 300
pau.ConflictHandling = "uniq"
pau.StoreType = "file"
pau.ProgressTemplate = "mac_look.htm"
pau.ProgressWidth = 400
pau.ProgressHeight = 100
pau.UploadFolder = """../images/fotoalbum/""& UploadFormRequest(""ID"")"
pau.AllowedExtensions = "GIF,JPG,JPEG,BMP,PNG" ' "images"
pau.ProcessUpload
pau.SaveAll
%><
%' *** Rename Uploaded Files 1.8.1
If (CStr(Request.QueryString("GP_upload")) <> "") Then
  Dim REUF_renameMask
  REUF_renameMask = "img.##ext##"
  RenameUploadedFiles pau_thePath, pau_nameConflict, REUF_renameMask
end if
%>
<
%' Smart Image Processor 2.5.4
Dim sip1
Set sip1 = New ImageProcessor
sip1.Key = "7E7FEB64-8D0B-4B73-9929-8526A7BA9844"
sip1.ScriptFolder = "../ScriptLibrary"
sip1.Component = "Auto"
sip1.Source = "upload"
sip1.AutoOrient = false
sip1.KeepMetaData = false
sip1.Matte = "#FFFFFF"
sip1.UploadFields = ""
sip1.GetFiles
While sip1.HasFiles
sip1.LoadFromSource
sip1.Resize 133, 100, true
sip1.Overwrite = false
sip1.Mask = "##path####name##_small.jpg"
sip1.SaveJPEG 100
sip1.MoveNext
Wend
Set sip1 = Nothing
%>
<
%Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (UploadQueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(UploadQueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<
%' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<
%If (CStr(UploadFormRequest("MM_insert")) = "FlashUpload") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_csMusic_STRING
    MM_editCmd.CommandText = "INSERT INTO tbl_fotoalbum_1 (foto, ID) VALUES (?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 200, UploadFormRequest("Filedata")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(UploadFormRequest("ID"), UploadFormRequest("ID"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
  End If
End If
%>

This script is NOT recording data

<
%'*** Pure ASP File Upload 3.0.15
' Process form upload1
Dim pau, DMX_uploadAction, UploadRequest, UploadQueryString, pau_thePath, pau_nameConflict, pau_saveWidth, pau_saveHeight
Set pau = new PureUpload
pau.ScriptLibrary = "../ScriptLibrary"
pau.TimeOut = 300
pau.ConflictHandling = "uniq"
pau.StoreType = "file"
pau.ProgressTemplate = "mac_look.htm"
pau.ProgressWidth = 400
pau.ProgressHeight = 100
pau.UploadFolder = """../images/fotoalbum/""& UploadFormRequest(""ID"")"
pau.AllowedExtensions = "GIF,JPG,JPEG,BMP,PNG" ' "images"
pau.ProcessUpload
pau.SaveAll
%><
%' *** Rename Uploaded Files 1.8.1
If (CStr(Request.QueryString("GP_upload")) <> "") Then
  Dim REUF_renameMask
  REUF_renameMask = "img.##ext##"
  RenameUploadedFiles pau_thePath, pau_nameConflict, REUF_renameMask
end if
%>
<
%' Smart Image Processor 2.5.4
Dim sip1
Set sip1 = New ImageProcessor
sip1.Key = "7E7FEB64-8D0B-4B73-9929-8526A7BA9844"
sip1.ScriptFolder = "../ScriptLibrary"
sip1.Component = "Auto"
sip1.Source = "upload"
sip1.AutoOrient = false
sip1.KeepMetaData = false
sip1.Matte = "#FFFFFF"
sip1.UploadFields = ""
sip1.GetFiles
While sip1.HasFiles
sip1.LoadFromSource
sip1.Resize 133, 100, true
sip1.Overwrite = false
sip1.Mask = "##path####name##_small.jpg"
sip1.SaveJPEG 100
sip1.MoveNext
Wend
Set sip1 = Nothing
%>
<
%' Smart Image Processor 2.5.4
Dim sip2
Set sip2 = New ImageProcessor
sip2.Key = "5F71988E-DEF7-42FF-A936-E4257338C8B7"
sip2.ScriptFolder = "../ScriptLibrary"
sip2.Component = "Auto"
sip2.Source = "upload"
sip2.AutoOrient = false
sip2.KeepMetaData = false
sip2.Matte = "#FFFFFF"
sip2.UploadFields = ""
sip2.GetFiles
While sip2.HasFiles
sip2.LoadFromSource
sip2.Resize 400, 300, true
sip2.Overwrite = true
sip2.SaveJPEG 100
sip2.MoveNext
Wend
Set sip2 = Nothing
%>
<
%Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (UploadQueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(UploadQueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<
%' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<
%If (CStr(UploadFormRequest("MM_insert")) = "FlashUpload") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_csMusic_STRING
    MM_editCmd.CommandText = "INSERT INTO tbl_fotoalbum_1 (foto, ID) VALUES (?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 200, UploadFormRequest("Filedata")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(UploadFormRequest("ID"), UploadFormRequest("ID"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
  End If
End If
%>

Hello,

Your support ticket is viewed and in process of solving.

Regards,

Hello DMX,

Already know something about this problem. I use

XP pro
IIS 5.1

Pure ASP File Upload 3.0.15
Rename Uploaded Files 1.8.1
Smart Image Processor 2.5.4

Hello DMXzone,

Still NO solution or am I the only one using XP PRO and IIS V5.1

MORE THAN 3 MONTHS FURTHER. STILL NO FIX??????????????????