<%@ Language=VBScript %> JJO Construction
<% ' **************************************************** ' Change the value of the variable below to the pathname ' of a directory with write permissions, for example "C:\Inetpub\wwwroot" Dim uploadsDirVar uploadsDirVar = "\\jjo-master\WebSite\uploads\resumes\" ' **************************************************** ' Note: this file uploadTester.asp is just an example to demonstrate ' the capabilities of the freeASPUpload.asp class. There are no plans ' to add any new features to uploadTester.asp itself. Feel free to add ' your own code. If you are building a content management system, you ' may also want to consider this script: http://www.webfilebrowser.com/ function OutputForm() response.write "

" response.write "Browse for Your Resume:
" response.write "
" response.write "" response.write "


" end function function TestEnvironment() Dim fso, fileName, testFile, streamTest TestEnvironment = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FolderExists(uploadsDirVar) then TestEnvironment = "Folder " & uploadsDirVar & " does not exist.
The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if fileName = uploadsDirVar & "\test.txt" on error resume next Set testFile = fso.CreateTextFile(fileName, true) If Err.Number<>0 then TestEnvironment = "Folder " & uploadsDirVar & " does not have write permissions.
The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if Err.Clear testFile.Close fso.DeleteFile(fileName) If Err.Number<>0 then TestEnvironment = "Folder " & uploadsDirVar & " does not have delete permissions, although it does have write permissions.
Change the permissions for IUSR_computername on this folder." exit function end if Err.Clear Set streamTest = Server.CreateObject("ADODB.Stream") If Err.Number<>0 then TestEnvironment = "The ADODB object Stream is not available in your server.
Check the Requirements page for information about upgrading your ADODB libraries." exit function end if Set streamTest = Nothing end function function SaveFiles Dim Upload, fileName, fileSize, ks, i, fileKey, DBFileName(3), DBFileName1, DBFileName2, DBFileName3 Set Upload = New FreeASPUpload Upload.Save(uploadsDirVar) ' If something fails inside the script, but the exception is handled If Err.Number<>0 then Exit function SaveFiles = "" ks = Upload.UploadedFiles.keys if (UBound(ks) <> -1) then for each fileKey in Upload.UploadedFiles.keys SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName 'Response.Write filekey &" - " & Upload.UploadedFiles(fileKey).FileName & "
" 'Response.Write SaveFiles next body = "Date: " & date & " Time: " & time & VbCrLf & VbCrLf body = body & "See the attached resume." Dim iMsg Set iMsg = CreateObject("CDO.Message") Dim iConf Set iConf = CreateObject("CDO.Configuration") Dim Flds Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdobasic Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "webform" Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "websmtp" Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.jjoconstruction.com" Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False Flds.Update Set iMsg.Configuration = iConf 'iMsg.To = "pete@ghiis.com" iMsg.To = "maryann@jjoconstruction.com" iMsg.From = "admin@jjoconstruction.com" iMsg.Subject = "Employment Resume Attached" iMsg.TextBody = body iMsg.AddAttachment "\\jjo-Master\WebSite\uploads\resumes\"&SaveFiles iMsg.Send else SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system." end if end function %> <% Dim diagnostics if Request.ServerVariables("REQUEST_METHOD") <> "POST" then diagnostics = TestEnvironment() if diagnostics<>"" then response.write "
" response.write diagnostics response.write "

After you correct this problem, reload the page." response.write "

" else response.write "
" OutputForm() response.write "
" end if else response.write "
" OutputForm() response.write "Thank you! The following file was sent: "&SaveFiles()&"" response.write "

" end if %>