![]() |
|||||||||||||
|
|||||||||||||
|
|||||||||||||
|
|
<% Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component. Mail.FromName = "Alpha Delta" Mail.FromAddress= "sales@abacusmedia.tv" Mail.RemoteHost = "mrvnet.kundenserver.de" ' The mail server you have to use with Asp Mail Mail.AddRecipient "Your Name", "info@alphadeltasecurity.co.uk" Mail.Subject = "Website - Info Request" Mail.BodyText = "name:" & Request.Form("contactname") & vbcrlf&_ "company name:" & Request.Form("companyname") & vbcrlf& "company name:" & Request.Form("companyname")& vbcrlf & "telephone:" & Request.Form("telephone") & vbcrlf & "email:" & Request.Form("email") & vbcrlf & "description:" & Request.Form("description") if Mail.SendMail then Response.Write "Your mail has already been sent..." else Response.Write "Mail send failure. Error was " & Mail.Response end if Set Mail = Nothing %>