<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then dim Mailer dim recipient dim subject dim from dim strBody recipient = games_email_address subject = "Rocket Balloons Game Idea Submission" from = Request.Form("email") If len(from) = 0 Then from = recipient End If Set Mailer = Server.CreateObject("CDO.Message") Mailer.Configuration = objConfig Mailer.From = from Mailer.To = recipient Mailer.Subject = subject strBody = "Name: " & Request.Form("name") & vbCrlf strBody = strBody & "Email: " & Request.Form("email") & vbCrlf strBody = strBody & "Name of Game: " & Request.Form("game") & vbCrlf strBody = strBody & "Number of Players: " & Request.Form("players") & vbCrlf strBody = strBody & "Setup: " & Request.Form("setup") & vbCrlf strBody = strBody & "How to Play the Game: " & Request.Form("howtoplay") & vbCrlf strBody = strBody & "Strategy: " & Request.Form("strategy") & vbCrlf Mailer.TextBody = strBody Mailer.Send Set Mailer = nothing Response.Redirect("gameformthanks.asp") End If %>

Name: Email: Name of Game: Number of Players: Setup: How to Play the Game: Strategy: