• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn more.

Empty Blank File Upload in ASP?

Nismo83

OSNN AZN Addict
#1
i was wondering am i able to don't put any file in a file field and upload to the database and assuming it will not update it?
The language is ASP
This is the 3 field... If i don't select any file it will give me error.
Code:
<INPUT TYPE=FILE NAME="THEFILE" value="">
<INPUT TYPE=FILE NAME="THEFILE1" value="">
<INPUT TYPE=FILE NAME="THEFILE2" value="">
This is the upload script.. i want those in red, purple and orange to update nothing into the database if i did not select any file in the form field.
Code:
<%@ LANGUAGE="VBScript" %>
[bad html removed]#include file="adovbs.inc" -->
<%
 Server.ScriptTimeout = 50000
 Set Upload = Server.CreateObject("Persits.Upload")
 Upload.ProgressID = Request.QueryString("PID")
 Count = Upload.Save
 Set File = Upload.Files("THEFILE")
 Set File1 = Upload.Files("THEFILE1")
 Set File2 = Upload.Files("THEFILE2")
 Set objConn = Server.CreateObject("ADODB.Connection")
 objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
 strSQL = "SELECT * FROM services"
 Set objRS = Server.CreateObject("ADODB.Recordset")
 objRS.Open strSQL, objConn, adOpenStatic, adOpenDynamic
 objRS.AddNew
 objRS("category") = Upload.Form("category")
 objRS("catid") = Upload.Form("subcat")
 objRS("title") = Upload.Form("Title")
 objRS("teaser") = Upload.Form("Teaser")
 objRS("description") = Upload.Form("Description")
 objRS("data") = now()
[color=orange] objRS("Image_blob")= File.Binary
 objRS("filename") = File.FileName
 objRS("filesize") = File.Size
 objRS("descr") = Upload.Form("DESCR")[/color]
[color=purple] objRS("Image_blob1")= File1.Binary
 objRS("filename1") = File1.FileName
 objRS("filesize1") = File1.Size
 objRS("descr1") = Upload.Form("DESCR1")[/color]
[color=red] objRS("Image_blob2")= File2.Binary
 objRS("filename2") = File2.FileName
 objRS("filesize2") = File2.Size
 objRS("descr2") = Upload.Form("DESCR2")[/color]
 objRS.Update  
 objRS.Close
 Set objRS = Nothing
 objConn.Close
 Set objConn = Nothing
 response.write "File Added"
 Response.Redirect("add.asp?success=true")
%>
How do i solve this issue?
 
Last edited by a moderator:

Members online

No members online now.

Latest posts

Latest profile posts

Hello, is there anybody in there? Just nod if you can hear me ...
Xie
What a long strange trip it's been. =)

Forum statistics

Threads
61,961
Messages
673,239
Members
89,014
Latest member
sanoravies