Notifikationer

Markér alle som læst Log ud

killstun Nybegynder

20. marts 2006 - 13:15 Der er 21 kommentarer og
1 løsning

SoftArtisans.FileUp med if sætning?

Hvordan kan jeg anvende SoftArtisans.FileUp og tilføje if sætning? Grunden til at jeg spørger er fordi hvis mit upload felt ikke udfyldes kommer denne fejl:

SoftArtisans.SAFile.1 error '80020009'
Invalid destination file name.

Scriptet ser således ud:
<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("billeder")
upl.Save
filnavn = Mid(upl.ServerName, InstrRev(upl.ServerName, "\") + 1)
%>

Jeg har prøvet med følgende ting:
<%
if rs("file") <> "" then
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("billeder")
upl.Save
filnavn = Mid(upl.ServerName, InstrRev(upl.ServerName, "\") + 1)
end if
%>

- men dette giver bare denne fejl:
Microsoft VBScript runtime error '800a01a8'
Object required: "

Nogle som kan hjælpe?

Synes godt om

cyberkox Nybegynder

20. marts 2006 - 13:19 #1

if request.fom("file") <> "" then

Upload

end if

?

Synes godt om

killstun Nybegynder

20. marts 2006 - 13:28 #2

Nej, man skal bruge upl.form når der anvendes SoftArtisans.SAFile.

Jeg har også lige en rettelse til det afsnit jeg har afprøvet. Der skrev jeg forkert, så det skal hedde upl.form i stedet for rs... Dette var dog ikke problemet.

<%
if upl.form("file") <> "" then
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("billeder")
upl.Save
filnavn = Mid(upl.ServerName, InstrRev(upl.ServerName, "\") + 1)
end if
%>

Synes godt om

killstun Nybegynder

20. marts 2006 - 13:29 #3

Fatter ikke helt hvorfor den ikke godkender ovenstående. Får stadig fejlen:
Microsoft VBScript runtime error '800a01a8'
Object required: ''

Synes godt om

cyberkox Nybegynder

20. marts 2006 - 13:32 #4

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("billeder")
if upl.form("file") <> "" then
upl.Save
filnavn = Mid(upl.ServerName, InstrRev(upl.ServerName, "\") + 1)
end if
%>
Sådan der må det være ?

Synes godt om

cyberkox Nybegynder

20. marts 2006 - 13:34 #5

Du skal have upl.form under "set upl ="

Det burde virke sådan ?

Synes godt om

killstun Nybegynder

20. marts 2006 - 13:50 #6

Nej, det hjælper ingenting. Den kommer med fejlen:
SoftArtisans.SAFile.1 error '80020009'
Invalid destination file name

Jeg skriver lige herunder et udsnit fra begge filer:

upload.html:
<form enctype='multipart/form-data' action='teamredigersql.asp' method='post'>
<input size='58' type='file' name='file'>
<input type='submit' value='Upload' />

upload.asp:
<%@ LANGUAGE="VBSCRIPT" %>
<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("billeder")
if upl.form("file") <> "" then
upl.Save
filnavn = Mid(upl.ServerName, InstrRev(upl.ServerName, "\") + 1)
end if
%>

Synes godt om

killstun Nybegynder

20. marts 2006 - 13:51 #7

rettelse: upload.asp hedder teamredigersql.asp

Synes godt om

cyberkox Nybegynder

20. marts 2006 - 14:46 #8

Hvis du submitter formen, UDEN at skrive noget i feltet FILE, hvad siger den så?

Synes godt om

killstun Nybegynder

20. marts 2006 - 14:50 #9

Så kommer den med ovenstående fejl:
Microsoft VBScript runtime error '800a01a8'
Object required: ''

Hvis feltet udfyldes er der ingen problemer. Så uploader den fint og kommer ikke med fejl. Derfor mangler jeg bare noget, som gør at den overser:

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("billeder")
upl.Save
filnavn = Mid(upl.ServerName, InstrRev(upl.ServerName, "\") + 1)
%>

- hvis der ikke udfyldes noget i file feltet fra foregående upload.html....

Synes godt om

cyberkox Nybegynder

20. marts 2006 - 14:51 #10

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
if upl.form("file") <> "" then
upl.Path = Server.Mappath ("billeder")
upl.Save
filnavn = Mid(upl.ServerName, InstrRev(upl.ServerName, "\") + 1)
else
response.write "Du har ikk valgt nogen fil"
end if
%>

Synes godt om

cyberkox Nybegynder

20. marts 2006 - 15:15 #11

Prøv med det ?

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
if upl.form("file") <> "" then
upl.Path = Server.Mappath ("billeder")
upl.Save
filnavn = Mid(upl.ServerName, InstrRev(upl.ServerName, "\") + 1)
else
response.write "Du har ikk valgt nogen fil"
end if
%>

Synes godt om

killstun Nybegynder

20. marts 2006 - 15:22 #12

hmmm, den siger:

SoftArtisans.SAFile.1 error '80020009'
Invalid destination file name.

Synes godt om

cyberkox Nybegynder

20. marts 2006 - 15:27 #13

Hmm, overser den upl.form("file") ?

Er du sikker på at Name="file" i inputet:

<input size='58' type='file' name='file'>

Synes godt om

killstun Nybegynder

20. marts 2006 - 15:29 #14

Den hedder:

<input size='58' type='file' name='file'>

Synes godt om

cyberkox Nybegynder

20. marts 2006 - 15:30 #15

Prøv lige at udskrive upl.form("file") og se hvad der kommer frem ?

Synes godt om

killstun Nybegynder

20. marts 2006 - 15:41 #16

Jamen, jeg kan ikke udskrive strengen medmindre jeg udfylder feltet. Ellers kommer den bare med fejl (hvis jeg udfylder feltet og udksriver strengen, skriver den filnavnet)...

Feltet kan heller ikke være forkert, da alt virker fint hvis jeg vælger en fil. Problemet opstår først når jeg lader feltet være blankt. Fatter ingenting???

Synes godt om

cyberkox Nybegynder

20. marts 2006 - 15:51 #17

Hvis du fjerner IF sætningen og ikke skriver noget i formen, hvilken fejl kommer den så med ?

Den her:

SoftArtisans.SAFile.1 error '80020009'
Invalid destination file name.

?

Synes godt om

killstun Nybegynder

20. marts 2006 - 22:10 #18

Jeg sad oppe på arbejdet, så var nødt til at gå. Men jeg afprøver lige i morgen tidlig og vender tilbage med svaret. På forhånd, tak for hjælpen :-)

Synes godt om

killstun Nybegynder

21. marts 2006 - 08:53 #19

Ja, hvis jeg fjerner if sætning kommer fejlen:

SoftArtisans.SAFile.1 error '80020009'
Invalid destination file name.

Synes godt om

eagleeye Praktikant

21. marts 2006 - 09:20 #20

Hvis problemet opstår når du ikke overføre en fil så prøv sådan her:

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
if upl.UserFilename <> "" then
upl.Path = Server.Mappath ("billeder")
upl.Save
filnavn = Mid(upl.ServerName, InstrRev(upl.ServerName, "\") + 1)
end if
%>

Synes godt om

killstun Nybegynder

21. marts 2006 - 09:58 #21

Yes sir! Nu virker det sq. Tusind tak eagleeye :-) Hvis du lige smider et svar.

Synes godt om

eagleeye Praktikant

21. marts 2006 - 10:04 #22

Ja det vil jeg da meget gerne :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS