<%' check to see if we have a post If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Get email together MBody = vbCrLf MBody = MBody & "
" & "Newsletter Sign up from web site" MBody = MBody & "
" & "-----------------------------------------------------" MBody = MBody & "
" & "Business Name: " & Request("business") MBody = MBody & "
" & "Contact Name: " & Request("name") MBody = MBody & "
" & "City: " & Request("city") MBody = MBody & "
" & "State: " & Request("state") MBody = MBody & "
" & "Email: " & Request("email") DIM CMail SET CMail = Server.CreateObject("CDONTS.Newmail") CMail.From = "EERCnewsletter@utk.edu" CMail.To = "rburnos@utk.edu" CMail.Subject = "Newsletter Sign Up" CMail.Body = MBody CMail.BodyFormat = 0 CMail.MailFormat = 0 CMail.Send SET CMail = Nothing response.Redirect("thanks.asp") end if %>

Energy, Environment and Resources Center

Sign up for our Newsletter!

Business Name

Your Name

City State

e-mail

Questions? Contact the webmaster





	Copyright ©2003 The EERC & the University of Tennessee · Knoxville Tennessee 37996 · Telephone 865-974-1000 Voice/TDD