Home | About MESA | Contact MESA | Seaweek | Site Resources | Marine Links | International News | MESA History
  Marine Links    
Options
Main Page
View Latest Site Additions
Detailed Search
Suggest A Site!
Options
Marine Animals (45)
Antarctica (1)
Museums & Aquaria (4)
Marine Birds (1)
Conservation - General (13)
Conservation - Groups (10)
Educational Organisations (40)
General Resources (18)
Government Organisations (16)
Introduced Species (1)
Marine Careers (5)
Local Issues / Information (5)
Marine Pollution (3)
Marine Ecology (5)
Marine Discovery Centres (6)
Marine News (1)
Oceans (4)
Marine Plants (10)
Online Publications (15)
Coral Reefs (6)
Aquaria, keeping fish, etc (1)
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 - 2015
0.00293 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()