<% Email = Request( "Email" ) if (Email = "") then Email = "unknown@tortus.com" If Request("send_guide") = "yes" Then send_guide = "* Send a printed copy of the guide" & vbCrLf Else send_guide = "" End If Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.tortus.com" Mailer.FromName = Request("Name") Mailer.FromAddress = Email Mailer.AddRecipient "Holland Law", "slk@hblaw.org" Mailer.Subject = "-- Web Site Feedback --" Mailer.BodyText = Request("Name") & vbCrLf & Request("Company") & vbCrLf & Request("Address1") & vbCrLf & Request("Address2") & vbCrLf & Request("City") & " " & Request("State") & " " & Request("Zip") & vbCrLf & Email & vbCrLf & send_guide & vbCrLf & "Comments:" & vbCrLf & Request("Comments") Mailer.SendMail Response.Redirect "../fr-corp.http://hollandlaw.com/fr-corp_primer.htm" %>