help adding a 2nd Browse box & 2nd SUBMIT button

ChrisJ 15 Newbie Poster
16 Years Ago
I'm using FreeASPupload script and it works successfully.
I'd like to get some guidance on how to modify to add a second Browse Box and second Submit Button, so these uploaded files can go to a second directory destination. Thanks.
I believe this is the script page (of two) that would need the modification:
<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="aspupload.asp" -->
<%

' ****************************************************
  Dim uploadsDirVar
  uploadsDirVar = "C:/Folder_1/"
' ****************************************************
function OutputForm()
%>
    <form name="frmSend" method="POST" enctype="multipart/form-data" action="uploadTester.asp" onSubmit="return onSubmitForm();">
 <B>File names:</B><br>
    File 1: <input name="attach1" type="file" size=35><br>
    File 2: <input name="attach2" type="file" size=35><br>
    File 3: <input name="attach3" type="file" size=35><br>
    File 4: <input name="attach4" type="file" size=35><br>
    <br>
 <!-- These input elements are obviously optional and just included here for demonstration purposes -->
 <B>Additional fields (demo):</B><br>
 Enter a number: <input type="text" name="enter_a_number"><br>
    Checkbox values: <input type="checkbox" value="1" name="checkbox_values">-1 <input type="checkbox" value="2" name="checkbox_values">-2<br>
 <!-- End of additional elements -->
    <input style="margin-top:4" type=submit value="Upload">
    </form>
<%
end function
function TestEnvironment()
    Dim fso, fileName, testFile, streamTest
    TestEnvironment = ""
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    if not fso.FolderExists(uploadsDirVar) then
        TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
        exit function
    end if
    fileName = uploadsDirVar & "\test.txt"
    on error resume next
    Set testFile = fso.CreateTextFile(fileName, true)
    If Err.Number<>0 then
        TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
        exit function
    end if
    Err.Clear
    testFile.Close
    fso.DeleteFile(fileName)
    If Err.Number<>0 then
        TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder."
        exit function
    end if
    Err.Clear
    Set streamTest = Server.CreateObject("ADODB.Stream")
    If Err.Number<>0 then
        TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries."
        exit function
    end if
    Set streamTest = Nothing
end function
function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey
    Set Upload = New FreeASPUpload
    Upload.MaxFileSize = 10000
    Upload.Save(uploadsDirVar)
 ' If something fails inside the script, but the exception is handled
 If Err.Number<>0 then Exit function
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        SaveFiles = "<B>Files uploaded:</B> "
        for each fileKey in Upload.UploadedFiles.keys
            SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
        next
    else
        SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
    end if
 SaveFiles = SaveFiles & "<br>Enter a number = " & Upload.Form("enter_a_number") & "<br>"
 SaveFiles = SaveFiles & "Checkbox values = " & Upload.Form("checkbox_values") & "<br>"
end function
%>
 
<HTML>
<HEAD>
<Title>WTA</Title>
<style type="text/css">
body {margin: 1px 100px; 0px 100px;
padding: 1px;}
</style>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0"  body {border-left: 1px solid #000; }>
<TABLE cellSpacing=0 valign=top cellPadding=0 width=100% border=0>
 <TR valign=middle height=10>
  <TD class=headera1><IMG src="/images/clear.gif" height=1 width=159 border=0></TD>
  <TD width="100%" align=right class=headera2>&nbsp;</TD>
 </TR>
 <TR>
   <TD class=headera3><IMG src="/images/clear.gif" height=1 width=159 border=0></TD>
  <TD width="100%" align=right class=headera4>&nbsp;</TD>
  </tr>
<TR valign=top>
  <TD><!--<IMG src="/smusermanager/images/logo1.gif" height=150 width=159 border=0>--></TD>
  <TD valign=left width=795 height=1><!--<font class=setuptext><IMG src="/smusermanager/images/clear.gif">--><IMG src="/images/topimg11.jpg">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<IMG src="/images/topimg2.jpg"></font></TD>
 </TR>
 <TR valign=top height=1>
  <TD colspan=2 class=black><IMG src="/images/clear.gif" height=1 width=100% border=0></TD>
 </TR>
</TABLE>
</TD>
<TABLE cellSpacing=20 valign=top cellPadding=0 height=100% width=100% border=0>
 <TR valign=top>
  <TD width=10%>
   <TABLE cellSpacing=0 valign=top cellPadding=0 width=100% border=0>
    <TR valign=middle>
     <TD valign=middle class=lightgrey><IMG src="/images/clear.gif" height=20 width=160 align=absmiddle></TD>
    </TR>
    <TR valign=top height=2>
     <TD><IMG src="/images/clear.gif" height=2 width=160 border=0></TD>
    </TR>
    <!--<TR valign=top height=3>
     <TD class=gray><IMG src="/images/clear.gif" height=3 width=160 border=0></TD>
    </TR>-->
   </TABLE>

   <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
    <TR>
     <TD><font class=tbody>
     <!--<IMG src="/smusermanager/images/sepline130.gif"><br>
     <font class=smallheading><b>Navigation Menu</b></font><br>
     <IMG src="/smusermanager/images/sepline130.gif">-->

   <form action="/smusermanager/members/default.asp?action=login" method=post name=login language="JAVASCRIPT" onsubmit="return Validate();"><input type=hidden name=todo value="login"><input type=hidden name=url value="/smusermanager/members/default.asp">
<table border=0 cellspacing=0 cellpadding=0 width=95% align=center class=colorformborder><tr class=colorformborder><td><table border=0 cellspacing=0 width=100% cellpadding=0><tr class=colorformborder><td colspan=2><table border=0 cellspacing=1 cellpadding=5 width=100% colspan=2><tr class=colorformheader><td colspan=2><font class=textsize9><font color=white><b>Login Here</b></font></td></tr>
<tr class=colorformfields><td align=center colspan=2><font class=textsize9></font></td></tr><tr class=colorformfieldsalt><td align=right width=50% ><font class=textsize9>Email Address</font></td><td><font class=textsize9><input class=fieldbox type=text size=20 maxlength=50 name="members_username"></font></td></tr>
<tr class=colorformfields><td align=right width=20% ><font class=textsize9>Password</font></td><td><font class=textsize9><input class=fieldbox type=password size=20 maxlength=50 name="members_password"></font></td></tr><tr class=colorformfields><td colspan=2 align=right><font class=textsize9><input class=fieldbox type=submit value="Login" id=submit2 name=submit2></font></td></tr>
</td></tr></table></td></tr></table></td></tr></table></form>
<div style="padding-left: 24px;"> <font face="Arial" color="#000000" size="3"><img src="/images/Hphone.gif" style="vertical-align: middle;"> <a href="?action=login">&nbsp;&nbsp;Home</a><br><br>
      <IMG src="/images/clear.gif" width=1 height=5><br><!--<IMG src="/images/hphone1.gif">--><img src="/images/hphone1.gif" style="vertical-align: middle;"><a href="?action=register">&nbsp;&nbsp;Register</a><br><br>
      <IMG src="/images/clear.gif" width=1 height=5><br><!--<IMG src="/images/hphone2.gif">--><img src="/images/hphone2.gif" style="vertical-align: middle;"><a href="?action=forgotusername">&nbsp;&nbsp;FAQ</a><br><br>
      <IMG src="/images/clear.gif" width=1 height=5><br><!--<IMG src="/images/hphone3.gif">--><img src="/images/hphone3.gif" style="vertical-align: middle;"><a href="?action=forgotusername">&nbsp;&nbsp;Terms Of Use</a><br><br>
      <IMG src="/images/clear.gif" width=1 height=5><br><!--<IMG src="/images/hphone4.gif">--><img src="/images/hphone4.gif" hspace="4px" style="vertical-align: middle;">
<a href="?action=forgotusername">&nbsp;&nbsp;Contact Us</a><br><br>
                        <IMG src="/images/clear.gif" width=1 height=5><br><!--<IMG src="/images/hphone5.gif">--><img src="/images/hphone5.gif" style="vertical-align: middle;"><a href="?action=forgotpass">&nbsp;&nbsp;Forgot Password</a><br><br>
      <IMG src="/images/clear.gif" width=1 height=5><br><!--<IMG src="/images/hphone7.gif">--><img src="/images/hphone7.gif" style="vertical-align: middle;"><a href="?action=forgotusername">&nbsp;&nbsp;Forgot Username</a></font></div>
     <!--<IMG src="/smusermanager/images/clear.gif" width=1 height=5><br><IMG src="/smusermanager/images/link_arrow.gif"> <a href="?action=maillist">Newsletter</a>-->
     </font>
<!--<IMG src="/images/headphone.gif">-->
</TD>
    </TR>
   </TABLE>
  </TD>
  <TD width="1" height=100% background="/smusermanager/images/dot.gif">
   <TABLE cellSpacing=0 valign=top cellPadding=0 width=1 border=0>
    <TR valign=middle>
     <TD valign=middle class=lightgrey><IMG src="/smusermanager/images/clear.gif" height=20 width=1 align=absmiddle></TD>
    </TR>
    <TR valign=top height=2>
     <TD class=white><IMG src="/smusermanager/images/clear.gif" height=2 width=1 border=0></TD>
    </TR>
    <TR valign=top height=3>
     <TD class=gray><IMG src="/smusermanager/images/clear.gif" height=3 width=1 border=0></TD>
    </TR>
   </TABLE>

</TD>
  <TD width=100%  style="border-left: Solid #EE7600 3px;">
   <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
    <TR valign=middle>
     <TD valign=middle class=lightgrey><IMG src="/smusermanager/images/clear.gif" height=20 width=1 align=absmiddle></TD>
    </TR>
    <TR valign=top height=2>
     <TD class=white><IMG src="/smusermanager/images/clear.gif" height=2 width=1 border=0></TD>
    </TR>
    <TR valign=top height=3>
     <TD class=gray><IMG src="/smusermanager/images/clear.gif" height=3 width=11 border=0></TD>
    </TR>
    <TR>
     <TD valign=top><font class=tbody>
     <style>
.fieldbox
{
    BACKGROUND: #ffffff;
    BORDER-BOTTOM: #666666 1px solid;
    BORDER-LEFT: #666666 1px solid;
    BORDER-RIGHT: #666666 1px solid;
    BORDER-TOP: #666666 1px solid;
    COLOR: #333333;
    FONT-FAMILY: Verdana, Helvetica, Arial;
    FONT-SIZE: 13px
}
.colorwhite
{
    BACKGROUND-COLOR: white
}
.colorblack
{
    BACKGROUND-COLOR: black
}
.colortopbar
{
    BACKGROUND-COLOR: #999966
}
.colormenubar
{
    BACKGROUND-COLOR: #999966
}
.colormenufields
{
    BACKGROUND-COLOR: #cccc99
}
.colorformborder
{
    BACKGROUND-COLOR: #ffffff
}
.colorformheader
{
    BACKGROUND-COLOR: #A30100
}
.colorformfields
{
    BACKGROUND-COLOR: #ffffff
}
.colorformfieldsalt
{
    BACKGROUND-COLOR: #ffffff
}
.colorformresponse
{
    BACKGROUND-COLOR: white
}
.textsize16 A
{
    COLOR: navy;
    FONT-FAMILY: Verdana, Arial, helvetica;
    FONT-SIZE: 16pt;
    TEXT-DECORATION: none
}
.textsize16 A:active
{
    COLOR: navy;
    FONT-FAMILY: verdana, arial, helvetica;
    FONT-SIZE: 16pt
}
.textsize16 A:hover
{
    COLOR: navy;
    FONT-FAMILY: verdana, arial,
helvetica;
    FONT-SIZE: 16pt;
    TEXT-DECORATION: none
}
.textsize9
{
    COLOR: black;
    FONT-FAMILY: Verdana, Helvetica, Arial;
    FONT-SIZE: 9pt;
    LINE-HEIGHT: normal;
    TEXT-DECORATION: none
}
.textsize9 A
{
    COLOR: navy;
    FONT-FAMILY: Verdana, Arial, helvetica;
    FONT-SIZE: 19pt;
    TEXT-DECORATION: none
}
.textsize9 A:active
{
    COLOR: navy;
    FONT-FAMILY: verdana, arial, helvetica;
    FONT-SIZE: 19pt
}
.textsize9 A:hover
{
    COLOR: navy;
    FONT-FAMILY: verdana, arial,
helvetica;
    FONT-SIZE: 19pt;
    TEXT-DECORATION: none
}
.textsize8
{
    COLOR: black;
    FONT-FAMILY: Verdana, Helvetica, Arial;
    FONT-SIZE: 18pt;
    LINE-HEIGHT: normal;
    TEXT-DECORATION: none
}
.textsize8 A
{
    COLOR: navy;
    FONT-FAMILY: Verdana, Arial, helvetica;
    FONT-SIZE: 18pt;
    TEXT-DECORATION: none
}
.textsize8 A:active
{
    COLOR: navy;
    FONT-FAMILY: verdana, arial, helvetica;
    FONT-SIZE: 18pt
}
.textsize8 A:hover
{
    COLOR: navy;
    FONT-FAMILY: verdana, arial,
helvetica;
    FONT-SIZE: 18pt;
    TEXT-DECORATION: none
}
.textsize16
{
    COLOR: red;
    FONT-FAMILY: Verdana, Helvetica, Arial;
    FONT-SIZE: 16pt;
    TEXT-DECORATION: none
}
.headera1 {BACKGROUND-COLOR: #A30100; border-bottom: 5px solid #FCB514; }
.headera2 {BACKGROUND-COLOR: #A30100; border-bottom: 5px solid #FCB514; }
.headera3 {BACKGROUND-COLOR: #ffffff; border-top: 1px solid #}
.headera4 {BACKGROUND-COLOR: #ffffff; border-top: 1px solid #}
.black {BACKGROUND-COLOR: white}
.white {BACKGROUND-COLOR: }
.lightgrey {BACKGROUND-COLOR: #ffffff}
.gray {BACKGROUND-COLOR: #ffffff}

.link {FONT-SIZE: 18pt;COLOR: ffffff;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.link A {COLOR: white;TEXT-DECORATION: none}
.link A:active {COLOR: white;TEXT-DECORATION: none}
.link A:hover {COLOR: white;TEXT-DECORATION: none}
.linksmall {FONT-SIZE: 18pt;COLOR: #99ccff;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.linksmall A {COLOR: #99ccff;TEXT-DECORATION: none}
.linksmall A:active {COLOR: #99ccff;TEXT-DECORATION: none}
.linksmall A:hover {COLOR: #3366ff;TEXT-DECORATION: none}
.pathlink {FONT-SIZE: 7.5pt;COLOR: #666666;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.pathlink A {COLOR: #666666;TEXT-DECORATION: none}
.pathlink A:active {COLOR: #666666;TEXT-DECORATION: none}
.pathlink A:hover {COLOR: #666666;TEXT-DECORATION: none}
.setuptext {FONT-SIZE: 24pt;COLOR: lightgrey;FONT-weight: bold;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.setuptextsmall {FONT-SIZE: 10pt;COLOR: lightgrey;FONT-weight: bold;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.heading {FONT-SIZE: 10pt;COLOR: #6384ad;FONT-weight: bold;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.smallheading {FONT-SIZE: 8pt;COLOR: #6384ad;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.tbody {FONT-SIZE: 12pt;COLOR: black;LINE-HEIGHT: 13pt;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.tbody A {COLOR: #000000;TEXT-DECORATION: none}
.tbody A:active {COLOR: #6384ad;TEXT-DECORATION: none}
.tbody A:hover {COLOR: #6384ad;TEXT-DECORATION: underline}
.textred {FONT-SIZE: 8pt;COLOR: #BD0000;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.textgreen {FONT-SIZE: 8pt;COLOR: #008000;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.textnavy {FONT-SIZE: 8pt;COLOR: #333399;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
.textgray {FONT-SIZE: 8pt;COLOR: gray;FONT-STYLE: italic;FONT-FAMILY: Verdana, sans-serif, Helvetica, Arial;}
/* START CSS */
#content {
    float: left;
    width: 596px;
    padding-left: 20px;
    background-color: #ffffff;
}
#column1 {
       float: left;
       padding: 0px;
       padding-right:0px
       padding-left: 0px;
       background-color: #ffffff;
       width: 270px;
}
#column2 {
       float: left;
       margin:0
       padding: 10px;
       padding-left: 20px;
       padding right: 0px
       background-color: #AAAAAA;
       width: 240px;
}

/* END CSS */
</style>
<SCRIPT LANGUAGE="JavaScript">errorcolor = '#eeeeee';</Script>
<table cellspacing=0 border=0 cellpadding=40 width=100% align=left>
 <tr>
  <td align=left valign=middle>
<script language="JAVASCRIPT">
 var errfound = false;
  function ValidLength(item, len) {
     return (item.length >= len);
  }
  function error(elem, text) {
     if (errfound) return;
     window.alert(text);
     elem.select();
     elem.focus();
     elem.style.backgroundColor=errorcolor;
     errfound = true;
  }
  function Validate() {
     errfound = false;
     d=document.login
     if (!ValidLength(d.members_username.value,1))error(d.members_username,"Username should not be blank.");
     if (!ValidLength(d.members_password.value,1))error(d.members_password,"Password should not be blank.");
     return !errfound;
  }
</script>
<TR valign=top>
<div style="border:0px solid #000000; width: 705px; padding-left: 75px; text-align:top;">

<style>
BODY {background-color: white;font-family:arial; font-size:12}
</style>
<script>
function onSubmitForm() {
    var formDOMObj = document.frmSend;
    if (formDOMObj.attach1.value == "" && formDOMObj.attach2.value == "" && formDOMObj.attach3.value == "" && formDOMObj.attach4.value == "" )
        alert("Please press the browse button and pick a file.")
    else
        return true;
    return false;
}
</script>
</HEAD>
<BODY>
<br><br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Upload files to your server</div>
<%
Dim diagnostics
if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
    diagnostics = TestEnvironment()
    if diagnostics<>"" then
        response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">"
        response.write diagnostics
        response.write "<p>After you correct this problem, reload the page."
        response.write "</div>"
    else
        response.write "<div style=""margin-left:150"">"
        OutputForm()
        response.write "</div>"
    end if
else
    response.write "<div style=""margin-left:150"">"
    OutputForm()
    response.write SaveFiles()
    response.write "<br><br></div>"
end if
%>
<br><br>
</p></div></tr></td></tr>
</table></TD></TR></TABLE>
  </TD>
  <!--<TD width="1" height=100% background="/smusermanager/images/dot.gif"><IMG src="/smusermanager/images/clear.gif" width="1" height=100% border=0></TD>-->
 </TR>
</TABLE>
<TABLE cellSpacing=0 valign=bottom cellPadding=0 width=100% border=0>
 <TR valign=top height=4>
  <TD colspan=2 class=gray><IMG src="/smusermanager/images/clear.gif" height=4 width=25 border=0></TD>
 </TR>
 <TR valign=middle height=25>
  <TD class=headera2>&nbsp;<FONT class=linksmall><font face="Arial" color="#ffffff" size="2">Copyright © 2007 <a href="" target="_blank"></a>. All Rights Reserved.</FONT></TD>
  <TD align=right class=headera2><font class=linksmall><font face="Arial" color="#ffffff" size="2">Email : <A href=""></A> &nbsp;&nbsp;&nbsp; </font></TD>
 </TR>
</TABLE>
</Body>
</BODY>
</HTML>
asp
1 Contributor
0 Replies
58 Views
Be the first to reply
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.