 |
|
R&D Marine Ltd.
Meadow Works
Clothall Road
Baldock
Herts
SG7 6PD
England
|
|
Telephone: +44 (0)1462 892391
|
|
Fax: +44 (0)1462 896448
|
<%
REM If a message has been written then send the email, and if it gets delivered okay
REM then display the 'thank you' message otherwise display the following HTML code.
if request("message")<>"" then send_email()
%>
<%
sub send_email()
set mailobj=server.createobject("CDONTS.NewMail")
mailobj.To = "info@randdmarine.com"
mailobj.From = request("email")
mailobj.subject = "Query from your website"
mailobj.Body = "Dear "&request("name")&vbCr&vbCr&"In response to your recent query from our R&D Marine Ltd internet site:-"&vbCr&" > "&replace(request("message"),vbLf," > ")&vbCr&vbCr&"-"&vbCr
mailobj.Send
Set mailobj = Nothing
set mailobj=server.createobject("CDONTS.NewMail")
mailobj.To = "servers@idnet.com"
mailobj.From = request("email")
mailobj.subject = "Query from your website"
mailobj.Body = "Dear "&request("name")&vbCr&vbCr&"In response to your recent query from our R&D Marine Ltd internet site:-"&vbCr&" > "&replace(request("message"),vbLf," > ")&vbCr&vbCr&"-"&vbCr
mailobj.Send
Set mailobj = Nothing
' set objMail = Server.CreateObject("ABMailer.Mailman")
' objMail.Clear
' objMail.MailDate = FormatDateTime(Date, vbLongDate)
' objMail.MailSubject = "Query from your website"
' objMail.ReplyTo = request("email")
' objMail.SendTo = "info@randdmarine.com"
' objMail.ServerAddr = "mail.idnet.net.uk"
' objMail.ServerPort = 25
' objMail.MailMessage = "Dear "&request("name")&vbCr&vbCr&"In response to your recent query from our R&D Marine Ltd internet site:-"&vbCr&" > "&replace(request("message"),vbLf," > ")&vbCr&vbCr&"-"&vbCr
' objMail.SendMail
' if objMail.ErrorCode = mmeNone then
%>
Thank You
Your message has been sent.
Back to main menu
<%response.end
end sub
%>
| |
