richiwatts
Technical User
Please help!
I am very new to ASP and have come a bit unstuck. I have now spent 4 days trying to get this right and my boss isn't happy.
Anyway, I we have a form that I created at
The problem is I only receive the attachments in the e-mail results and no other form field results. Below I have shown the code of the ASP page I am sending the form to in the hope that someone can tell me what to do.
I thank you in advance for any help you can provide:
<%
Dim objUpload
Dim objEmail
Dim strPath
Dim Index
On Error Resume Next
Set objUpload = Server.CreateObject("Dundas.Upload"
Set objEmail = Server.CreateObject("Dundas.Mailer"
strPath = Server.MapPath("."
& "\temp\"
objUpload.DirectoryCreate strPath
objUpload.Save strPath
objEmail.TOs.Add "info@english-partner.com"
objEmail.Subject = "Quotation"
objEmail.SMTPRelayServers.Add "mail.vegasys.net"
objEmail.Body = "Please provide a quote"
For Each Item in objUpload.Files
objEmail.Attachments.Add Item.Path,Item.OriginalPath
Next
objEmail.SendMail
If Err.Number <> 0 Then
Response.Write "The following error occurred: " & Err.Description
Else
Response.Write "A quotation request has successfully been sent to English Partner, thank you."
End If
Set objEmail = Nothing
Set objUpload = Nothing
%>
I am very new to ASP and have come a bit unstuck. I have now spent 4 days trying to get this right and my boss isn't happy.
Anyway, I we have a form that I created at
The problem is I only receive the attachments in the e-mail results and no other form field results. Below I have shown the code of the ASP page I am sending the form to in the hope that someone can tell me what to do.
I thank you in advance for any help you can provide:
<%
Dim objUpload
Dim objEmail
Dim strPath
Dim Index
On Error Resume Next
Set objUpload = Server.CreateObject("Dundas.Upload"
Set objEmail = Server.CreateObject("Dundas.Mailer"
strPath = Server.MapPath("."
objUpload.DirectoryCreate strPath
objUpload.Save strPath
objEmail.TOs.Add "info@english-partner.com"
objEmail.Subject = "Quotation"
objEmail.SMTPRelayServers.Add "mail.vegasys.net"
objEmail.Body = "Please provide a quote"
For Each Item in objUpload.Files
objEmail.Attachments.Add Item.Path,Item.OriginalPath
Next
objEmail.SendMail
If Err.Number <> 0 Then
Response.Write "The following error occurred: " & Err.Description
Else
Response.Write "A quotation request has successfully been sent to English Partner, thank you."
End If
Set objEmail = Nothing
Set objUpload = Nothing
%>