Avatar billede webbe Nybegynder
18. december 2000 - 10:01 Der er 20 kommentarer og
1 løsning

Nok et problem!

Jeg er igang med noget upload af filer til forskellige mapper, men har et problem!

Filerne bliver uploaded til den samme mappe, hvilket ikke er hensigtsmæssigt af hensyn til mappestørrelse og alt sådan noget. Jeg bruger 4 forskellige Case \"save\" og de har hver deres navn (Case \"save1\" til Case \"save4\"). Jeg åbner og lukker min Connect i hver Case \"save\".
Den ligger informationerne i den første tabel (den første Case Save den gennemløber), men ikke i de andre....der er det bare en tom post!

Her er mit script:

<%@language=\"VBSCRIPT\" %>
<%
Option Explicit
Response.Buffer = True

Dim Connect, rs, sql1, sql2, sql3, sql4
%>
<html>
<head>
<title>Bagkatalog til film - trin 2</title>
<script language=\"JAVASCRIPT\">
<!--
{
    function checkDump() {
        if (document.forms.form1.dump.value)
            document.forms.form1.dumpexists.value = true;
        else
            document.forms.form1.dumpexists.value = false;
        }
    function checkSide1() {
        if (document.forms.form1.side1.value)
            document.forms.form1.side1exists.value = true;
        else
            docuemnt.forms.form1.side1exists.value = false;
        }
    function checkGalleri1() {
        if (document.forms.form1.galleri1.value)
            document.forms.form1.galleri1exists.value = true;
        else
            document.forms.form1.galleri1exists.value = false;
        }
    function checkGalleri2() {
        if (document.forms.form1.galleri2.value)
            document.forms.form1.galleri2exists.value = true;
        else
            document.forms.form1.galleri2exists.value = false;
        }
    function checkGalleri3() {
        if (document.forms.form1.galleri3.value)
            document.forms.form1.galleri3exists.value = true;
        else
            document.forms.form1.galleri3exists.value = false;
        }
    function checkGalleri4() {
        if (document.forms.form1.galleri4.value)
            document.forms.form1.galleri4exists.value = true;
        else
            document.forms.form1.galleri4exists.value = false;
        }
    function checkGalleri5() {
        if (document.forms.form1.galleri5.value)
            document.forms.form1.galleri5exists.value = true;
        else
            document.forms.form1.galleri5exists.value = false;
        }
    function checkGalleri6() {
        if (document.forms.form1.galleri6.value)
            document.forms.form1.galleri6exists.value = true;
        else
            document.forms.form1.galleri6exists.value = false;
        }
    function checkGalleri7() {
        if (document.forms.form1.galleri7.value)
            document.forms.form1.galleri7exists.value = true;
        else
            document.forms.form1.galleri7exists.value = false;
        }
    function checkGalleri8() {
        if (document.forms.form1.galleri8.value)
            document.forms.form1.galleri8exists.value = true;
        else
            document.forms.form1.galleri8exists.value = false;
        }
    function checkGalleri9() {
        if (document.forms.form1.galleri9.value)
            document.forms.form1.galleri9exists.value = true;
        else
            document.forms.form1.galleri9exists.value = false;
        }
    function checkGalleri10() {
        if (document.forms.form1.galleri10.value)
            document.forms.form1.galleri10exists.value = true;
        else
            document.forms.form1.galleri10exists.value = false;
        }
    function checkPoster1() {
        if (document.forms.form1.poster1.value)
            document.forms.form1.poster1exists.value = true;
        else
            document.forms.form1.poster1exists.value = false;
        }
    function checkPoster2() {
        if (document.forms.form1.poster2.value)
            document.forms.form1.poster2exists.value = true;
        else
            document.forms.form1.poster2exists.value = false;
        }
    function checkPoster3() {
        if (document.forms.form1.poster3.value)
            document.forms.form1.poster3exists.value = true;
        else
            document.forms.form1.poster3exists.value = false;
        }
    function checkTrailer1() {
        if (document.forms.form1.trailer1.value)
            document.forms.form1.trailer1exists.value = true;
        else
            document.forms.form1.trailer1exists.value = false;
        }
    function checkTrailer2() {
        if (document.forms.form1.trailer2.value)
            document.forms.form1.trailer2exists.value = true;
        else
            document.forms.form1.trailer2exists.value = false;
        }
}
//-->
</script>
</head>
<body bgcolor=\"#000000\" text=\"#FFFFFF\" fontface=\"Arial\" fontsize=\"2\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\">
<%
Select Case Request.QueryString(\"action\")

Case \"new\"

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

Response.Write(\"<form name=\"\"form1\"\" method=\"\"POST\"\" action=\"\"trin2.asp?action=save\"\" enctype=\"\"multipart/form-data\"\" onSubmit=\"\"return checkDump(), checkSide1(), checkGalleri1(), checkGalleri2(), checkGalleri3(), checkGalleri4(), checkGalleri5(), checkGalleri6(), checkGalleri7(), checkGalleri8(), checkGalleri9(), checkGalleri10(), checkPoster1(), checkPoster2(), checkPoster3(), checkTrailer1(), checkTrailer2()\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"dumpexists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"side1exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri1exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri2exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri3exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri4exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri5exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri6exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri7exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri8exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri9exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"galleri10exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"poster1exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"poster2exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"poster3exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"trailer1exists\"\" value=\"\"false\"\">\" &_
                \"<input type=\"\"hidden\"\" name=\"\"trailer2exists\"\" value=\"\"false\"\">\" &_
                \"<table width=\"\"600\"\" border=\"\"0\"\" cellpadding=\"\"0\"\">\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Edb-nr.</font><br><input type=\"\"TEXT\"\" name=\"\"edbnr\"\" size=\"\"5\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"2\"\" color=\"\"#FFFFFF\"\"><b>Diverse filer</b></font></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Dump</font><br><input type=\"\"FILE\"\" name=\"\"dump\"\" size=\"\"25\"\"></td><td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Side 1</font><br><input type=\"\"FILE\"\" name=\"\"side1\"\" size=\"\"25\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"2\"\" color=\"\"#FFFFFF\"\"><b>Galleri</b></font></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 1</font><br><input type=\"\"FILE\"\" name=\"\"galleri1\"\" size=\"\"25\"\"></td><td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 2</font><br><input type=\"\"FILE\"\" name=\"\"galleri2\"\" size=\"\"25\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 3</font><br><input type=\"\"FILE\"\" name=\"\"galleri3\"\" size=\"\"25\"\"></td><td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 4</font><br><input type=\"\"FILE\"\" name=\"\"galleri4\"\" size=\"\"25\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 5</font><br><input type=\"\"FILE\"\" name=\"\"galleri5\"\" size=\"\"25\"\"></td><td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 6</font><br><input type=\"\"FILE\"\" name=\"\"galleri6\"\" size=\"\"25\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 7</font><br><input type=\"\"FILE\"\" name=\"\"galleri7\"\" size=\"\"25\"\"></td><td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 8</font><br><input type=\"\"FILE\"\" name=\"\"galleri8\"\" size=\"\"25\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 9</font><br><input type=\"\"FILE\"\" name=\"\"galleri9\"\" size=\"\"25\"\"></td><td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Billede 10</font><br><input type=\"\"FILE\"\" name=\"\"galleri10\"\" size=\"\"25\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"2\"\" color=\"\"#FFFFFF\"\"><b>Posters</b></font></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Poster 1</font><br><input type=\"\"FILE\"\" name=\"\"poster1\"\" size=\"\"25\"\"></td><td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Poster 2</font><br><input type=\"\"FILE\"\" name=\"\"poster2\"\" size=\"\"25\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Poster 3</font><br><input type=\"\"FILE\"\" name=\"\"poster3\"\" size=\"\"25\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"2\"\" color=\"\"#FFFFFF\"\"><b>Trailers</b></font></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Trailer 1</font><br><input type=\"\"FILE\"\" name=\"\"trailer1\"\" size=\"\"25\"\"></td><td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">Trailer 2</font><br><input type=\"\"FILE\"\" name=\"\"trailer2\"\" size=\"\"25\"\"></td></tr>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"<tr valign=\"\"top\"\">\" & \"<td><font face=\"\"Arial\"\" size=\"\"1\"\" color=\"\"#000000\"\">Tom række</font></td></td>\" &_
                \"</table>\" &_
                \"<input type=\"\"submit\"\" name=\"\"Submit\"\" value=\"\" Upload filer \"\">\" &_
                \"</form>\")

Case \"save\"

Dim Upload1, Edbnr, Dump, Dump1, Side1, Side11

Set Upload1 = Server.CreateObject(\"Persits.Upload.1\")
    Upload1.IgnoreNoPost = True \'ignorerer \"Nothing has been posted\" fejlen
    Upload1.OverwriteFiles = False
    Upload1.Save Server.MapPath(\"./Dumps\") & \"\\\"
   
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"bagkat_film\"

\'definerer navne for at undgå replace statements i insert clause
Edbnr = Upload1.Form(\"edbnr\")
Dump = Upload1.Form(\"dump\")
Side1 = Upload1.Form(\"side1\")

Set Dump = Upload1.Files(\"dump\")
    If Dump is nothing Then
        Dump1 = \"\"
    Else
        Dump1 = Dump.ExtractFileName
    End if
   
Set Side1 = Upload1.Files(\"side1\")
    If Side1 is nothing Then
        Side11 = \"\"
    Else
        Side11 = Side1.ExtractFileName
    End if
   
sql1 = \"INSERT INTO Film_dump_side1 (Edbnr, Dump, Side1) VALUES(\"&\"\'\"&edbnr&\"\', \'\"&dump1&\"\', \'\"&side11&\"\')\"
Connect.Execute(sql1)

Set Upload1 = Nothing
Connect.Close
Set Connect = Nothing

Response.Redirect(\"trin2.asp?action=save2\")

\'Case save2
Case \"save2\"

Dim  Upload2, Galleri1, Galleri11, Galleri2, Galleri21, Galleri3, Galleri31, Galleri4, Galleri41, Galleri5, Galleri51, Galleri6, Galleri61, Galleri7, Galleri71, Galleri8, Galleri81, Galleri9, Galleri91, Galleri10, galleri101

Set Upload2 = Server.CreateObject(\"Persits.Upload.1\")
    Upload2.IgnoreNoPost = True \'ignorerer \"Nothing has been posted\" fejlen
    Upload2.OverwriteFiles = False
    Upload2.Save Server.MapPath(\"./Galleri\") & \"\\\"
   
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"bagkat_film\"

\'definerer navne for at undgår replace statements i insert clause
Galleri1 = Upload2.Form(\"galleri1\")
Galleri2 = Upload2.Form(\"galleri2\")
Galleri3 = Upload2.Form(\"galleri3\")
Galleri4 = Upload2.Form(\"galleri4\")
Galleri5 = Upload2.Form(\"galleri5\")
Galleri6 = Upload2.Form(\"galleri6\")
Galleri7 = Upload2.Form(\"galleri7\")
Galleri8 = Upload2.Form(\"galleri8\")
Galleri9 = Upload2.Form(\"galleri9\")
Galleri10 = Upload2.Form(\"galleri10\")

Set Galleri1 = Upload2.Files(\"galleri1\")
    If Galleri1 is nothing then
        Galleri11 = \"\"
    Else
        Galleri11 = Galleri1.ExtractFileName
    End if

Set Galleri2 = Upload2.Files(\"galleri2\")
    If Galleri2 is nothing Then
        Galleri21 = \"\"
    Else
        Galleri21 = Galleri2.ExtractFileName
    End if
   
Set Galleri3 = Upload2.Files(\"galleri3\")
    If Galleri3 is nothing Then
        Galleri31 = \"\"
    Else
        Galleri31 = Galleri3.ExtractFileName
    End if
   
Set Galleri4 = Upload2.Files(\"galleri4\")
    If Galleri4 is nothing Then
        Galleri41 = \"\"
    Else
        Galleri41 = Galleri4.ExtractFileName
    End if
   
Set Galleri5 = Upload2.Files(\"galleri5\")
    If Galleri5 is nothing Then
        Galleri51 = \"\"
    Else
        Galleri51 = Galleri5.ExtractFileName
    End if
   
Set Galleri6 = Upload2.Files(\"galleri6\")
    If Galleri6 is nothing Then
        Galleri61 = \"\"
    Else
        Galleri61 = Galleri6.ExtractFileName
    End if
   
Set Galleri7 = Upload2.Files(\"galleri7\")
    If Galleri7 is nothing Then
        Galleri71 = \"\"
    Else
        Galleri71 = Galleri7.ExtractFileName
    End if
   
Set Galleri8 = Upload2.Files(\"galleri8\")
    If Galleri8 is nothing Then
        Galleri81 = \"\"
    Else
        Galleri81 = Galleri8.ExtractFileName
    End if
   
Set Galleri9 = Upload2.Files(\"galleri9\")
    If Galleri9 is nothing Then
        Galleri91 = \"\"
    Else
        Galleri91 = Galleri9.ExtractFileName
    End if
   
Set Galleri10 = Upload2.Files(\"galleri10\")
    If Galleri10 is nothing Then
        Galleri101 = \"\"
    Else
        Galleri101 = Galleri10.ExtractFileName
    End if
   
sql2 = \"INSERT INTO Film_galleri (Edbnr, Galleri1, Galleri2, Galleri3, Galleri4, Galleri5, Galleri6, Galleri7, Galleri8, Galleri9, Galleri10) VALUES(\"&\"\'\"&edbnr&\"\', \'\"&galleri11&\"\', \'\"&galleri21&\"\', \'\"&galleri31&\"\', \'\"&galleri41&\"\', \'\"&galleri51&\"\', \'\"&galleri61&\"\', \'\"&galleri71&\"\', \'\"&galleri81&\"\', \'\"&galleri91&\"\', \'\"&galleri101&\"\')\"
Connect.Execute(sql2)

Set Upload2 = Nothing
Connect.Close
Set Connect = Nothing

Response.Redirect(\"trin2.asp?action=save3\")

\'Case save3
Case \"save3\"

Dim Upload3, Poster1, Poster11, Poster2, Poster21, Poster3, Poster31

Set Upload3 = Server.CreateObject(\"Persits.Upload.1\")
    Upload3.IgnoreNoPost = True \'ignorerer \"Nothing has been posted\" fejlen
    Upload3.OverwriteFiles = False
    Upload3.Save Server.MapPath(\"./Posters\") & \"\\\"
   
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"bagkat_film\"

\'definerer navne for at undgå replace statements i insert clause
Poster1 = Upload3.Form(\"poster1\")
Poster2 = Upload3.Form(\"poster2\")
Poster3 = Upload3.Form(\"poster3\")

Set Poster1 = Upload3.Files(\"poster1\")
    If Poster1 is nothing Then
        Poster11 = \"\"
    Else
        Poster11 = Poster1.ExtractFileName
    End if
   
Set Poster2 = Upload3.Files(\"poster2\")
    If Poster2 is nothing Then
        Poster21 = \"\"
    Else
        Poster21 = Poster2.ExtractFileName
    End if
   
Set Poster3 = Upload3.Files(\"poster3\")
    If Poster3 is nothing Then
        Poster31 = \"\"
    Else
        Poster31 = Poster3.ExtractFileName
    End if
   
sql3 = \"INSERT INTO Film_poster (Edbnr, Poster1, Poster2, Poster3) VALUES(\"&\"\'\"&edbnr&\"\', \'\"&poster11&\"\', \'\"&poster21&\"\', \'\"&poster31&\"\')\"
Connect.Execute(sql3)

Set Upload3 = Nothing
Connect.Close
Set Connect = Nothing

Response.Redirect(\"trin2.asp?action=save4\")


\'Case save4
Case \"save4\"

Dim Upload4, Trailer1, Trailer11, Trailer2, Trailer21

Set Upload4 = Server.CreateObject(\"Persits.Upload.1\")
    Upload4.IgnoreNoPost = True \'ignorerer \"Nothing has been posted\" fejlen
    Upload4.OverwriteFiles = False
    upload4.Save Server.MapPath(\"./Trailers\") & \"\\\"
   
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"bagkat_film\"

\'definerer navne for at undgå replace statements i insert clause
Trailer1 = Upload4.Form(\"trailer1\")
Trailer2 = Upload4.Form(\"trailer2\")
   
Set Trailer1 = Upload4.Files(\"trailer1\")
    If Trailer1 is nothing Then
        Trailer11 = \"\"
    Else
        Trailer11 = Trailer1.ExtractFileName
    End if
   
Set Trailer2 = Upload4.Files(\"trailer2\")
    If Trailer2 is nothing Then
        Trailer21 = \"\"
    Else
        Trailer21 = Trailer2.ExtractFileName
    End if
   
sql4 = \"INSERT INTO Film_trailer (Edbnr, Trailer1, Trailer2) VALUES(\"&\"\'\"&edbnr&\"\', \'\"&trailer11&\"\', \'\"&trailer21&\"\')\"
Connect.Execute(sql4)

Set Upload4 = Nothing
Connect.Close
Set Connect = Nothing

Response.Redirect(\"trin3.asp?action=new\")

End Select
%>
</body>
</html>

Jeg vil gerne have hjælpe til en løsning der tager udgangspunkt i det jeg allerede har lavet!
Avatar billede meyer Nybegynder
18. december 2000 - 10:04 #1
Prøv lige at checke hvad din internetudbyder gør med komponentet og hvor du kan gemme henne med det !!

Hos Scannet f.eks. kan du KUN uploade i \"log\"-skuffen :-)
Avatar billede tdaugaard Nybegynder
18. december 2000 - 10:06 #2
Den udfører kun koden imellem

Case \"save\" og Case \"save2\" ikke ?

Det er den måde Select Case er lavet på..
Avatar billede webbe Nybegynder
18. december 2000 - 10:13 #3
Meyer!

Det er på vores egen server, så jeg kan gemme hvor jeg har lyst!
Avatar billede tdaugaard Nybegynder
18. december 2000 - 10:14 #4
Eller var det det der var problemet ?
Avatar billede webbe Nybegynder
18. december 2000 - 10:15 #5
tdaugaard!

Øøøøøhhh - den skulle gerne udføre koden mellem Case \"save\" og Case \"save4\"!

Hvordan skal jeg så lave min select case?
Avatar billede tdaugaard Nybegynder
18. december 2000 - 10:17 #6
webbe:> ahh ..  Select Case virker på den her måde:

Select Case noget
  Case \"fem\"
  Case \"fire\"
  Case \"otte\"
End Select

kun Een af Case\'rne bliver udført alt efter hvad \"noget\" indeholder.
Avatar billede tdaugaard Nybegynder
18. december 2000 - 10:18 #7
Men hvis alt mellem Case \"Save\" og Case \"save4\" skal udføres hvis Case \"save\" kommer \"igennem\" så sletter du bare alle Case \"save#\" og lader Case \"save\" være tilbage..
Avatar billede tdaugaard Nybegynder
18. december 2000 - 10:19 #8
det var da en frygtelig masse \"case\" ;o)
Avatar billede webbe Nybegynder
18. december 2000 - 10:19 #9
Jamn - den skal jo løbe alle mine cases igennem.....er jo fordi de enkelte filer skal gemmes i forskellige mapper!

Det skal være på samme side!
Avatar billede tdaugaard Nybegynder
18. december 2000 - 10:21 #10
jeg kigger lige på hele scriptet..
Avatar billede webbe Nybegynder
18. december 2000 - 10:22 #11
tdaugaard!

Jamn altså - når den ene case save er færdig laver jeg jo en response.redirect til samme fil, men hvor case save er noget andet.

Fx. for case \"save2\"
    response.redirect(\"trin2.asp?action=save3\")

Og sån\' skal den blive ved indtil case \"save4\" er færdig og derefter gå videre til trin 3
Avatar billede tdaugaard Nybegynder
18. december 2000 - 10:24 #12
Nåå .. på den måde ... okai.. men det kan ikke lade sig gøre når du uploader filer, for ligeså snart du redirecter så \"mister\" den dataene ..
Avatar billede webbe Nybegynder
18. december 2000 - 10:25 #13
Damn - hvad skal jeg så gøre???
Avatar billede tdaugaard Nybegynder
18. december 2000 - 10:26 #14
Min comp FUCKER lige i øjeblikket (HADER WIN98\'!!!!!) men når den kører OK igen så kigger jeg lige på scriptet og ser om jeg kan \"omskrive\" det så det funker.
Avatar billede webbe Nybegynder
18. december 2000 - 10:28 #15
Oki - spanks man!

Tar\' sq hatten af for dig!
Du blir\' min helt hvis du kan omskrive det så det funker! ;o)
Avatar billede tdaugaard Nybegynder
18. december 2000 - 10:32 #16
webbe:> *G* nu kører min comp fint igen ;-) (der er intet som en reset knap! *S*)
Avatar billede webbe Nybegynder
18. december 2000 - 10:34 #17
*LOL*
Nix - ham der opfandt den var sq lidt genial! *GGG*
Avatar billede tdaugaard Nybegynder
18. december 2000 - 11:05 #18
webbe:> sorry .. det er for stort og roddet til at jeg kan finde ud af at rette det til .. jeg har desværre ikke så megen erfaring med upload komponenter endnu, så det er svært for mig at fatte det. I\'m sorry :-( Jeg prøvede. .
Avatar billede webbe Nybegynder
18. december 2000 - 11:07 #19
Hmmmm - shit oxo.....men tak fordi du prøvede...men må jo så desværre afvise dit svar!

Håber ikke du føler dig uretfærdigt behandlet!
Avatar billede tdaugaard Nybegynder
18. december 2000 - 11:09 #20
\'Så lidt :-)

Totalt man!!! jeg synes i hvert fald godt du kunne have givet mig .0000001 point som tak for jeg gad prøve!! *LÅÅÅL*, nej du fik jo ikke løst det .. så det er helt ok
Avatar billede webbe Nybegynder
19. december 2000 - 09:31 #21
Lukker spørgsmålet da jeg har fundet en alternativ løsning på problemet, men ikke den løsning jeg helst ville have!
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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