Image Upload

Is there a way, to have a file field on a update form and if there is no new image have it ignore it and not replace the file name in the database.

ie, a form that updates a profile, and i don't want to update the picture just the info. If i have the image field linked to the update line in data assist and dont have it upload a new pic then it erases the name in the file field.

yes, on the update page, create a hidden form element. set the initial value of the hidden form element to use the value from the file column in the recordset.


In the upload file server behavior, click the lightning bolt next to default file and select the hidden form element.


this is covered in the "How to apply Digital File Pro to DataAssist Insert and Update pages" tutorial in the how to section of the DFP support page:
digital-file-pro/

Ok i am now getting an error on the page.

-----------------------------------------------------------------------------

Request object error 'ASP 0208 : 80004005'

Cannot use generic Request collection

/admin/home_edit.asp, line 21

Cannot use the generic Request collection after calling BinaryRead.

-----------------------------------------------------------------------------

This is the code from the page

-----------------------------------------------------------------------------

<%
Dim rs_edit__MMColParam
rs_edit__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then (this is line 21)
rs_edit__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_edit
Dim rs_edit_cmd
Dim rs_edit_numRows

Set rs_edit_cmd = Server.CreateObject ("ADODB.Command")
rs_edit_cmd.ActiveConnection = MM_htusa_conn_STRING
rs_edit_cmd.CommandText = "SELECT * FROM tblPages WHERE ID = ?"
rs_edit_cmd.Prepared = true
rs_edit_cmd.Parameters.Append rs_edit_cmd.CreateParameter("param1", 5, 1, -1, rs_edit__MMColParam) ' adDouble

Set rs_edit = rs_edit_cmd.Execute
rs_edit_numRows = 0
%>
<%
WA_DFP_SetupUploadStatusStruct "WA_UploadResult1"
If(Request.ServerVariables("Request_Method") = "POST") Then
WA_DFP_UploadFile "WA_UploadResult1", "NewImage", "" & cStr(WA_DFP_UploadObj.Form("DefaultFileName")) & "", "images/", "[FileName]", "2", "[FileName]_[Increment]", "0", "true", "" & cStr((rs_edit.Fields.Item("pic1w").Value)) & "", "" & cStr((rs_edit.Fields.Item("pic1h").Value)) & ""
End If%>
<%
' WA Application Builder Update
if (Request.ServerVariables("Request_Method") = "POST") then
WA_connection = MM_htusa_conn_STRING
WA_table = "tblPages"
WA_redirectURL = "admin_home.asp"
WA_keepQueryString = false
WA_indexField = "ID"
WA_fieldNamesStr = "text1|text2|text3|pic1"
WA_fieldValuesStr = "" & cStr(WA_DFP_UploadObj.Form("TextFix1")) & "" & "|" & "" & cStr(WA_DFP_UploadObj.Form("TextFix2")) & "" & "|" & "" & cStr(WA_DFP_UploadObj.Form("TextFix3")) & "" & "|" & "" & cStr(WA_DFP_UploadStatus.Item("WA_UploadResult1").serverFileName) & ""
WA_columnTypesStr = "',none,''|',none,''|',none,''|',none,''"
WA_comparisonStr = "=|=|=|="
WA_fieldNames = Split(WA_fieldNamesStr,"|")
WA_fieldValues = Split(WA_fieldValuesStr,"|")
WA_columns = Split(WA_columnTypesStr,"|")
WA_comparisions = Split(WA_comparisonStr, "|")

WA_where_fieldValuesStr = "" & cStr((rs_edit.Fields.Item("ID").Value)) & ""
WA_where_columnTypesStr = "none,none,NULL"
WA_where_comparisonStr = "="
WA_where_fieldNames = Split(WA_indexField,"|")
WA_where_fieldValues = Split(WA_where_fieldValuesStr,"|")
WA_where_columns = Split(WA_where_columnTypesStr,"|")
WA_where_comparisions = Split(WA_where_comparisonStr, "|")


updateParamsObj = WA_AB_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
WhereObj = WA_AB_generateWhereClause(WA_where_fieldNames, WA_where_columns, WA_where_fieldValues, WA_where_comparisions)

set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = WA_connection
MM_editCmd.CommandText = "UPDATE " & WA_table & " SET " & updateParamsObj(3) & " WHERE " & WhereObj & ""
MM_editCmd.Execute()
MM_editCmd.ActiveConnection.Close()
if (WA_redirectURL <> "") then
if (WA_keepQueryString AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
if (inStr(WA_redirectURL,"?") > 0) then
WA_redirectURL = WA_redirectURL & "&"
else
WA_redirectURL = WA_redirectURL & "?"
end if
WA_redirectURL = WA_redirectURL & Request.QueryString
end if
Response.Redirect(WA_redirectURL)
end if
end if
%>

-----------------------------------------------------------------------------

Getting a little frusterating.

this is a limitation to ASP when uploading a file, the generic request collection is used by the recordset.



change the fdollowing code:
If (Request("MM_EmptyValue") <> "") Then
rs_edit__MMColParam = Request("MM_EmptyValue")


to:
If (Request.QueryString("MM_EmptyValue") <> "") Then
rs_edit__MMColParam = Request.QueryString("MM_EmptyValue")

Ok so that resolved the error but it is not uploading the image or saving the new file name in the database. It does update the other text fields though.

can you send a copy of the asp page so I can see the entire code in context.