hjææælp

Hvordan ser din linie ud der hvor der står Server.MapPath(path)???

sådan ser uploadpro.asp ud::
<%thisuser = session(\"devusername\")%>
<html>
<head>
<link rel=\"stylesheet\" href=\"/dev/dev.css\">
<script>
<!--
function uploadComplete(NewFileName){
var oldChild=opener.document.getElementById(\"file\").childNodes[0]
var newText=opener.document.createTextNode(NewFileName)
opener.document.getElementById(\"file\").replaceChild(newText,oldChild)
opener.document.postform.upfile.value=NewFileName
opener.focus();
self.close();
}
//-->
</script>
</head>
<body>

<%
Dim upl, NewFileName , newFileExt,upfile
 
Set upl = Server.CreateObject(\"ASPSimpleUpload.Upload\")
upfile=upl.form(\"File1\")
NewFileName = \"/dev/releases/uploads/\"& thisuser & \"/\" & upl.ExtractFileName(upfile)
If upl.SaveToWeb(\"File1\", NewFileName) Then
    Response.Write(\"<body onload=\"\"self.focus();\"\">\")
    Response.Write(\"<center>File successfully uploaded.<br><br>\")
    Response.write (\"<input type=\"\"button\"\" value=\"\"click to proceed\"\" class=\"\"cmdflat\"\" onclick=\"\"uploadComplete(\'\"&upl.ExtractFileName(upfile)&\"\');\"\"></center>\")
    Response.Write(\"</body>\")
Else
    Response.Write(\"There was an error saving the file to disk.\")
End If

set upl=nothing
%>
</body>
</html>

når jeg uploader til min egen computer er der intet problem ? Det er kun når jeg gør det til serveren.

Prøv at erstatte:

NewFileName = \"/dev/releases/uploads/\"& thisuser & \"/\" & upl.ExtractFileName(upfile)

med

NewFileName = \"./dev/releases/uploads/\"& thisuser & \"/\" & upl.ExtractFileName(upfile)

Når man kører serverafvikling skal der ofte et punktum til før man angiver stien! ;0)

desværre det gik ikke, samme fejl :-( det vorkede heller ikke med 2 punktummer

Plejer normalt at bruge Persits.Upload og der bruger man følgende for at angive hvilken mappe den skal ligge i:

Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Upload.OverWriteFiles = False
Upload.Save = Server.MapPath(\"./mappe/\") & \"\\\"

Som jeg ser dit script så vil du angive et filnavn for den uploadede fil....du har ikke nogen server.mappath nogen steder!

Kan give dig et fuldstændigt script der virker med Persits.Upload hvis det har interesse - komponentet er dog ikke helt gratis!

Kan poste det imorgen hvis det er!

ok, det vil jeg gerne

Fino - poster det til dig imorgen så - det ligger nemlig på vores server! ;0)

jeg er ved at arbejde med et helt site jeg har downloadet, måske var det noget for dig??

Hmmmm - måske....du kunne jo maile det til mig, så skal jeg prøve at kigge på det....hvis det altså ikke er alt for omfattende! ;0)

Ellers er du velkommen til at kontakte mig når du støder ind i problemer - er nok den løsning jeg helst vil, da jeg jo har et job at passe og meget lidt fritid! *G*

Har du ICQ, så er mit nummer 31690437, eller mail til mig på michaelpe@scanbox.com

det er meget omfattende du kan se det her http://www.eksperten.dk/spm/110429

Så lad os tage den løsning hvor du kontakter mig når støder ind i problemer....det er vist det letteste!
Så hjælper jeg dig med det jeg kan! ;0)

Her er mit script, med Persits.Upload:

<%
Select Case Request.QueryString(\"action\")

Case \"save\"

Dim Upload, sql1, sql2, sql3, Varenr, Titel, Udgivet, Om_filmen, DVD_format, Billedformat, Lydformat,  Anmeldelse, Trailer_link, Maaned, Dump, Dump1, PDF_fil, PDF_fil1, Trailer_low, Trailer_low1, Trailer_high, Trailer_high1

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"dns_name\"

Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Upload.OverWriteFiles = False
Upload.Save Server.MapPath(\"./../Images/dvd_dk\") & \"\\\"

\'definerer variable for at undgå replace statements i insert clause
Varenr = Upload.Form(\"varenr\")
Titel = Upload.Form(\"titel\")
Udgivet = Upload.Form(\"udgivet\")
Om_filmen = Upload.Form(\"om_filmen\")
DVD_format = Upload.Form(\"dvd_format\")
Billedformat = Upload.Form(\"billedformat\")
Lydformat = Upload.Form(\"lydformat\")
Anmeldelse = Upload.Form(\"anmeldelse\")
Maaned = Upload.Form(\"maaned\")
Dump = Upload.Form(\"dump\")
PDF_fil = Upload.Form(\"pdf_fil\")
Trailer_low = Upload.Form(\"low\")
Trailer_high = Upload.Form(\"high\")

Set Dump = Upload.Files(\"dump\")
    If Dump is nothing Then
        Dump1 = \"\"
    Else
        Dump1 = Dump.ExtractFileName
    End if
   
Set PDF_fil = Upload.Files(\"pdf_fil\")
    If PDF_fil is nothing Then
        PDF_fil1 = \"\"
    Else
        PDF_fil1 = PDF_fil.ExtractFileName
    End if
   
Set Trailer_low = Upload.Files(\"low\")
    If Trailer_low is nothing Then
        Trailer_low1 = \"\"
    Else
        Trailer_low1 = Trailer_low.ExtractFileName
    End if
   
Set Trailer_high = Upload.Files(\"high\")
    If Trailer_high is nothing Then
        Trailer_high1 = \"\"
    Else
        Trailer_high1 = Trailer_high.ExtractFileName
    End if
   
sql1 = \"INSERT INTO DVD_main (Varenr, Titel, Udgivet, Om_filmen, DVD_format, Billedformat, Lydformat, Anmeldelse, Maaned) VALUES (\"&\"\'\"&varenr&\"\', \'\"&titel&\"\', \'\"&udgivet&\"\', \'\"&om_filmen&\"\', \'\"&dvd_format&\"\', \'\"&billedformat&\"\', \'\"&lydformat&\"\', \'\"&anmeldelse&\"\', \'\"&maaned&\"\')\"
Connect.Execute(sql1)

sql2 = \"INSERT INTO DVD_pics (Varenr, Dump, PDF_fil) VALUES (\"&\"\'\"&varenr&\"\', \'\"&Dump1&\"\', \'\"&PDF_fil1&\"\')\"
Connect.Execute(sql2)

sql3 = \"INSERT INTO Trailer (Varenr, Trailer_low, Trailer_high) VALUES (\"&\"\'\"&varenr&\"\', \'\"&Trailer_low1&\"\', \'\"&Trailer_high1&\"\')\"
Connect.Execute(sql3)

Set Upload = Nothing
Connect.Close
Set Connect = Nothing

Response.Redirect(\"filmlist.asp\")

End Select
%>

Her bruger jeg både billedfiler, PDF-filer og mpg-filer, så det er ikke fordi det er forkerte filtyper der bruges.....selv om man kan lave tjek på om det er den rigtige filtype hvis man vil!