Solved

Default value of file field

Posted on 2008-10-08
4
187 Views
Last Modified: 2012-06-27
Hey Experts!!
I have an update page that has 4 fields that I wish to have populated with the value.  The problem is these are file fields and their default value will not populate so that when updating the images stay the same.  
I need a solution for this please.  I do not want to take the fields out of the form, but I do need to keep the images the same if they are not being updated.  I hope I explained that correctly
0
Comment
Question by:LZ1
  • 2
  • 2
4 Comments
 
LVL 12

Expert Comment

by:R_Harrison
ID: 22677563
On the page that does the updating you should check if a file has been submitted, if not do not update the field.  The exact command may vary depending on what you are using to upload but is usually something like... (this is for ABCUpload4)

if thefield.fileexists then .....  update the database as a file has been supplied

It is not possible to set default values for File fields as the would pose a major security problem as you could specify any file to be uploaded off a 'vistors' computer!!!
 
0
 
LVL 30

Author Comment

by:LZ1
ID: 22706143
Sorry it's taken so long to get back to you, but do you have a script or code sample I may be able to use?  Or have a place where I can find one?
0
 
LVL 12

Accepted Solution

by:
R_Harrison earned 500 total points
ID: 22706471
The below should work if you enter the details where marked in CAPS.

This will only update if a file was uploaded, otherwise it will leave the database untouched.
Set theForm = Server.CreateObject("ABCUpload4.XForm")
Set theField = theForm("NAME-OF-YOUR-FILE-FIELD")(1)
REM ---- CHECK IF A FILE WAS UPLOADED ------------------
If theField.FileExists Then
    Set Conn = Server.CreateObject("ADODB.Connection")
    YOUR DATABASE CONNECTION GOES HERE
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "THE-TABLE-TO-UPDATE", Conn, 1, 2
    rs.filter = "A-DATABASE-FIELD=SOMETHING"
    rs("NAME-OF-FIELD-IN-DBASE").Value = theField.Data
    rs.Update
    rs.Close
    Conn.Close
End IF

Open in new window

0
 
LVL 30

Author Closing Comment

by:LZ1
ID: 31504531
Thanks again!  After a little tweaking, it worked fine.
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

808 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question