Upload og omdøb med Dundas upload komponent

Prøv at slå denne fra:
funktioner -> internetindstillinger -> avanceret -> fjern kryds i "ved meddelelse om uskadelige http-fejl"
Så skulle du få en bedre fejl kode/beskrivelse

Tak - nu kan jeg da se fejlmedd.

Dundas.Upload.2 error '80004005'

Can't open file for writing.

/demobil/upload.asp, line 36 (dette er "Upload.Save "D:\server.dk\demobil\auto")


Jeg sender lige hele koden for jeg ved ikke hvad jeg skal gøre :-(

' ************************ kode start
<%
Function ShowPath()
    sti = Replace(Request.ServerVariables("PATH_INFO"), "auto/", "")
    strCut = instrrev(sti, "/")
    ShowPath = Left(sti, strCut)
End Function
If request("id") = "" Then
                tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("auto.mdb")
                Set rs = Server.CreateObject("ADODB.RecordSet")
                strSQL = "SELECT TOP 1 ID FROM auto ORDER BY ID DESC"
                rs.Open strSQL, tempConn, 1, 3
                    intID = rs("ID")
                rs.close
                set rs = nothing
        Else
                intID = request("id")
        End If
       
            '  Variables
            '  *********
            Dim Upload
            Dim file
            Dim intCount
            intCount=0
                   
            '  Object creation
            '  ***************

            Set Upload = Server.CreateObject("Dundas.Upload.2")
            upload.UseUniqueNames = false


            '  Upload
            '  ******
if intId <> "" then
Upload.Save "D:\server.dk\demobil\auto"
for each file in Upload.Files
intID = intId
upload.copy("auto/" & intId & "." & file.ImageType)

    next
    end if
%>

' ************************ kode slut

Har IUSER_MACHINENAME / Internet Guest Account for NT / 2000 skrive rettighed til foldere auto hvor filerne gemmes?

JA - jeg har givet ALLE skrive rettighed for at udelukke den mulighed

Hmm skal der \ efter auto?
Fejlen hentyder til at den ikke kan åbne filen...

Upload.Save "D:\server.dk\demobil\auto\"

Ja - så kom jeg da lidt længere :-)

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'ImageType'

/demobil/upload.asp, line 39

Hvis det er en file object og du vil havde efternanvet jpg/gif mf så skal du bruge FileSystemObject til at finde efternavnet:

set fs=Server.CreateObject("Scripting.FileSystemObject")


uoload.Copy("auto/" & intId & "." & fs.GetExtensionName(file))

Så får jeg fejl her - men jeg tror det er tæt på :-)

upload.Copy("auto/" & intId & "." & fs.GetExtensionName(file))

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'GetExtensionName'

/demobil/upload_pic.asp, line 42

Arh det skal også være file.name:

upload.Copy("auto/" & intId & "." & fs.GetExtensionName(file.name))

Den bliver ved :-)

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'name'

/demobil/upload_pic.asp, line 42

Hmm det var mærkeligt. Er det ikke et fil object.

Jeg har kigger på dunpas dokumentation og er kommet til det måske skal være OriginalPath i stedet for name:

upload.Copy("auto/" & intId & "." & fs.GetExtensionName(file.OriginalPath))

Jeg kan ikke gøre for det :-)

Object doesn't support this property or method: 'Copy'

Jo - det er en lille gif-fil

Det hedder enten filecopy eller filemove se mere her:

.FileCopy
http://www.dundas.com/products/onlineDocs/FreeProds/Upload/FileCopy_(Dundas_Upload_Control).htm

.FileMove
http://www.dundas.com/products/onlineDocs/FreeProds/Upload/FileMove_(Dundas_Upload_Control).htm

Dundas online dok: http://www.dundas.com/products/onlineDocs/FreeProds/Dunsam.htm

Jeg håber du kan bruge det og komme vidre med for jeg er desvære nød til at løbe for i aften.

Hvis du skal hvade flyttet/kopieret en fil efter den er uploaded er det måske lettere at bruge FSO til det..:

Move:  http://www.w3schools.com/asp/met_movefile.asp

Copy:  http://www.w3schools.com/asp/met_copyfile.asp

Ok - jeg må kigge på det i aften, men som sikert har opdaget så er jeg ikke særlig god til det der asp :-)

Lukket