Underlig fejl.

Kan du ikke vise din kode. Så er det lidt nemmere at finde fejlen.

<%
\'on error resume next

\'dim navn, email, picture

if request.form(\"email\") <> \"\" then

set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"datbas.mdb\")

navn = Len(request.form(\"navn\"))
email = Len(request.form(\"email\"))
picture = Len(request.Form(\"File1\"))

sql=\"INSERT INTO desktops (navn, email, picture) VALUES (\'\" & navn & \"\', \'\" & email & \"\', \'\" & picture & \"\')\"
conn.Execute(sql)

    set conn = nothing

end if
Dim upl, NewFileName
 
Set upl = Server.CreateObject(\"ASPSimpleUpload.Upload\")
 
If Len(upl.Form(\"File1\")) > 0 Then

    NewFileName = \"/Desktops/\" & upl.ExtractFileName(upl.Form(\"File1\"))
    If upl.SaveToWeb(\"File1\", NewFileName) Then
        Response.Write(\"Your file have sucessfully been placed i the archive.\") 
    Else
        Response.Write(\"An error occured. Try again!\")
    End If

End If
%>

Linje 25 :  If Len(upl.Form(\"File1\")) > 0 Then

hvad er det egentlig du spørger om i den linie, er det det samme som:

If picture > 0 Then


ved mærkelige fejl er det i øvrigt tit en god ide at kigge på Microsofts side og søge på BinaryRead...

Fejlen kommer fra ASPSimpleUpload.Upload komponenten og siger...

At du IKKE må bruge Request.Form

Alle formfelter skal sikkert hentes via upl-objektet.

brite >> Det er i øvrigt ikke en MS komponent, så det hjælper nok ikke at søge hos MS.

Da jeres svar ikke egentligt hjalp mig, men en ven over ICQ gjorde det har jeg lige et lille bonus-spørgsmål:

Hvordan får jeg lavet:

Documents and Settings\\Administrator.PHILIP\\My Documents\\My Pictures\\Sample.jpg

Om til kun at indeholde filens navn:
Sample.jpg

?!?!?

Søger efter \"\\\" bagfra. Prøv at kigge efter noget der ligner InStr.

Du kan få 30 i stedet for 15 her:

http://www.eksperten.dk/spm/142910