% if request("submitcreate")=1 then dim f1,f3,f4,f5 f1=Request.Querystring("textfield") f3=Request.Querystring("textfield3") f4=Request.Querystring("textfield4") f5=Request.Querystring("textfield5") dim sEmailBody sEmailBody = "" sEmailBody = sEmailBody & "FIRST NAME:" & f1 & vbcrlf sEmailBody = sEmailBody & "EMAIL:" & f3 & vbcrlf sEmailBody = sEmailBody & "PHONE NUMBER:" & f4 & vbcrlf sEmailBody = sEmailBody & "ZIP CODE:" & f5 & vbcrlf Set objMailer = Server.CreateObject("SMTPsvg.Mailer") objMailer.AddRecipient "AlbertEve.Com", "info@alberteve.com" objMailer.BodyText = sEmailBody objMailer.FromAddress = f3 objMailer.FromName = f1 'objMailer.QMessage = True objMailer.RemoteHost = "localhost" objMailer.Subject = "Lead: Albert & Eve Local Organics Co." objMailer.SendMail Set objMailer = Nothing response.Redirect("http://contents.alberteve.com") 'Response.AddHeader "Location",http://contents.alberteve.com 'Response.Status="301 Moved Permanently" 'Response.AddHeader("Location","http://contents.alberteve.com"); 'server.Transfer("http://contents.alberteve.com") end if %>