Upload til mappe + filnavn til DB

Jeg skal uploade to filer til en mappe, samt indsætte filnavnene i DB. Men får en ukendt fejl.

Er der nogen der kan hjælpe

/haase


Her kommer koden:


<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<!--#include file="../connections/adovbs.inc"-->
<%

If (Request.ServerVariables("CONTENT_LENGTH") > 0) Then

Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/portfolio/_dbport/portdb.mdb")
objConn.Open strConn

Set rsRef = Server.CreateObject("ADODB.Recordset")

strTitel = Replace(Request.Form("titel") , "'", "''")
strBeskrivelse = Replace(Request.Form("beskrivelse") , "'", "''")
strDato = Replace(Request.Form("dato") , "'", "''")
strLilleBillede = Request.Form("LilleBillede")
strStortBillede = Request.Form("StortBillede")
strLink = Replace(Request.Form("dato") , "'", "''")


rsRef.CursorLocation = adUseServer
rsRef.CursorType = adOpenKeyset
rsRef.LockType = adLockOptimistic
rsRef.Open "Ref", objConn, , , adCmdTable



    Set Upload = Server.CreateObject("Persits.Upload")

    ' we use memory uploads, so we must limit file size
    Upload.SetMaxSize 999999999, True

    ' Save to memory. Path parameter is omitted
    Upload.Save

    ' Check whether a file was selected
    Set File = Upload.Files("strLilleBillede")
    If Not File Is Nothing Then

        ' Obtain file name
        strLilleBillede = file.Filename

        ' check if file exists in c:\upload under this name
        If Upload.FileExists("D:\My Documents\Websites\portfolio\_refbilleder\" & filename ) Then
            Response.Write "Filen med dette navn eksisterer allerede."
        Else
            ' otherwise save file
            File.SaveAs "D:\My Documents\Websites\portfolio\_refbilleder\" & File.Filename
            Response.Write "Filen er gemt som " & File.Path
        End If
    Else ' file not selected
        Response.Write "Filen er ikke valgt."
    End If
   
           
   
    ' Save to memory. Path parameter is omitted
    Upload.Save
   
    ' Check whether a file was selected
    Set File = Upload.Files("strStortBillede")
    If Not File Is Nothing Then

        ' Obtain file name
        strStortBillede = file.Filename

        ' check if file exists in c:\upload under this name
        If Upload.FileExists("D:\My Documents\Websites\portfolio\_refbilleder\" & filename ) Then
            Response.Write "Filen med dette navn eksisterer allerede."
        Else
            ' otherwise save file
            File.SaveAs "D:\My Documents\Websites\portfolio\_refbilleder\" & File.Filename
            Response.Write "Filen er gemt som " & File.Path
        End If
    Else ' file not selected
        Response.Write "Filen er ikke valgt."
    End If
   



rsRef.AddNew
strTitel = rsRef("RefTitel")
strBeskrivelse = rsRef("RefBeskrivelse")
strLink = rsRef("RefLink")
strLilleBillede = rsRef("RefBillede")
strStortBillede = rsRef("RefBilledeStort")
strDato = rsRef("RefDato")
rsRef.Update



rsRef.Close
Set objConn  = Nothing
Response.Redirect ("http://www.dr.dk")

%>
<% Else %>

HTML DEL

<% End If %>