<%
'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,