Upload resize
HejMit foto upload virker faktisk fint, men jeg kunne godt tænke mig, at i stedet for MaxFileSize kunne lægge noget resize-kode ind, er det muligt, og hvordan og hvor?
mvh S.
<%
Server.ScriptTimeout = 3600
brugernavn=request("brugernavn")
On Error Resume Next
' Object creation
Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
'Max størrelse i bytes
upload.MaxFileSize =50000
'Upload filerne til memory
upload.Upload
For each file In upload.Files
If not file.IsMissing Then
file.SaveAs("upload/" & brugernavn & file.FileName)
session("filename1") = brugernavn & file.FileName
end if
next
' Trap errors
If Err Then
response.redirect("login.asp?mode=" & ("own_profile") & "&info=" & ("foto_forkert") & "")
End If
%>
<!--#include file="conn.asp"-->
<%
SQL = "UPDATE bruger SET foto ='" & session("filename1") & "' WHERE brugernavn='" & brugernavn & "'"
Conn.Execute(SQL)
response.write ("ok")
Conn.Close
Set Conn = Nothing
%>