<% if request("request") = "Submit" then %> <% msg = msg msg = msg & "Name: " & request("name") & "
" msg = msg & "Company Name: " & request("companyname") & "
" msg = msg & "Email: " & request("email") & "
" msg = msg & "Can Contact? " & request("contact") & "

" msg = msg & "Questions/Comments:
" & request("comments") %> <% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Meatcamp.com Contact Form" Mailer.FromAddress= "webmaster@mcppresents.com" Mailer.RemoteHost = "smtp.mcppresents.com" Mailer.AddRecipient "", "info@mcppresents.com" Mailer.Subject = "Meatcamp.com Contact Form" Mailer.BodyText = msg Mailer.ContentType = "text/html" if not Mailer.SendMail then%>

There was an error. Your message was not sent. Please email meatcamp.com with your questions and include the following error message:

<%Response.write(Mailer.Response) end if else %>

CONTACT MEATCAMP *Name: Company Name: *E-mail:

Questions/Comments: You can contact me to discuss my needs

<% end if %>