<% if Request.QueryString("mode") = "doit" then ' set the variables Dim strBody, strTo, strFrom 'Who does this go to? strFrom = Request.Form("yourEmail") strTo = Request.Form("email") 'Mail Message strSubject = "Enter the 'Country Time Lemonade. . . Quench Your Thirst Sweepstakes'" strBody = "Hello " & Request.Form("name") & vbcrlf & vbcrlf strBody = strBody & Request.Form("msg") & vbcrlf & vbcrlf strBody = strBody & "Please visit American Urban Radio Networks to enter. http://www.aurn.com/" & vbcrlf & vbcrlf strBody = strBody & "You have received this from: " & Request.Form("yourName") & " - (" & Request.Form("yourEmail") & ")" 'Time to send the email Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = strTo objCDO.From = strFrom objCDO.Subject = strSubject objCDO.Body = strBody objCDO.Send Set objCDO = Nothing %>

<% else %>

Send To Name: Send To Email: Your Name: Your Email: Message: AURN takes your privacy seriously. The information you enter into this form will not be shared or used for any other purpose. I thought you might be interested in the Quench Your Thirst Sweepstakes!

<% end if %>