Solved

Default value of file field

Posted on 2008-10-08
4
186 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

ScreenConnect 6.0 Free Trial

Check out the updates in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI that improves session organization and overall user experience. See the enhancements for yourself!

Question has a verified solution.

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

Suggested Solutions

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 …
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

803 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