<% Option Explicit dim sName, sEmail, sMessage if Request.Form("Action") <> "" then sName = Request.Form("Name") sEmail = Request.Form("Email") sMessage = Request.Form("Message") dim oJMail Set oJMail = Server.CreateObject("JMail.SMTPMail") with oJMail .Sender = "you@yourdomain.com" .SenderName = "Your Name" .AddRecipient "chao@4mation.com.au" .From = sEmail .Subject = "Message from website" .Body = sMessage .ServerAddress = "localhost" .MailServerUserName = "hathorn" .MailServerPassword = "keiran" .Execute end with Set oJMail = Nothing response.write "Thanks for your message!" else %>
">

Name:

E-mail:

Message:

<% end if %>