Contact Asheville Cabin Fever

<% if request.form("isSubmit") then 'declare and request the variables dim strName dim strCabin dim strEmail dim strPhone dim strComment strName = trim(request.form("Name")) strCabin = trim(request.form("Cabin")) strEmail = trim(request.form("Email")) strPhone = trim(request.form("Phone")) strComment = trim(request.form("Comment")) dim objMail dim htmlBody Set objMail = Server.CreateObject("CDO.Message") htmlBody = "

name: " & strName & "

cabin: " & strCabin & "

email: " & strEmail & "

phone: " & strPhone & "

comment: " & replace(strComment, chr(10), "
") & "

" objMail.To = strEmail objMail.bcc = "contact@ashevillecabinfever.com; whiteravenmarketing@gmail.com" objMail.From = "noreply@ashevillecabinfever.com" objMail.Subject = "Asheville Cabin Fever Contact" objMail.HTMLBody = htmlBody objMail.Send Set objMail = Nothing %>

Thank you. Your information has been submitted and you will be contacted soon.

<% else %>

NAME

CABIN

E-MAIL

PHONE

COMMENT
<%=(comment)%>

<% end if %>