<% theSchema="http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig=server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(theSchema & "sendusing")=2 cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.ozemail.com.au" cdoConfig.Fields.Update set cdoMessage=Server.CreateObject("CDO.Message") cdoMessage.Configuration=cdoConfig cdoMessage.From=Request.Form("emailAddress") cdoMessage.To="gcgordon@ozemail.com.au" cdoMessage.Subject=Request.Form("subject") cdoMessage.TextBody=Request.Form("body") cdo.Message.Send Set cdoMessage=Nothing Set cdoConfig=Nothing %> Message Sent
Confirmation
 

Your message has been sent.

A reply, if needed, can be expected within two days.

Return to Home Page.

S_Cross