%
if request.form("do") = "1" then
btext=""& VbCrLf
for each x in request.form
btext2=btext2 & x &": " & replace(replace(request.form(x),chr(10),""),chr(13)," ") & " "
next
btext=btext & ""& VbCrLf
Set myMail=CreateObject("CDO.Message")
myMail.Subject="BRS enquiry from website"
myMail.From="mail@backroomsounds.com"
myMail.To="mail@backroomsounds.com"
myMail.HtmlBody=btext2
myMail.Send
end if
%>