Hi,

I cannot seem to add another form field to the following code without getting some error or the other. Can someone please instruct me on adding another form field to this.

Thankyou (see code below)

<%
' change to address of your own SMTP server
strHost = "mail.comtechnologies.com"
' We use AspUpload component to capture uploaded file and access other form items.
' Because of the special ENCTYPE attribute we can no longer use Request.Form,
' we must use Upload.Form instead.
' More more info on AspUpload, visit www.aspupload.com.
Set Upload = Server.CreateObject("Persits.Upload"
Upload.IgnoreNoPost = True

' capture an upload and save uploaded files (if any) in temp directory
Upload.Save "d:\web\mysite\Uploadedstuff\"

' We cannot use Upload.Form or Upload.Files until Upload.Save is called.
If Upload.Form("Send" <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender"
Mail.From = " "
Mail.FromName = "Attachment Demo"
Mail.Host = strHost
Mail.Subject = Upload.Form("Subject"
Mail.Body = Upload.Form("Body"
Mail.AddAddress Upload.Form("To"

' Handle attached file via Upload.Files collection.
' Check if a file was ineed uploaded
If Not Upload.Files("Attachment" Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment".Path
End If

' We are done. Send message
Mail.Send
Response.Write "Success!"
End If
%>

Hi Zack,

I'm not sure what you mean by adding another form field to the code. The code below is a form processing script, so you can't add a form field the that script, you would have to add the fields the the form that uses the script.

regards
Wayne

Edited by - wayne1000 on 29 Apr 2005 12:57:45

Hi Wayne,

I want to add fields (2 fields to be specific) to the html form that sends data to this processing script. My issue is that I cannot figure out how to modify the processing script to accept the data from the newly added fields. The code for the HTML form I want to use with the processing script is pasted below. It currently gives an error, since the processing script cannot "see" the additional 2 fields which are (First Name, Last Name)

I do appreciate your help a lot,

Zack

<!-- Note special ENCTYPE attribute: it is necessary to upload a file-->
<FORM METHOD="POST" ACTION="UploadAttachment.asp" ENCTYPE="multipart/form-data">
<TABLE CELLSPACING=0 CELLPADDING=5>
<TR>
<TD>First Name:</TD>
<TD><input name="First Name" type="text" id="First Name"></TD>
</TR>
<TR>
<TD>Last Name:</TD>
<TD><input name="Last Name" type="text" id="Last Name"></TD>
</TR>
<TR><TD>Enter email:</TD><TD><INPUT TYPE="TEXT" NAME="To">
<input name="Subject" type="hidden" value="A candidate has submitted an application"></TD></TR>
<TR><TD valign="top">Enter Body:</TD>
<TD><TEXTAREA NAME="Body"></TEXTAREA></TD></TR>
<TR><TD>Select File Attachment:</TD><TD><INPUT TYPE=FILE NAME="Attachment"></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=SUBMIT NAME="Send" VALUE="Send"></TD></TR>
</TABLE>
</FORM>
----------------------------------------------
Hi Zack,

I'm not sure what you mean by adding another form field to the code. The code below is a form processing script, so you can't add a form field the that script, you would have to add the fields the the form that uses the script.

regards
Wayne

Edited by - wayne1000 on 29 Apr 2005 12:57:45

Hi Zack,

Try the code below, but make sure you have a backup of your old script first. I havent tried it because my host doesn't have Persits.MailSender installed. If you get any errors post them back and I'll try to help.

<pre id=code><font face=courier size=2 id=code>&lt;%
' change to address of your own SMTP server
strHost = "mail.comtechnologies.com"

Set Upload = Server.CreateObject("Persits.Upload"
Upload.IgnoreNoPost = True

' capture an upload and save uploaded files (if any) in temp directory
Upload.Save "d:\web\mysite\Uploadedstuff\"

strFirstName = upload.Form("First Name"
strLastName = upload.Form("Last Name"
strEmail = upload.Form("To"
strBody = upload.Form("body"
strSubject = upload.Form("Subject"

' We cannot use Upload.Form or Upload.Files until Upload.Save is called.
If Upload.Form("Send" &lt;&gt; "" Then
Set Mail = Server.CreateObject("Persits.MailSender"

Mail.To = " "
Mail.From = " "
Mail.BodyFormat = "0" ' -- HTML format
Mail.MailFormat = "0" ' -- HTML format
Mail.FromName = "Attachment Demo"
Mail.Host = strHost
Mail.Subject = Upload.Form("Subject"
mBody = "&lt;html&gt;&lt;head&gt;&lt;style&gt;body, td{font:12px Arial, Helvetica, sans-serif;}&lt;/style&gt;&lt;/head&gt;&lt;body&gt;&lt;table&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td style=""width:150px""&gt;Name:&lt;/td&gt;&lt;td&gt;" & Trim(strFirstName) & "&nbsp;"& Trim(strLastName) &"&lt;/td&gt;&lt;/tr&gt;&lt;br&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td&gt;Email:&lt;/td&gt;&lt;td&gt; " & Trim(strEmail) & "&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td&gt;Subject:&lt;/td&gt;&lt;td&gt; " & Trim(strSubject) & "&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td valign=top&gt;Enquiry:&lt;/td&gt;&lt;td&gt; " & Replace(Trim(strBody), vbCrLf,"&lt;br&gt;" & "&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/body&gt;&lt;/html&gt;"

'Mail.AddAddress Upload.Form("To"

' Handle attached file via Upload.Files collection.
' Check if a file was ineed uploaded
If Not Upload.Files("Attachment" Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment".Path
End If

Mail.Body = mBody

' We are done. Send message
Mail.Send
Response.Write "Success!"
End If
%&gt; </font id=code></pre id=code>

Wayne

I am getting the following error:

Persits.Upload.1 error '800a0005'

The system cannot find the path specified.

/teis/test/aspupload/UploadAttachment.asp, line 7

Even though the path in line 7 which is Upload.Save "uploads" does indeed have the "uploads" directory with the proper permissions.

Do you think that the path needs to be written in a different way?

Thanks,

Zain
------------------------------------------
Hi Zack,

Try the code below, but make sure you have a backup of your old script first. I havent tried it because my host doesn't have Persits.MailSender installed. If you get any errors post them back and I'll try to help.

<pre id=code><font face=courier size=2 id=code>&lt;%
' change to address of your own SMTP server
strHost = "mail.comtechnologies.com"

Set Upload = Server.CreateObject("Persits.Upload"
Upload.IgnoreNoPost = True

' capture an upload and save uploaded files (if any) in temp directory
Upload.Save "d:\web\mysite\Uploadedstuff\"

strFirstName = upload.Form("First Name"
strLastName = upload.Form("Last Name"
strEmail = upload.Form("To"
strBody = upload.Form("body"
strSubject = upload.Form("Subject"

' We cannot use Upload.Form or Upload.Files until Upload.Save is called.
If Upload.Form("Send" &lt;&gt; "" Then
Set Mail = Server.CreateObject("Persits.MailSender"

Mail.To = " "
Mail.From = " "
Mail.BodyFormat = "0" ' -- HTML format
Mail.MailFormat = "0" ' -- HTML format
Mail.FromName = "Attachment Demo"
Mail.Host = strHost
Mail.Subject = Upload.Form("Subject"
mBody = "&lt;html&gt;&lt;head&gt;&lt;style&gt;body, td{font:12px Arial, Helvetica, sans-serif;}&lt;/style&gt;&lt;/head&gt;&lt;body&gt;&lt;table&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td style=""width:150px""&gt;Name:&lt;/td&gt;&lt;td&gt;" & Trim(strFirstName) & " "& Trim(strLastName) &"&lt;/td&gt;&lt;/tr&gt;&lt;br&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td&gt;Email:&lt;/td&gt;&lt;td&gt; " & Trim(strEmail) & "&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td&gt;Subject:&lt;/td&gt;&lt;td&gt; " & Trim(strSubject) & "&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td valign=top&gt;Enquiry:&lt;/td&gt;&lt;td&gt; " & Replace(Trim(strBody), vbCrLf,"&lt;br&gt;" & "&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/body&gt;&lt;/html&gt;"

'Mail.AddAddress Upload.Form("To"

' Handle attached file via Upload.Files collection.
' Check if a file was ineed uploaded
If Not Upload.Files("Attachment" Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment".Path
End If

Mail.Body = mBody

' We are done. Send message
Mail.Send
Response.Write "Success!"
End If
%&gt; </font id=code></pre id=code>

Wayne

Try this

uploadPath = server.mappath("." & "/path to folder on server"
Upload.Save = uploadPath

The Path issue seems to be resolved but now it gives the error:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Mail.To'

site/sendmail.asp, line 16


-----------------------------------------------------------
I am getting the following error:

Persits.Upload.1 error '800a0005'

The system cannot find the path specified.

/teis/test/aspupload/UploadAttachment.asp, line 7

Even though the path in line 7 which is Upload.Save "uploads" does indeed have the "uploads" directory with the proper permissions.

Do you think that the path needs to be written in a different way?

Thanks,

Zain
------------------------------------------
Hi Zack,

Try the code below, but make sure you have a backup of your old script first. I havent tried it because my host doesn't have Persits.MailSender installed. If you get any errors post them back and I'll try to help.

<pre id=code><font face=courier size=2 id=code>&lt;%
' change to address of your own SMTP server
strHost = "mail.comtechnologies.com"

Set Upload = Server.CreateObject("Persits.Upload"
Upload.IgnoreNoPost = True

' capture an upload and save uploaded files (if any) in temp directory
Upload.Save "d:\web\mysite\Uploadedstuff\"

strFirstName = upload.Form("First Name"
strLastName = upload.Form("Last Name"
strEmail = upload.Form("To"
strBody = upload.Form("body"
strSubject = upload.Form("Subject"

' We cannot use Upload.Form or Upload.Files until Upload.Save is called.
If Upload.Form("Send" &lt;&gt; "" Then
Set Mail = Server.CreateObject("Persits.MailSender"

Mail.To = " "
Mail.From = " "
Mail.BodyFormat = "0" ' -- HTML format
Mail.MailFormat = "0" ' -- HTML format
Mail.FromName = "Attachment Demo"
Mail.Host = strHost
Mail.Subject = Upload.Form("Subject"
mBody = "&lt;html&gt;&lt;head&gt;&lt;style&gt;body, td{font:12px Arial, Helvetica, sans-serif;}&lt;/style&gt;&lt;/head&gt;&lt;body&gt;&lt;table&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td style=""width:150px""&gt;Name:&lt;/td&gt;&lt;td&gt;" & Trim(strFirstName) & " "& Trim(strLastName) &"&lt;/td&gt;&lt;/tr&gt;&lt;br&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td&gt;Email:&lt;/td&gt;&lt;td&gt; " & Trim(strEmail) & "&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td&gt;Subject:&lt;/td&gt;&lt;td&gt; " & Trim(strSubject) & "&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;" & vbCrLf _
& "&lt;tr&gt;&lt;td valign=top&gt;Enquiry:&lt;/td&gt;&lt;td&gt; " & Replace(Trim(strBody), vbCrLf,"&lt;br&gt;" & "&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/body&gt;&lt;/html&gt;"

'Mail.AddAddress Upload.Form("To"

' Handle attached file via Upload.Files collection.
' Check if a file was ineed uploaded
If Not Upload.Files("Attachment" Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment".Path
End If

Mail.Body = mBody

' We are done. Send message
Mail.Send
Response.Write "Success!"
End If
%&gt; </font id=code></pre id=code>

Wayne

try putting

dim Mail

above the Set Mail = Server.CreateObject("Persits.MailSender"

so it reads

dim Mail
Set Mail = Server.CreateObject("Persits.MailSender"

and changing mail.to to

Mail.AddAddress "youremailaddress"

Edited by - wayne1000 on 29 Apr 2005 19:09:40

Correction to previous posting:

The error reads and not waht I posted just before:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'AddAddress'

/teis/test/aspupload/UploadAttachment.asp, line 17

----------------------
try putting

dim Mail

above the Set Mail = Server.CreateObject("Persits.MailSender"

so it reads

dim Mail
Set Mail = Server.CreateObject("Persits.MailSender"

and changing mail.to to

Mail.AddAddress "youremailaddress"

Edited by - wayne1000 on 29 Apr 2005 19:09:40

It my be worth your while looking here www.aspemail.com/manual_02.html

Has the script ever been working? Just asking incase your host hasn't got AspEmail installed

Edited by - wayne1000 on 29 Apr 2005 19:28:54

Thank you so much for your help Wayne

Best regards,

Zain
----------------
It my be worth your while looking here www.aspemail.com/manual_02.html

Has the script ever been working? Just asking incase your host hasn't got AspEmail installed

Edited by - wayne1000 on 29 Apr 2005 19:28:54