SteveH
03-10-2010, 10:13 AM
Hello
I have a Web page with some ASP script which attaches files to an online form (only). It uses two asp files and works (I can see the uploaded files in a folder called 'Uploads' on the server).
I also have another Web page with a simple ASP online form with name, email, subject, and message fields (only) which, again, works.
Now the tricky bit! I would like to combine these ASP files, so that my simple form contains a field for site visitors to send attachments.
This is my simple contact form:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<% Response.Buffer = True %>
<%
'Declaring Variables
Dim smtpserver,youremail,yourpassword,ContactUs_Name,ContactUs_Email
Dim ContactUs_Subject,ContactUs_Body,Action,IsError
smtpserver = "IP address here"
youremail = "info@mysite.com"
yourpassword = "my_pwd"
ContactUs_Name = Request("ContactUs_Name")
ContactUs_Email = Request("ContactUs_Email")
ContactUs_Subject = Request("ContactUs_Subject")
ContactUs_Body = Request("ContactUs_Body")
Action = Request("Action")
' Check validity here and if no errors, then send the mail off
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
%>
<font size="2" color="navy"><center>Thank you for your message.</center>
<br><br>
<font color="blue">
<% =Replace(ContactUs_Body,vbCr,"<br>") %>
</font>
</font>
<% Else %>
<form action="contact.asp" method="POST">
<input type="hidden" name="Action" value="SendEmail">
<br>
<table border="0" cellspacing="1">
<tr>
<td valign="top">
Name:
</td>
<td colspan="2">
<input type="text" name="ContactUs_Name" size="35" value="<% =ContactUs_Name %>">
</td>
</tr>
<tr>
<td valign="top">
Email:
</td>
<td colspan="2">
<input type="text" name="ContactUs_Email" size="35" value="<% =ContactUs_Email %>">
</td>
</tr>
<tr>
<td valign="top">
Subject:
</td>
<td colspan="2">
<input type="text" name="ContactUs_Subject" value="<% =ContactUs_Subject %>" size="35">
</td>
</tr>
<tr>
<td valign="top">
Message:
</td>
<td valign="top">
<textarea rows="10" name="ContactUs_Body" cols="40"><% =ContactUs_Body %></textarea>
</td>
</tr>
<tr>
<td valign="top">
</td>
<td colspan="2">
<input type="submit" value="Send">
</td>
</tr>
</table>
</form>
<% End If %>
</body>
</html>
This is the form which sends attachments:
<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<%
Dim uploadsDirVar
uploadsDirVar ="Path_to_my_Uploads_folder"
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>
<br>
<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.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
end function
%>
<HTML><HEAD>
JS stuff here
</HEAD>
<BODY>
<%
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
%>
</BODY>
</HTML>
Thanks for any help.
Steve
I have a Web page with some ASP script which attaches files to an online form (only). It uses two asp files and works (I can see the uploaded files in a folder called 'Uploads' on the server).
I also have another Web page with a simple ASP online form with name, email, subject, and message fields (only) which, again, works.
Now the tricky bit! I would like to combine these ASP files, so that my simple form contains a field for site visitors to send attachments.
This is my simple contact form:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<% Response.Buffer = True %>
<%
'Declaring Variables
Dim smtpserver,youremail,yourpassword,ContactUs_Name,ContactUs_Email
Dim ContactUs_Subject,ContactUs_Body,Action,IsError
smtpserver = "IP address here"
youremail = "info@mysite.com"
yourpassword = "my_pwd"
ContactUs_Name = Request("ContactUs_Name")
ContactUs_Email = Request("ContactUs_Email")
ContactUs_Subject = Request("ContactUs_Subject")
ContactUs_Body = Request("ContactUs_Body")
Action = Request("Action")
' Check validity here and if no errors, then send the mail off
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
%>
<font size="2" color="navy"><center>Thank you for your message.</center>
<br><br>
<font color="blue">
<% =Replace(ContactUs_Body,vbCr,"<br>") %>
</font>
</font>
<% Else %>
<form action="contact.asp" method="POST">
<input type="hidden" name="Action" value="SendEmail">
<br>
<table border="0" cellspacing="1">
<tr>
<td valign="top">
Name:
</td>
<td colspan="2">
<input type="text" name="ContactUs_Name" size="35" value="<% =ContactUs_Name %>">
</td>
</tr>
<tr>
<td valign="top">
Email:
</td>
<td colspan="2">
<input type="text" name="ContactUs_Email" size="35" value="<% =ContactUs_Email %>">
</td>
</tr>
<tr>
<td valign="top">
Subject:
</td>
<td colspan="2">
<input type="text" name="ContactUs_Subject" value="<% =ContactUs_Subject %>" size="35">
</td>
</tr>
<tr>
<td valign="top">
Message:
</td>
<td valign="top">
<textarea rows="10" name="ContactUs_Body" cols="40"><% =ContactUs_Body %></textarea>
</td>
</tr>
<tr>
<td valign="top">
</td>
<td colspan="2">
<input type="submit" value="Send">
</td>
</tr>
</table>
</form>
<% End If %>
</body>
</html>
This is the form which sends attachments:
<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<%
Dim uploadsDirVar
uploadsDirVar ="Path_to_my_Uploads_folder"
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>
<br>
<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.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
end function
%>
<HTML><HEAD>
JS stuff here
</HEAD>
<BODY>
<%
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
%>
</BODY>
</HTML>
Thanks for any help.
Steve