% ' 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("Submit3") = "Send" Then 'sending to self Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.lumutvalley.com.my" ' Specify a valid SMTP server mail.yourserver.com Mail.Username = "reservation@lumutvalley.com.my" Mail.Password = "pt4189lumut" Mail.From = cStr(Request("Email")) 'Senders Email Address Mail.FromName = cStr(Request("Name")) ' Specify sender's name Mail.AddAddress "reservation@lumutvalley.com.my" 'Recipient Email Address 'Mail.AddCC "akyu@markkoh.com" 'Carbon Copy Email Address 'Mail.AddCC cStr(Request("varCC")) 'Carbon Copy Email Address Mail.Subject = "Commend Form from Lumutvalley website" 'Email Subject Mail.Body = "Comments: " & cStr(Request("Comments"))& vbcrlf&_ "Name: " & cStr(Request("Name"))& vbcrlf&_ "Sex: " & cStr(Request("Sex"))& vbcrlf&_ "Telephone: " & cStr(Request("Telephone"))& vbcrlf&_ "Country: " & cStr(Request("Country"))& vbcrlf&_ "Fax: " & cStr(Request("Fax"))& vbcrlf&_ "Email: " & cStr(Request("Email")) '& vbcrlf&_ On Error Resume Next Mail.Send 'Mail2.Send 'Mail3.Send Set Mail = Nothing 'Set Mail2 = Nothing 'Clean up your objects!!! 'Set Mail3 = Nothing If Err <> 0 Then 'Response.Write "Error encountered: " & Err.Description Dim error session("error") = Err.Description error = Err.Description 'Response.Redirect("error.asp") End If Response.Redirect("emailsent.asp") 'comment this in to use this to redirect page after delivery 'Response.Write("Message Delivered") 'default response End If %>
|
||||||||||||||||||||||||||||||||||
|
|
|
|
||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||
|
Copyright© 2002-2011 Lumut Valley Resort
Condominium. All rights reserved.
|
||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||