<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "146.186.140.35" Mailer.FromAddress = "webmaster@polisci.la.psu.edu" Mailer.AddRecipient "Andy Semanko", "ams517@psu.edu" Mailer.Subject = "Report a Problem with CRL" Mailer.FromName = "Online Web Form" Mailer.BodyText = "Name: " + Request.QueryString("Name") Mailer.BodyText = "Email: " + Request.QueryString("Email") Mailer.BodyText = "Problem: " + Request.QueryString("Problem") Mailer.BodyText = "Description: " + Request.QueryString("Description") Mailer.BodyText = " " Mailer.BodyText = " " Mailer.BodyText = " " Mailer.BodyText = "NOTICE: Do not respond to this email." if not Mailer.SendMail then Response.Write "SMTP-Form Procedure Failed... Error is: " Response.Write Mailer.Response Response.Write "

" Response.Write "Please contact the network administrator at: slappj@psu.edu" else Response.Write "Thank You!" END IF %>