Upload til access
Hej jeg står med et lille problem, jeg er ved at få lavet noget med upload billed til accessdatabase, men det virker ikke helt, er der nogen der kan se hvad der er galt.Jeg skal have den til at først skal man kunne uploade et billede, men hvis man så uploader et nyt billed, skal det gamle slettes, både fra accessdatabasen og i mappen..
Her er koden:
<html>
<head>
<title>Upload af billede</title>
</head>
<body leftmargin=0 rightmargin=0>
<center>
<!-- #include file="opendb.asp" -->
<%
Set Upload = Server.CreateObject("Persits.Upload")
sql="select billedsti from bruger where id=" & session("brugeronline")
set rs=conn.execute(sql)
if not rs.eof then
' slet gamle uploadede fil
sletfil="min sti" & rs("billedsti")
response.write "Har slettet det tidligere uploadede billede" & rs("billedsti") & "<br><br>"
Upload.DeleteFile sletfil
end if
' Limit file size to 100000 bytes, throw an exception if file is larger
Upload.SetMaxSize 100000, True
Upload.OverwriteFiles = False
' Intercept all exceptions to display user-friendly error
On Error Resume Next
' Perform upload
Upload.Save "min sti"
' 8 is the number of "File too large" exception
If Err.Number = 8 Then
Response.Write "Filen er for stor. Du kan højest uploade 100.000 bytes (100KB). Prøv venligst igen."
Else
For Each File in Upload.Files
sql="update bruger set pic=1 where id=" & session("brugeronline")
conn.execute(sql)
filnavn=File.FileName
' SQL sætning opbygges
strSQL = "Update bruger set "
strSQL = strSQL & "navn='" & upload.form("navn") & "', "
strSQL = strSQL & "brugernavn='" & upload.form("brugernavn") & "', "
strSQL = strSQL & "billedsti='" & "images/" & filnavn & "', "
strSQL = strSQL & "password='" & upload.form("password") & "'"
strSQL = strSQL & " Where Id =" & session("brugeronline")
conn.execute(strsql)
Next
%>
<%
End If
response.redirect "info.asp?id=" & session("brugeronline")
%>
</center>
</body>
</html>
