Marine Education Society of Australasia
 
Home | About MESA | Contact MESA | Seaweek | Site Resources | Marine Links | International News | Marine Careers | Forums
  Marine Links    
Options
Main Page
View Latest Site Additions
Detailed Search
Suggest A Site!
Options
Marine Animals (41)
Museums & Aquaria (4)
Conservation - General (12)
Conservation - Groups (7)
Educational Organisations (35)
General Resources (16)
Government Organisations (14)
Introduced Species (1)
Marine Careers (4)
Local Issues / Information (5)
Marine Pollution (3)
Marine Discovery Centres (5)
Marine News (1)
Oceans (3)
Marine Plants (10)
Online Publications (13)
Coral Reefs (4)
Options
Keyword Search:


  Report Bad Link

Please fill in your details to notify us of a bad Marine Site Link

Name
Email
   Contact Web Manager © MESA 1999 - 2010
 0.00000 secs   
     SpiderByte Web Design Top
' Notification Mail Template sql = "SELECT template_html FROM automail_templates WHERE template_id = ''" Set rs2 = Conn.execute(sql) If not rs2.EOF then templateHTML = rs2.Fields("template_html").Value End If rs2.Close Set rs2 = Nothing If templateHTML <> Empty then Set mailer = new spiderMail mailer.mailApp = "jMail" mailer.mailOut = "single" mailer.mailSample = TRUE mailer.Subject = "" mailer.FromEmail = appGetKey("config","mail_from") mailer.FromName = appGetKey("config","name_from") mailer.ToEmail = mailer.BodyHTML = templateHTML mailer.Send() Set mailer = Nothing End If rs.Close Set rs = nothing closeDBConn()