<%
dim sFrom
dim sCompany
dim sEmail
dim sPhone
dim sComments
sFrom = Request.form("fname") + " " + Request.form("lname")
sCompany = Request.form("company")
sEmail = Request.form("formemail")
sPhone = Request.form("phone")
sComments = Request.form("comments")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName   = sFrom
Mailer.FromAddress= sEmail
Mailer.RemoteHost = "mail.benefitgolf.org"
Mailer.AddRecipient "Marketing", "marketing@benefitgolf.org"
Mailer.Subject    = "GTAA Event Registration"
Mailer.BodyText   = sFrom & VbCrLf & sCompany & VbCrLf & sPhone & VbCrLf & sEmail & VbCrLf & sComments
set sFrom=nothing 
set sCompany=nothing
set sEmail=nothing
set sPhone=nothing
set sComments=nothing

if Mailer.SendMail then
  Response.redirect "index.html"
else
  Response.redirect "gtaa_event2.html"
end if

%>