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