<% smtp_server_address = "localhost" on error resume next Response.Buffer = True Set Jmail = Server.CreateOBject( "JMail.Message" ) Jmail.Logging = true Jmail.Silent = true JMail.From = "HCPT London Beaumont website" Jmail.AddRecipient "graphic.hylands@virgin.net" JMail.Subject = "HCPT London Beaumont update request" FOR EACH el IN Request.Form body = body & el & ": " & Request.form(el) & vbcrlf NEXT JMail.Body = Body JMail.Priority = 1 if not Jmail.Send(smtp_server_address) then ' There was an error - print the error log Response.write ("Error:
" & Jmail.log) else ' The message has been sent - redirect to confirmation page Set JMail = Nothing response.redirect "entrysuccessful.htm" end if Set JMail = Nothing %>