Jeg kan ikke finde ud af både at slette en fil i en db og fra en
mappe. Jeg har et midlertidigt script som ikke virker... Hjælp
slet.asp
*************
<head>
</head>
<BODY BGCOLOR="white">
<%
' Variables
' *********
Dim oConn
Dim objFSO
Dim ObjFile
Dim DefaultDir
Dim fil
Dim oRs
DefaultDir = Server.MapPath("Upload")
fil = request.Form("FILENAME")
' Object creation
' ***************
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFSO.deleteFile(DefaultDir & "fil") <---
LINIE 22
ObjFile.Close
set ObjFile = Nothing
set ObjFSO = Nothing
' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("test.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver
(*.mdb)};DriverId=25;FIL=MS Access;"
' Open a recordset
' ****************
strSQL = "select * from person"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open
' delete the current file from a DB field
' **********************************
oRs.delete
ors("username") = request.Form("username")
oRs("FILENAME") = request.Form("FILENAME")
oRs.Update
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
</BODY>
</HTML>
*************************'
Jeg får fejlen:
Microsoft VBScript runtime error '800a0035'
File not found
/slet.asp, line 22
Jeg håber nogen kan hjælpe
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials