<%@LANGUAGE="VBSCRIPT"%> <%Option Explicit%> <% Dim Upload, uploadArray, fileName, newFileName, fso, imageTitle, imageDesc, conn, strSQL 'Set ASPUpload and grab file Set Upload = Server.CreateObject("Persits.Upload.1") Upload.SaveVirtual("/uploads") 'get real filename from end of path uploadArray = split((Upload.Files(1).Path),"\") fileName = uploadArray(ubound(uploadArray)) 'get form details imageTitle = Upload.Form("imageTitle") imageDesc = Upload.Form("imageDesc") 'remove single quotes from title and description imageTitle = Replace(imageTitle, "'", "''") imageDesc = Replace(imageDesc, "'", "''") 'make a new filename newFileName = Now() & fileName newFileName = Replace(newFileName, " ", "_") newFileName = Replace(newFileName, "/", "") newFileName = Replace(newFileName, "\", "") newFileName = Replace(newFileName, ":", "") 'rename file Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile Server.MapPath("/uploads/" & fileName), Server.MapPath("/uploads/" & newFileName) set fso = nothing set Upload = nothing 'insert details into the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=F:\Databases\photoalbum.mdb;" & _ "Jet OLEDB:Database" strSQL = "INSERT INTO tblImages (imageTitle, imageDesc, imageFilename) VALUES ('" & imageTitle & "','" & imageDesc & "','" & newFileName & "')" conn.execute(strSQL) %> Thankyou for uploading your Photograph

Upload Successful

Your file <%=imageTitle%> (<%=fileName%>) was successfully uploaded. Thank you.

<%=imageTitle%>

Add another photograph