<%
' ASPEmail Server Behavior Form 1.0.4 for Dreamweaver UltraDev
' Pete Erwin http://www.assonetriver.com
'
' To add more info to the Body of your email message:
' 1) comment in the '& vbcrlf&_ at the end of the Mail.Body line
' 2) edit the Additional Fields shown as examples
'
' NOTE: This server requires ASPEmail Server Component to be installed on your web server
' visit http://www.aspemail.com for more details
If Request.Form("submit") = "Submit" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.ymi.com.my" ' Specify a valid SMTP server mail.yourserver.com
Mail.Username = "mailer@ymi.com.my"
Mail.Password = "abc123"
Mail.From = cStr(Request("varFrom")) 'Senders Email Address
Mail.FromName = cStr(Request("varFromName")) ' Specify sender's name
Mail.AddAddress cStr(Request("varTo")) 'Recipient Email Address
Mail.AddCC cStr(Request("varCC")) 'Carbon Copy Email Address
Mail.Subject = cStr(Request("varSubject")) 'Email Subject
Mail.Body = cStr(Request("varBody")) '& vbcrlf&_
' "Additional Field1 Value Name: " & cStr(Request("varYourField1"))& vbcrlf&_
' "Additional Field2 Value Name: " & cStr(Request("varYourField2"))& vbcrlf&_
On Error Resume Next
Mail.Send
Set Mail = Nothing 'Clean up your objects!!!
If Err <> 0 Then
'Response.Write "Error encountered: " & Err.Description
Dim error
'session("error") = ""
session("error") = Err.Description
'error = Err.Description
Response.Redirect("error.asp")
End If
Response.Redirect("thanks_feedback.asp") 'comment this in to use this to redirect page after delivery
'Response.Write("Message Delivered") 'default response
End If
%>
YMI - the specialist in steel furniture
Your specialist in steel furniture
What's New Here are the history of changes for our website. [history]
