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

•

What is DaniWeb IT Discussion Community?

You're currently browsing the ASP section within the Web Development category of DaniWeb, a massive community of 391,691 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,206 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our ASP advertiser: Lunarpages ASP Web Hosting

Thread Tools Display Modes

Views: 376 | Replies: 0

•

Join Date: Sep 2004

Posts: 3

Reputation: ChrisJ is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

ChrisJ

Offline

Newbie Poster

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

Jul 4th, 2008

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:

Help with Code Tags

(Toggle Plain Text)

<%@ 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>

<%@ 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>