<%@language=vbscript%> <% dim Uploader 'Get reference to ASPUploader: set Uploader = GetASPUploader file1=Uploader.Form("File1") Uploader.Overwrite = true 'Use either physical (C:\Temp), relative (..\Temp), or virtual ("/Temp") paths: Uploader.Destination = server.mappath("/images") 'Set longer timeout for large files if needed: Server.ScriptTimeout = 900 'Enable error handling: 'on error resume next 'Start receiving and saving file(s): Uploader.Upload 'update database 'insert into the database Set rs = Server.CreateObject("ADODB.Recordset") Dim strTableName strTableName = "banquet_menu where banquetID=13" rs.Open strTableName, objConn2, adOpenForwardOnly, adLockOptimistic, adCmdTable 'Add a new record... 'rs.AddNew if Uploader.Files.Exists("File1") then rs("banquetImage")="http://www.theoldsanfrancisco.com/images/" & Uploader.Files("File1").Name end if rs.Update Response.Redirect "/administrator/default.asp?page=banquetmenu" 'Check for errors: if Err then 'Show error message: Response.Write "Upload canceled or error occured
" Response.Write Err.Source & ": " & Err.Description else 'Report successful upload: Response.Write Uploader.Files.Count & " file(s) successfully uploaded
" 'Response.Write "Value of Text1 field: " & Uploader.Form("Text1") end if %>