Access Denied ved Upload af Fil..
Hej eksperter..Når jeg vil Uploade en fil skriver den følgende:
Persits.Upload.1 error '800a0005'
Access is denied.
/news/upload.asp, line 15
Kan det være fordi at WebServeren ikke kører med den Client ??
Mit script ser ud som følgende:
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/em.mdb") & ";UID=admin;PWD=;"
'rs.Open = "Select * From nyheder"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM news"
' Upload filer
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveVirtual("images")
' Gennemløb filerne en for en, så de kan gemmes i DB'en
For Each File In Upload.Files
' Kun filnavnet
strFilename = Right(File.path, Len(File.path) - InStrRev(File.Path, "\"))
' Gem filnavne til senere udskrivning
strFilenavne = strFilnavne & "File: " & strFilename & "<br>"
' Indsæt i DB
Mydate = cDate(date)
dd = day(mydate)
mm = month(mydate)
yy = year(mydate)
MydateFin = dd & "/" & mm & "/" & yy
sql = "Insert Into news(billed, email, navn, info, news, posted) Values('"
sql = sql & FixSQL(strFilename) & "','"
sql = sql & fixSQL(Upload.form("email")) & "','"
sql = sql & fixSQL(Upload.form("navn")) & "','"
sql = sql & fixSQL(Upload.form("info")) & "','"
sql = sql & fixSQL(Upload.form("news")) & "','"
sql = sql & fixSQL(Upload.form("posted")) & "','"
sql = sql & Mydatefin & "')"
Conn.Execute(sql)
next
response.write "File: " & strFilename & "<br>"
%>
