Upload file to folder and save file name to db

[humbleprogrammer]

Hi,

I am sure I am missing the obvious but I can seem to get this to work. I am uploading a file to a directory utilizing Upload.OverwriteFiles = False to avoid overwriting another file. I want to grab the file name that it saved to the directory and then add that name to the database. I have tried many things and can't get it to work. Any help would be greatly appreciated. Below is my code. The database field I am trying to save it to is located at the bottom in red.

t = lcase(left(Request.ServerVariables("CONTENT_TYPE&quot, 19))

' If Accept form button was pressed, uploads attached file and adds applicant info into the database.
If t = "multipart/form-data" then
' Uploads File
Dim pathname

Set Upload = Server.CreateObject("Persits.Upload.1&quot
Upload.OverwriteFiles = False
pathname = "\\mypath\UploadedImages"
Upload.save pathname


' Saves to database
Dim addApplicant
Dim strID
TodaysDate = Date()
Set addApplicant = Server.CreateObject("ADODB.Recordset&quot
addApplicant.open "tblApplicants", oConn, 2, 2
'Use the addnew method of the recordset object to add a record.
addApplicant.addnew
addApplicant("CenterName&quot = Trim(Upload.Form("center&quot)
addApplicant("FName&quot = Trim(Upload.Form("FName&quot)
addApplicant("MName&quot = Trim(Upload.Form("MName&quot)
addApplicant("LName&quot = Trim(Upload.Form("LName&quot)
addApplicant("SName&quot = Trim(Upload.Form("SName&quot)
addApplicant("MaidName1&quot = Trim(Upload.Form("maidname1&quot)
addApplicant("MaidDate1&quot = Trim(Upload.Form("maiddt1&quot)
addApplicant("MaidName2&quot = Trim(Upload.Form("maidname2&quot)
addApplicant("MaidDate2&quot = Trim(Upload.Form("maiddt2&quot)
addApplicant("Address&quot = Trim(Upload.Form("address&quot)
addApplicant("City&quot = Trim(Upload.Form("city&quot)
addApplicant("State&quot = Trim(Upload.Form("state&quot)
addApplicant("Zip&quot = Trim(Upload.Form("zip&quot)
addApplicant("YrsCAdd&quot = Trim(Upload.Form("yrscadd&quot)
addApplicant("HomePhone&quot = Trim(Upload.Form("hphone1&quot)&"-"&Trim(Upload.Form("hphone2&quot)&"-"&Trim(Upload.Form("hphone3&quot)
addApplicant("DayPhone&quot = Trim(Upload.Form("dphone1&quot)&"-"&Trim(Upload.Form("dphone2&quot)&"-"&Trim(Upload.Form("dphone3&quot)&" ext. "&Trim(Upload.Form("dphone4&quot)
addApplicant("Email&quot = Trim(Upload.Form("Email&quot)
addApplicant("PreAddress1&quot = Trim(Upload.Form("preaddress1&quot)
addApplicant("YrsPreAdd1&quot = Trim(Upload.Form("yrspreadd1&quot)
addApplicant("PreAddress2&quot = Trim(Upload.Form("preaddress2&quot)
addApplicant("YrsPreAdd2&quot = Trim(Upload.Form("yrspreadd2&quot)
addApplicant("Position&quot = Trim(Upload.Form("position&quot)
addApplicant("OtherJob&quot = Trim(Upload.Form("otherjob&quot)
addApplicant("Comments&quot = Trim(Upload.Form("Comments&quot)
addApplicant("Relocate&quot = Trim(Upload.Form("relocate&quot)
addApplicant("DesiredWage&quot = Trim(Upload.Form("desiredwage&quot)
addApplicant("Interested&quot = Trim(Upload.Form("interested&quot)
addApplicant("HrsWeek&quot = Trim(Upload.Form("HrsWeek&quot)
addApplicant("AvailSun&quot = Trim(Upload.Form("checksun&quot)
addApplicant("AvailMon&quot = Trim(Upload.Form("checkmon&quot)
addApplicant("AvailTues&quot = Trim(Upload.Form("checktue&quot)
addApplicant("AvailWed&quot = Trim(Upload.Form("checkwed&quot)
addApplicant("AvailThurs&quot = Trim(Upload.Form("checkthur&quot)
addApplicant("AvailFri&quot = Trim(Upload.Form("checkfri&quot)
addApplicant("AvailSat&quot = Trim(Upload.Form("checksat&quot)
addApplicant("DayStSun&quot = Trim(Upload.Form("daysts&quot)
addApplicant("DayStMon&quot = Trim(Upload.Form("daystm&quot)
addApplicant("DayStTues&quot = Trim(Upload.Form("daystt&quot)
addApplicant("DayStWed&quot = Trim(Upload.Form("daystw&quot)
addApplicant("DayStThurs&quot = Trim(Upload.Form("daystr&quot)
addApplicant("DayStFri&quot = Trim(Upload.Form("daystf&quot)
addApplicant("DayStSat&quot = Trim(Upload.Form("daystsat&quot)
addApplicant("DayEndSun&quot = Trim(Upload.Form("dayends&quot)
addApplicant("DayEndMon&quot = Trim(Upload.Form("dayendm&quot)
addApplicant("DayEndTues&quot = Trim(Upload.Form("dayendt&quot)
addApplicant("DayEndWed&quot = Trim(Upload.Form("dayendw&quot)
addApplicant("DayEndThurs&quot = Trim(Upload.Form("dayendr&quot)
addApplicant("DayEndFri&quot = Trim(Upload.Form("dayendf&quot)
addApplicant("DayEndSat&quot = Trim(Upload.Form("dayendsat&quot)
addApplicant("AvailStartDate&quot = Trim(Upload.Form("availstdtmo&quot)&"-"&Trim(Upload.Form("availstdtday&quot)&"-"&Trim(Upload.Form("availstdtyr&quot)
addApplicant("ApplySource&quot = Trim(Upload.Form("applysource&quot)
addApplicant("ApplySourceName&quot = Trim(Upload.Form("applysourcename&quot)
addApplicant("YrsOld&quot = Trim(Upload.Form("yrsold&quot)
addApplicant("Immigration&quot = Trim(Upload.Form("immigration&quot)
addApplicant("PreApp&quot = Trim(Upload.Form("preapp&quot)
addApplicant("DateApplied&quot = Trim(Upload.Form("appdtmo&quot)&"-"&Trim(Upload.Form("appdtday&quot)&"-"&Trim(Upload.Form("appdtyr&quot)
addApplicant("PreEmp&quot = Trim(Upload.Form("preemp&quot)
addApplicant("PreEmpStartDate&quot = Trim(Upload.Form("empdtmo&quot)&"-"&Trim(Upload.Form("empdtday&quot)&"-"&Trim(Upload.Form("empdtyr&quot)
addApplicant("PreEmpEndDate&quot = Trim(Upload.Form("empdttomo&quot)&"-"&Trim(Upload.Form("empdttoday&quot)&"-"&Trim(Upload.Form("empdttoyr&quot)
addApplicant("EmpPosition&quot = Trim(Upload.Form("empposition&quot)
addApplicant("HSName&quot = Trim(Upload.Form("hsname&quot)
addApplicant("HSCity&quot = Trim(Upload.Form("hscity&quot)
addApplicant("HSState&quot = Trim(Upload.Form("hsstate&quot)
addApplicant("GradHighSchool&quot = Trim(Upload.Form("gradhs&quot)
addApplicant("College&quot = Trim(Upload.Form("college&quot)
addApplicant("CCity&quot = Trim(Upload.Form("ccity&quot)
addApplicant("CState&quot = Trim(Upload.Form("cstate&quot)
addApplicant("CollegeYrs&quot = Trim(Upload.Form("collegeyrs&quot)
addApplicant("CollegeStudy&quot = Trim(Upload.Form("collegestudy&quot)
addApplicant("CGradDate&quot = Trim(Upload.Form("graddtmo&quot)&"-"&Trim(Upload.Form("graddtyr&quot)
addApplicant("OtherSchooling&quot = Trim(Upload.Form("school&quot)
addApplicant("Lang1&quot = Trim(Upload.Form("lang1&quot)
addApplicant("Lang2&quot = Trim(Upload.Form("lang2&quot)
addApplicant("Lang3&quot = Trim(Upload.Form("lang3&quot)
addApplicant("WPSkills&quot = Trim(Upload.Form("checkwp&quot)
addApplicant("TenKeySkills&quot = Trim(Upload.Form("checkkeyadd&quot)
addApplicant("TypingSkills&quot = Trim(Upload.Form("checktype&quot)
addApplicant("WPM&quot = Trim(Upload.Form("wpm&quot)
addApplicant("CompPrograms&quot = Trim(Upload.Form("compprog&quot)
addApplicant("Skills&quot = Trim(Upload.Form("skills&quot)
addApplicant("LicCert&quot = Trim(Upload.Form("liccert&quot)
addApplicant("Bonded&quot= Trim(Upload.Form("bonded&quot)
addApplicant("CrimCharge&quot = Trim(Upload.Form("crimcharge&quot)
addApplicant("Incid1&quot = Trim(Upload.Form("incid1&quot)
addApplicant("IncidCS1&quot = Trim(Upload.Form("incidcs1&quot)
addApplicant("IncidCharge1&quot = Trim(Upload.Form("incidcharge1&quot)
addApplicant("Incid2&quot = Trim(Upload.Form("incid2&quot)
addApplicant("IncidCS2&quot = Trim(Upload.Form("incidcs2&quot)
addApplicant("IncidCharge2&quot = Trim(Upload.Form("incidcharge2&quot)
addApplicant("AllowBackgrndChk&quot = Trim(Upload.Form("background&quot)
addApplicant("RefName1&quot = Trim(Upload.Form("refname1&quot)
addApplicant("RefAdd1&quot = Trim(Upload.Form("refadd1&quot)
addApplicant("RefPhone1&quot = Trim(Upload.Form("refphone11&quot)&"-"&Trim(Upload.Form("refphone12&quot)&"-"&Trim(Upload.Form("refphone13&quot)
addApplicant("RefRel1&quot = Trim(Upload.Form("refrel1&quot)
addApplicant("RefName2&quot = Trim(Upload.Form("refname2&quot)
addApplicant("RefAdd2&quot = Trim(Upload.Form("refadd2&quot)
addApplicant("RefPhone2&quot = Trim(Upload.Form("refphone21&quot)&"-"&Trim(Upload.Form("refphone22&quot)&"-"&Trim(Upload.Form("refphone23&quot)
addApplicant("RefRel2&quot = Trim(Upload.Form("refrel2&quot)
addApplicant("Emp1&quot = Trim(Upload.Form("emp1&quot)
addApplicant("EmpAdd1&quot = Trim(Upload.Form("empadd1&quot)
addApplicant("EmpCity1&quot = Trim(Upload.Form("empcity1&quot)
addApplicant("EmpState1&quot = Trim(Upload.Form("empstate1&quot)
addApplicant("EmpPhone1&quot = Trim(Upload.Form("empphone11&quot)&"-"&Trim(Upload.Form("empphone12&quot)&"-"&Trim(Upload.Form("empphone13&quot)
addApplicant("EmpTitle1&quot = Trim(Upload.Form("emptitle1&quot)
addApplicant("EmpSup1&quot = Trim(Upload.Form("empsup1&quot)
addApplicant("EmpStartDate1&quot = Trim(Upload.Form("emp1stdtmo&quot)&"-"&Trim(Upload.Form("emp1stdtyr&quot)
addApplicant("EmpEndDate1&quot = Trim(Upload.Form("emp1enddtmo&quot)&"-"&Trim(Upload.Form("emp1enddtyr&quot)
addApplicant("EmpWage1&quot = Trim(Upload.Form("empwage1&quot)
addApplicant("EmpReason1&quot = Trim(Upload.Form("empreason1&quot)
addApplicant("Emp2&quot = Trim(Upload.Form("emp2&quot)
addApplicant("EmpAdd2&quot = Trim(Upload.Form("empadd2&quot)
addApplicant("EmpCity2&quot = Trim(Upload.Form("empcity2&quot)
addApplicant("EmpState2&quot = Trim(Upload.Form("empstate2&quot)
addApplicant("EmpPhone2&quot = Trim(Upload.Form("empphone21&quot)&"-"&Trim(Upload.Form("empphone22&quot)&"-"&Trim(Upload.Form("empphone23&quot)
addApplicant("EmpTitle2&quot = Trim(Upload.Form("emptitle2&quot)
addApplicant("EmpSup2&quot = Trim(Upload.Form("empsup2&quot)
addApplicant("EmpStartDate2&quot = Trim(Upload.Form("emp2stdtmo&quot)&"-"&Trim(Upload.Form("emp2stdtyr&quot)
addApplicant("EmpEndDate2&quot = Trim(Upload.Form("emp2enddtmo&quot)&"-"&Trim(Upload.Form("emp2enddtyr&quot)
addApplicant("EmpWage2&quot = Trim(Upload.Form("empwage2&quot)
addApplicant("EmpReason2&quot = Trim(Upload.Form("empreason2&quot)
addApplicant("Emp3&quot = Trim(Upload.Form("emp3&quot)
addApplicant("EmpAdd1&quot = Trim(Upload.Form("empadd3&quot)
addApplicant("EmpCity3&quot = Trim(Upload.Form("empcity3&quot)
addApplicant("EmpState3&quot = Trim(Upload.Form("empstate3&quot)
addApplicant("EmpPhone3&quot = Trim(Upload.Form("empphone31&quot)&"-"&Trim(Upload.Form("empphone32&quot)&"-"&Trim(Upload.Form("empphone33&quot)
addApplicant("EmpTitle3&quot = Trim(Upload.Form("emptitle3&quot)
addApplicant("EmpSup3&quot = Trim(Upload.Form("empsup3&quot)
addApplicant("EmpStartDate3&quot = Trim(Upload.Form("emp3stdtmo&quot)&"-"&Trim(Upload.Form("emp3stdtyr&quot)
addApplicant("EmpEndDate3&quot = Trim(Upload.Form("emp3enddtmo&quot)&"-"&Trim(Upload.Form("emp3enddtyr&quot)
addApplicant("EmpWage3&quot = Trim(Upload.Form("empwage3&quot)
addApplicant("EmpReason3&quot = Trim(Upload.Form("empreason3&quot)
addApplicant("Emp4&quot = Trim(Upload.Form("emp4&quot)
addApplicant("EmpAdd4&quot = Trim(Upload.Form("empadd4&quot)
addApplicant("EmpCity4&quot = Trim(Upload.Form("empcity4&quot)
addApplicant("EmpState4&quot = Trim(Upload.Form("empstate4&quot)
addApplicant("EmpPhone4&quot = Trim(Upload.Form("empphone41&quot)&"-"&Trim(Upload.Form("empphone42&quot)&"-"&Trim(Upload.Form("empphone43&quot)
addApplicant("EmpTitle4&quot = Trim(Upload.Form("emptitle4&quot)
addApplicant("EmpSup4&quot = Trim(Upload.Form("empsup4&quot)
addApplicant("EmpStartDate4&quot = Trim(Upload.Form("emp4stdtmo&quot)&"-"&Trim(Upload.Form("emp4stdtyr&quot)
addApplicant("EmpEndDate4&quot = Trim(Upload.Form("emp4enddtmo&quot)&"-"&Trim(Upload.Form("emp4enddtyr&quot)
addApplicant("EmpWage4&quot = Trim(Upload.Form("empwage4&quot)
addApplicant("EmpReason4&quot = Trim(Upload.Form("empreason4&quot)
addApplicant("UploadedResume&quot = This is where I want to grab the saved file name
addApplicant("DateAdded&quot = TodaysDate
addApplicant("Status&quot = "Open"
addApplicant.update
'Movelast gets the ID that is automatically generated.
addApplicant.movelast
strID = addApplicant("ID&quot
Set addApplicant = Nothing

 

[iteach2]

You can use frames. Have the top frame pass all your applicant data. Also have a field in the form in the top frame that hold the default path to you file...

http://127.0.0.1/uploaded/

In the bottom frame have your upload script. SO you uplaod the file and then add the file name to path. Example...

http://127.0.0.1/uploaded/fileone.doc.

The database stores the path to the file not the file

 

[humbleprogrammer]

Thanks for the suggestion. I actually solved the problem. I was originally trying to use File.FileName, which is supposed to pull the saved file name. I was going crazy because I kept getting an error. After pulling my hair out, I discovered my ISP doesn't have the latest version of AspUpload, which supports File.FileName. I found out the older version of Asp.Upload uses File.ExtractFileName. It WORKED! Urgh! My ISP just upped the rates and they can't even get the latest versions on their servers. Anyway, thanks for your help.

 

[asppage]

humbelprogrammer, is this a text file that your trying to upload to a database? I've been trying to find out how to do this. Could you help me?

 

[humbleprogrammer]

Hi,

I am actually having it save to a directory on the web server and then saving just the file name in the database. I am then linking to the saved file name in the db. For example, I have the file saving to a directory named UploadedFiles. After the file saves to the directory, I am pulling the file name and saving it to the database field. If I want to link to the database file name I call the path: //pathonserver/uploadedimages/filenameinDB/. I can post some sample code if you would like. Or if you want to post your code, I can take a look at it.

 

[asppage]

It would really help if you showed me some of your examples.

 

[humbleprogrammer]

Hi,

Here is some sample code. Let me know if you have any questions.

<!-- #include file=&quot;DBConnection.asp&quot; -->
<%
t = lcase(left(Request.ServerVariables(&quot;CONTENT_TYPE&quot, 19))

' If form was submitted, uploads attached file to UploadedImages directory.
If t = &quot;multipart/form-data&quot; then
' Uploads File
Dim pathname

Set Upload = Server.CreateObject(&quot;Persits.Upload.1&quot
Upload.OverwriteFiles = False
pathname = &quot;\\afni\UploadedImages&quot; 'Change this as per the connection string FAQ
Upload.save pathname
Set File = Upload.Files(&quot;file&quot


' Saves form data and file name to the database
Dim addApplicant
Dim strID
Set addApplicant = Server.CreateObject(&quot;ADODB.Recordset&quot
addApplicant.open &quot;tblApplicants&quot;, oConn, 2, 2
'Use the addnew method of the recordset object to add a record.
addApplicant.addnew
addApplicant(&quot;CenterName&quot = Trim(Upload.Form(&quot;center&quot)
addApplicant(&quot;FName&quot = Trim(Upload.Form(&quot;FName&quot)
addApplicant(&quot;MName&quot = Trim(Upload.Form(&quot;MName&quot)
addApplicant(&quot;LName&quot = Trim(Upload.Form(&quot;LName&quot)
addApplicant(&quot;SName&quot = Trim(Upload.Form(&quot;SName&quot)
addApplicant(&quot;UploadedResume&quot = File.ExtractFileName 'This is the name of the file that was saved to UploadedImages.
addApplicant(&quot;Status&quot = &quot;Open&quot;
addApplicant.update
Set addApplicant = Nothing




*** Now when you want to display the file from the database, just query the database for the file name and add it behind the path. Example:


RS1 = &quot;SELECT * FROM tblApplicants WHERE ID = 1&quot;
Set RS1 = oConn.Execute(SQL1)

File = &quot;\\afni\UploadedImages\&quot;&Trim(RS1(&quot;UploadedResume&quot)

Set RS1 = Nothing
Set SQL1 = Nothing

You can then add a hyperlink to the File so it opens in the browser.

 

[asppage]

Hello again humbleprogrammer. I found something that I think you may find interesting. This is a script that uploads a text file and then displays it in the browser. Do you think this could be modified to save the text file to a db? Here are the scripts:

UPLOAD.ASP CODE:
<html>
<body>
<pre>

<!--#include virtual=&quot;/includes/upload.inc&quot;-->
<%
if request.servervariables(&quot;CONTENT_LENGTH&quot <> 0 then
field = &quot;field&quot;
SaveFile field,&quot;c:\windows\desktop\web_out.txt&quot;, true

else
%>
<form action=&quot;<%= request.servervariables(&quot;SCRIPT_NAME&quot %>&quot; METHOD=&quot;POST&quot; enctype=&quot;multipart/form-data&quot;>

<input type=&quot;file&quot; name=&quot;field&quot; value=&quot;field&quot; size=&quot;20&quot;>
<input type=&quot;submit&quot; name=&quot;submit&quot; value=&quot;Submit Form&quot;>

</form>
</body>
</html>
<%
end if
%>
</pre>





UPLOAD.INC CODE:
<%

'---------------------------------------------------------------------------
' Save with original filename
'---------------------------------------------------------------------------
Public Function Save(directory, field, overwrite) 'As Boolean
If isPosted Then
Dim filename

filename = directory & GetFileName(field)
SaveFile field,filename,overwrite
End If
End Function

'---------------------------------------------------------------------------
' Save with different filename
'---------------------------------------------------------------------------
Public Function SaveAs(filename, directory, field, overwrite) 'As Boolean
If isPosted Then
Dim filenameAll

filenameAll = directory & filename
SaveFile field,filenameAll,overwrite
End If
End Function

'---------------------------------------------------------------------------
' Look for the specified form field in the data, retrieve its filename
'---------------------------------------------------------------------------


'---------------------------------------------------------------------------
' Get file data from upload, for a specified field
'---------------------------------------------------------------------------
'Private Function GetFileData(field)
' Dim x2
'
' x = InStr(aAllData, aHdr & &quot;Content-Disposition: form-data; name=&quot; & q & field & q)
'
' If x > 0 Then
' x = InStr(x, aAllData, vbCrLf)
' x = InStr(x + 1, aAllData, vbCrLf)
' x = InStr(x + 1, aAllData, vbCrLf) + 2
' x2 = InStr(x, aAllData, Left(aHdr, Len(aHdr) - 2))
'
' GetFileData = Mid(aAllData, x + 2, x2 - x - 4)
' End If
'End Function


'---------------------------------------------------------------------------
' Create an FSO object, save the data to disk
'---------------------------------------------------------------------------
Private Sub SaveFile(aField, aFilename, overwrite) 'As Boolean

Dim x2


If Request.TotalBytes > 0 Then
Dim AllDataB, x

' Set flag for posted data
isPosted = True

' Retrieve post data
q = Chr(34)
aAllDataB = Request.BinaryRead(Request.TotalBytes)

' Convert to Ascii from Unicode
For x = 1 To LenB(aAllDataB)
aAllData = aAllData & Chr(AscB(MidB(aAllDataB, x, 1)))
Next

' Retrieve header
aHdr = Left(aAllData, InStr(aAllData, vbCrLf) + 1)
Else
isPosted = False
End If

x = 0
x = InStr(aAllData, aHdr & &quot;Content-Disposition: form-data; name=&quot; & q & afield & q)




If x > 0 Then
x = InStr(x, aAllData, vbCrLf)
x = InStr(x + 1, aAllData, vbCrLf)
x = InStr(x + 1, aAllData, vbCrLf) + 2
x2 = InStr(x, aAllData, Left(aHdr, Len(aHdr) - 2))

GetFileData = Mid(aAllData, x + 2, x2 - x - 4)
End If

Dim FSO, TS

x = InStr(aAllData, aHdr & &quot;Content-Disposition: form-data; name=&quot; & q & field & q)
If x >0 Then
x = InStr(x, aAllData, &quot;filename=&quot; & q)
x2 = InStr(x, aAllData, vbCrLf)

For i = x2 To x Step -1
If Mid(aAllData, i, 1) = &quot;\&quot; Then
x = i - 9
Exit For
End If
Next

GetFileName = Mid(aAllData, x + 10, x2 - (x + 11))
End If


Set FSO = CreateObject(&quot;Scripting.FileSystemObject&quot
'Set TS = FSO.CreateTextFile(aFilename, overwrite, False) ' final param is unicode
Set TS = FSO.CreateTextFile(&quot;c:\Funbupld\&quot; & getFilename, overwrite, False) ' final param is unicode

TS.Write GetFileData

TS.Close

Set TS = Nothing
Set FSO = Nothing




bout &quot;<h1 align=&quot; & chr(34) & &quot;center&quot; & chr(34) & &quot;>File Contents</h1>&quot;
bout &quot;<center>&quot; & getfilename & &quot;</center><br>&quot;
bout getfiledata

End Sub

public sub bout(msg)
response.write msg
end sub

%>

 

[humbleprogrammer]

Hi,

Asp Upload has an article about saving the file to a db. See

http://www.aspupload.com/manual_db.html.