<%
Option Explicit
Dim varFromName
Dim varEmail
Dim messagetext
Dim varGenSubject
Dim varSubject
Dim Err
Dim MyMail
Dim varTeacher
Dim varParent
Dim varStudent
Dim varOther
Dim varBook

varFromName = Request("ctlName")
varEmail = Request("ctlEmail")
messagetext = Request("ctlComment")
varTeacher = Request("teacher")
varParent = Request("parent")
varStudent = Request("student")
varOther = Request("other")
varBook = Request("book")

varGenSubject = "Message From LibbyHathorn.com - "

If varFromName = "" or varEmail = "" or messagetext = "" then
	Response.Redirect "/lh/emailMe/emailMe.asp?r=error"
Else

	
	Set MyMail = Server.CreateObject("JMail.SMTPMail")
	MyMail.ServerAddress = "localhost"
	'MyMail.Sender = "website@libbyhathorn.com"
	MyMail.Sender = varEmail
	MyMail.AddRecipient "libbyhathorn@bigpond.com"
	'MyMail.AddRecipient "chao@4mation.com.au"
	
	if not varTeacher = "" then varSubject = varGenSubject & "Teacher"
	if not varParent = "" then varSubject = varGenSubject & "Parent"
	if not varStudent = "" then varSubject = varGenSubject & "Student"
	if not varOther = "" then varSubject = varGenSubject & "Other" 
	if not varBook = "" then varSubject = varGenSubject & "Book"
	
	MyMail.Subject = varSubject
	messagetext = "Name: " & varFromName & vbCrLf & messagetext
	MyMail.Body = messagetext
	
	'Set Mail      = Server.CreateObject("Persits.MailSender")
	'Mail.Host     = "mail.weirdstop.com.au"
	'Mail.From     = varEmail
	'Mail.FromName = varFromName
	'Mail.AddAddress  "ehathorn@bigpond.com", "Libby Hathorn"
	'Mail.Subject  = "Message From LibbyHathorn.com" & varSubject
	'Mail.Body     = messagetext

	On Error Resume Next
	MyMail.Execute
	Set myMail=nothing

	If Err < 0 Then
	   Response.Redirect("/lh/emailMe/emailMe.asp?r=error")
	   'Response.Write Err.Description
	Else
	   Response.Redirect("/lh/emailMe/emailMe.asp?r=sucess")
	End If

	'Cleanup mem
	Set Mailer = Nothing

End if
%>