<%


'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")
state = Request.Form("State")
zip = Request.Form("ZIP")
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.AddRecipient "Tony Hastreiter","[email protected]"
Mailer.Subject = "TWEET Download"

Mailer.BodyText = "Someone indicated that a download of TWEET was to be made/in progress.  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"

%>