<% 'DATA ON THIS PAGE dim FULLNAME,EMAIL,COMMENTS %> <% FULLNAME = request.querystring("FULLNAME") if FULLNAME=null then FULLNAME="" end if EMAIL= request.querystring("EMAIL") if EMAIL=null then EMAIL="" end if COMMENTS= request.querystring("COMMENTS") if COMMENTS=null then COMMENTS="" end if if FULLNAME<>"" AND EMAIL<>"" then 'SEND EMAIL Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "BRAV web enquiry" objMessage.Sender = EMAIL objMessage.To = "jessemong@telus.net" objMessage.HTMLBody = "BRAV,

A web enquiry was submitted by "&FULLNAME&" ("&EMAIL&").


"&COMMENTS&"" objMessage.Send %> <% end if %>

<% %>

FULLNAME * EMAIL * COMMENTS *