Website Evaluation

<% if Request.Querystring("isSubmitted") = "yes" then Dim name1, company1, website1, email1, comments1 Dim objCDO name1 = Request.Querystring("name") company1 = Request.Querystring("company") website1 = Request.Querystring("website") email1 = Request.Querystring("email") comments1 = Request.Querystring("comments") Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "form@fastabend.com" objCDO.To = "sarahf@fastabend.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "I want my free website evaluation!" objCDO.Body = "Name: " & name1 & " Company: "& company1 & " website: " & website1 & " email: " & email1 & " comments: " & comments1 objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send ConfirmMsg = "We'll get back to you soon" end if %> Website Evaluation

Website Evaluation

Yes! I would like to have my website evaluated by the Fastabend Web Evaluation team.

Name:

Company:

Website:

Email:

Is there anything else we should know about your site?:

<% if ConfirmMsg <> "" then %> <%= ConfirmMsg %> <% end if %>

Fastabend
3741 Walnut Street
PMB 192
Philadelphia, PA 19104