15. december 2000 - 12:48
#4
Okay - jeg smider hele koden her!
Det er ikke meningen at alle upload-felterne skal udfyldes....de er valgfri!
Men jeg opfatter ikke det du skrev som et svar og har derfor afvist det - et svar er for mig noget jeg kan bruge til noget!
Her er 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.OverwriteFiles = False
Upload1.Save Server.MapPath(\"./Dumps\") & \"\\\"
Set Upload2 = Server.CreateObject(\"Persits.Upload.1\")
Upload2.OverwriteFiles = False
Upload2.Save Server.MapPath(\"./Galleri\") & \"\\\"
Set Upload3 = Server.CreateObject(\"Persits.Upload.1\")
Upload3.OverwriteFiles = False
Upload3.Save Server.MapPath(\"./Posters\") & \"\\\"
Set Upload4 = Server.CreateObject(\"Persits.Upload.1\")
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 = Upload.Form(\"edbnr\")
Dump = Upload.Form(\"dump\")
Side1 = Upload.Form(\"side1\")
Galleri1 = Upload.Form(\"galleri1\")
Galleri2 = Upload.Form(\"galleri2\")
Galleri3 = Upload.Form(\"galleri3\")
Galleri4 = Upload.Form(\"galleri4\")
Galleri5 = Upload.Form(\"galleri5\")
Galleri6 = Upload.Form(\"galleri6\")
Galleri7 = Upload.Form(\"galleri7\")
Galleri8 = Upload.Form(\"galleri8\")
Galleri9 = Upload.Form(\"galleri9\")
Galleri10 = Upload.Form(\"galleri10\")
Poster1 = Upload.Form(\"poster1\")
Poster2 = Upload.Form(\"poster2\")
Poster3 = Upload.Form(\"poster3\")
Trailer1 = Upload.Form(\"trailer1\")
Trailer2 = Upload.Form(\"trailer2\")
Set Dump = Upload.Files(\"dump\")
If Dump is nothing Then
Dump1 = \"\"
Else
Dump1 = Dump.ExtractFileName
End if
Set Side1 = Upload.Files(\"side1\")
If Side1 is nothing Then
Side11 = \"\"
Else
Side11 = Side1.ExtractFileName
End if
Set Galleri1 = Upload.Files(\"galleri1\")
If Galleri1 is nothing then
Galleri11 = \"\"
Else
Galleri11 = Galleri1.ExtractFileName
End if
Set Galleri2 = Upload.Files(\"galleri2\")
If Galleri2 is nothing Then
Galleri21 = \"\"
Else
Galleri21 = Galleri2.ExtractFileName
End if
Set Galleri3 = Upload.Files(\"galleri3\")
If Galleri3 is nothing Then
Galleri31 = \"\"
Else
Galleri31 = Galleri3.ExtractFileName
End if
Set Galleri4 = Upload.Files(\"galleri4\")
If Galleri4 is nothing Then
Galleri41 = \"\"
Else
Galleri41 = Galleri4.ExtractFileName
End if
Set Galleri5 = Upload.Files(\"galleri5\")
If Galleri5 is nothing Then
Galleri51 = \"\"
Else
Galleri51 = Galleri5.ExtractFileName
End if
Set Galleri6 = Upload.Files(\"galleri6\")
If Galleri6 is nothing Then
Galleri61 = \"\"
Else
Galleri61 = Galleri6.ExtractFileName
End if
Set Galleri7 = Upload.Files(\"galleri7\")
If Galleri7 is nothing Then
Galleri71 = \"\"
Else
Galleri71 = Galleri7.ExtractFileName
End if
Set Galleri8 = Upload.Files(\"galleri8\")
If Galleri8 is nothing Then
Galleri81 = \"\"
Else
Galleri81 = Galleri8.ExtractFileName
End if
Set Galleri9 = Upload.Files(\"galleri9\")
If Galleri9 is nothing Then
Galleri91 = \"\"
Else
Galleri91 = Galleri9.ExtractFileName
End if
Set Galleri10 = Upload.Files(\"galleri10\")
If Galleri10 is nothing Then
Galleri101 = \"\"
Else
Galleri101 = Galleri10.ExtractFileName
End if
Set Poster1 = Upload.Files(\"poster1\")
If Poster1 is nothing Then
Poster11 = \"\"
Else
Poster11 = Poster1.ExtractFileName
End if
Set Poster2 = Upload.Files(\"poster2\")
If Poster2 is nothing Then
Poster21 = \"\"
Else
Poster21 = Poster2.ExtractFileName
End if
Set Poster3 = Upload.Files(\"poster3\")
If Poster3 is nothing Then
Poster31 = \"\"
Else
Poster31 = Poster3.ExtractFileName
End if
Set Trailer1 = Upload.Files(\"trailer1\")
If Trailer1 is nothing Then
Trailer11 = \"\"
Else
Trailer11 = Trailer1.ExtractFileName
End if
Set Trailer2 = Upload.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 Upload = Nothing
Connect.Close
Set Connect = Nothing
Response.Redirect(\"trin3.asp?action=new\")
End Select
%>
</body>
</html>