<% if Request.querystring("mode") = "MailSent" Then Response.write "Your Message has been Sent" Response.end End if If lcase(request.form("captcha")) <> lcase("Earth") Then Response.write "You did not type the correct word (Earth) in the text box... Try again" Response.end End if Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' send one copy with Google SMTP server (with autentication) schema = "http://schemas.microsoft.com/cdo/configuration/" Flds.Item(schema & "sendusing") = 2 Flds.Item(schema & "smtpserver") = "smtp.gmail.com" Flds.Item(schema & "smtpserverport") = 465 Flds.Item(schema & "smtpauthenticate") = 1 Flds.Item(schema & "sendusername") = "n.phil.h@gmail.com" Flds.Item(schema & "sendpassword") = "610049" Flds.Item(schema & "smtpusessl") = 1 Flds.Update With iMsg .To = "Phil@coasterfuel.com" .From = request.form("email") .Subject = "Mail sent from Phil Rocks by " & request.form("name") .HTMLBody = request.form("message") .Sender = request.form("Name") .Organization = "PhilRocks" .ReplyTo = request.form("email") Set .Configuration = iConf SendEmailGmail = .Send End With set iMsg = nothing set iConf = nothing set Flds = nothing response.redirect "?mode=MailSent" %>