Hvad er der galt!?

Det er dit ASP (VBScript) der sutter :-(

Hmmmm - damn....var det jeg frygtede....men kan jo ikke se hvad linie det er i....det skriver den jo ikke!

Nej .. det er forbandet irriterende med Unexpected Error\'s ..

... at smide noget kode *bitte*

Okay - her kommer koden:

<%@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, Upload2, Upload3, Upload4, Edbnr, Dump, Dump1, Side1, Side11, Galleri1, Galleri11, Galleri2, Galleri21, Galleri3, Galleri31, Galleri4, Galleri41, Galleri5, Galleri51, Galleri6, Galleri61, Galleri7, Galleri71, Galleri8, Galleri81, Galleri9, Galleri91, Galleri10, galleri101, Poster1, Poster11, Poster2, Poster21, Poster3, Poster31, Trailer1, Trailer11, Trailer2, Trailer21

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 Upload2 = Server.CreateObject(\"Persits.Upload.1\")
    Upload2.IgnoreNoPost = True \'ignorerer \"Nothing has been posted\" fejlen
    Upload2.OverwriteFiles = False
    Upload2.Save Server.MapPath(\"./Galleri\") & \"\\\"
   
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 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
Edbnr = Upload1.Form(\"edbnr\")
Dump = Upload1.Form(\"dump\")
Side1 = Upload1.Form(\"side1\")
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\")
Poster1 = Upload3.Form(\"poster1\")
Poster2 = Upload3.Form(\"poster2\")
Poster3 = Upload3.Form(\"poster3\")
Trailer1 = Upload4.Form(\"trailer1\")
Trailer2 = Upload4.Form(\"trailer2\")

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
   
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
   
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
   
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
   
sql1 = \"INSERT INTO Film_dump_side1 (Edbnr, Dump, Side1) VALUES(\"&\"\'\"&edbnr&\"\', \'\"&dump1&\"\', \'\"&side11&\"\')\"
Connect.Execute(sql1)

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)

sql3 = \"INSERT INTO Film_poster (Edbnr, Poster1, Poster2, Poster3) VALUES(\"&\"\'\"&edbnr&\"\', \'\"&poster11&\"\', \'\"&poster21&\"\', \'\"&poster31&\"\')\"
Connect.Execute(sql3)

sql4 = \"INSERT INTO Film_trailer (Edbnr, Trailer1, Trailer2) VALUES(\"&\"\'\"&edbnr&\"\', \'\"&trailer11&\"\', \'\"&trailer21&\"\')\"
Connect.Execute(sql4)

Set Upload1 = Nothing
Set Upload2 = Nothing
Set Upload3 = Nothing
Set Upload4 = Nothing
Connect.Close
Set Connect = Nothing

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

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

... den ser bekendt ud ...
har du et andet spørgsmål om samme kilde ?

ellebaek!

Jo - men der er det et andet problem....har også ændret i koden siden jeg oprettede det spørgsmål!

Lukker spørgsmålet, da jeg i forbindelse med at jeg rettede noget andet i min kode nu ikke længere får ovennævnte fejlmeddelelse!

*S*
lækkert ...