<%


'grab the vars from the form with the Request object
name = Request.Form("Name")
org = Request.Form("Organization")
addr = Request.Form("Address")
city = Request.Form("City")
zip = Request.Form("ZIP")
state = Request.Form("State")
phone = Request.Form("PhoneNumber")
email = Request.Form("E-mail")
plans = Request.Form("PlansForTWEET")



Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "smtp03.mrf.mail.rcn.net"
Mailer.FromName = "Your Web Server"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient "Fred Hanscom","[email protected]"
Mailer.Subject = "TWEET Download"

Mailer.BodyText = "Someone just downloaded a copy of TWEET.  Here's his/her info:" & vbCrLf & vbCrLf
Mailer.BodyText = "Name:  " & name & vbCrLf
Mailer.BodyText = "Organization:  " & org & vbCrLf
Mailer.BodyText = "Address:  " & addr & ", " & city & ", " & state & " " & zip & vbCrLf
Mailer.BodyText = "Phone:  " & phone & vbCrLf
Mailer.BodyText = "E-mail:  " & email & vbCrLf 
Mailer.BodyText = name & " describes his/her plans for TWEET as follows:" & vbCrLf & plans & vbCrLf & vbCrLf
Mailer.BodyText = "It's been a pleasure to serve you, Fred.  Sincerely," & vbCrLf
Mailer.BodyText = "Your Web Server" & vbCrLf


Mailer.SendMail
'If  Mailer.SendMail then
'   Msg = "mail sent sucessfully!"
'Else
'   Msg = "mail <b>not</b> sent sucessfully"
'   msg = msg & "<br>" & mailer.response
'End If
'response.write Msg

Set mailer=nothing

response.redirect "http://www.trc-net.com/tweet/download_2.html"

%>