Something I noticed you are doing this:
sFileSplit = split(o.FileNameOf("ecpFilename"), "\")
sFile = sFileSplit(Ubound(sFileSplit))
You should do this:
if instr(o.FileNameOf("ecpFilename"), "\") then
sFileSplit = split(o.FileNameOf("ecpFilename"), "\")
sFile = sFileSplit(Ubound(sFileSplit))
else
//user didnt submit a good path
end if
The subscript error is occuring because when you try to split, there is no character to split on =
My first page might look something like this:
<%@ LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
if Session("UserID") = "" then
Response.Redirect("index1.asp")
end if
if LCase(Session("UserType")) <> "originator" then
Response.Redirect("noPostNew1.asp")
end if
%>
<html>
<head>
<title>something</title>
<script language="javascript">
<!--
function checkData(){
if (document.myForm.ecpFilename.value.length == 0 ) {
alert("missing file");
return false;
}
else {
alert("Sending data...");
myForm.submit();
return true;
}
}
-->
</script>
</head>
<body>
<form method="post" action="postNew1.asp" enctype="multipart/form-data" name="myForm">
<P><INPUT type="file" name="ecpFilename"></P>
<P><INPUT type="button" onclick="checkData()" value="Button"></P>
</form>
</body>
</html>
</file>
my second page might look like:
<%@ LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
set o = new clsUpload
if o.Exists("submitButton") then
if instr(o.FileNameOf("ecpFilename"), "\") then
sFileSplit = split(o.FileNameOf("ecpFilename"), "\")
sFile = sFileSplit(Ubound(sFileSplit))
'Upload filename
o.FileInputName = "ecpFilename"
o.FileFullPath = Server.MapPath(".") & "\ecpFiles\" & sFile
o.save
'If not error redirect to complete message
if o.Error = "" then
Dim pSQLStatement, pConnection
Dim pRS, objMail
Dim pEcpNumber, pEcpTitle, pEcpFilename, pEcpOriginator, pEcpDateDistributed, pEcpDateDue
pEcpNumber = o.ValueOf("ecpNumber")
pEcpTitle = o.ValueOf("ecpTitle")
pEcpFilename = sFile
pEcpOriginator = o.ValueOf("ecpOriginator")
pEcpOriginator = Session("UserFullName")
pEcpDateDistributed = CStr(date())
pEcpDateDue = CStr(o.ValueOf("ecpDateDue"))
pConnection = "Provider=SQLOLEDB.1;UID=sa;PWD=;Initial Catalog=ecpDatabase2SQL;Data Source=localhost"
Set pRS = server.CreateObject("ADODB.RecordSet")
pRS.open "INSERT INTO ecpForms (ecpNumber, ecpTitle, ecpFilename, ecpOriginator, ecpDateDistributed, ecpDateDue) VALUES ('" & pEcpNumber & "', '" & pEcpTitle & "', '" & pEcpFilename & "', '" & pEcpOriginator & "', '" & pEcpDateDistributed & "', '" & pEcpDateDue & "') ", pConnection
else
%>
<script language="JavaScript">
alert('You provided an invalid file name!');
self.location.href='PostNew1.asp';
</script>
<%
end if
%>
hth
--Stole this from a moderator
I will only tell you how to do it, not do it for you.
Unless, of course, you want to hire me to do work for you.
