<%@ LANGUAGE="VBScript" %> <% Option Explicit %> <% Dim t_name, t_dep, t_stat, t_phone,t_email, t_add, t_act, t_members, t_mat, t_size, msg, re, valid t_name = Request.Form("name") t_dep = Request.Form("dep") t_stat = Request.Form("stat") t_phone = Request.Form("phone") t_email = Request.Form("email") t_add = Request.Form("add") t_act = Request.Form("act") t_members = Request.Form("members") t_mat = Request.Form("mat") t_size = Request.Form("size") msg = "" If Request.Form("submit") = "Submit" Then If t_name = "" Then msg = msg & "* Team Leader's Name
" End If If t_dep = "" Then msg = msg & "* Organization/Department/Affiliation
" End If If t_stat = "" Then msg = msg & "* Status
" End If If t_phone = "" Then msg = msg & "* Phone
" Else Set re = new RegExp re.IgnoreCase = false re.global = false re.Pattern = "[2-9][0-9][0-9]-[2-9][0-9][0-9]-[0-9][0-9][0-9][0-9]" valid = re.Test(t_phone) If valid = 0 Then msg = msg & "* Phone
" End If End If If t_email = "" Then msg = msg & "* Email
" Else Set re = new RegExp re.IgnoreCase = false re.global = false re.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" valid = re.Test(t_email) If valid = 0 Then msg = msg & "* Email
" End If End If If t_add = "" Then msg = msg & "* Mailing Address
" End If If t_act = "" Then msg = msg & "* Title of Activity
" End If If t_members = "" Then msg = msg & "* Member Names
" End If If t_size = "" Then msg = msg & "* T-shirt sizes
" End If If t_mat = "" Then msg = msg & "* Special Materials
" End If If Request.Form("agree") <> "agree" Then msg = msg & "* Please Acknowledge that you will be attending the Orientation Session and have read the presenter's hand book
" End If If msg = "" Then Dim MyBody, setval, resBody Dim MyCDONTSMail Set MyCDONTSMail = CreateObject("CDONTS.NewMail") setval = "" MyCDONTSMail.From= t_email MyCDONTSMail.To= "dreisinger@creighton.edu" MyCDONTSMail.Subject="Mail from Brainsrule" MyBody = "Name: " & t_name & vbCrLf & vbCrlf & " Organization/Department/Affiliation: " & t_dep & vbCrlf & vbCrlf & " Title/Status: " & t_stat & vbCrlf & vbCrlf MyBody = MyBody & "Phone: " & t_phone & vbCrlf & vbCrlf & " Email Address: " & t_email & vbCrlf & " Mailing Address: " & vbCrlf & t_add & vbCrlf & vbCrlf & " Activity: " & vbCrlf & t_act & vbCrlf & vbCrlf MyBody = MyBody & " Members: " & vbCrlf & t_members & vbCrlf & vbCrlf & " T-shirt sizes: " & vbCrlf & t_size & vbCrlf & vbCrlf & " Materials recquired: " & vbCrlf & t_mat MyCDONTSMail.Body= MyBody MyCDONTSMail.Send Set MyCDONTSMail=nothing setval = "sent" End If End If %> Welcome to BrainsRule!

Home : Lesson Plans : Participate : Brain Awareness Week

Brain Awareness Week

Dana Alliance for Brain Initiatives

The Dana Alliance is a nonprofit organization of more than 200 pre-eminent scientists dedicated to advancing education about the progress and promise of brain research.

Click on this link for more educational resources.

Brain Awareness Week - March 13 - 19, 2006

Brain Awareness Week (BAW) highlights advances in our knowledge about the brain and nervous system, and brings neuroscientists out into the community to increase public awareness. The Society for Neuroscience offers these great resources for teachers:

Brain Briefingss - A series of two-page newsletters explaining how basic neuroscience discoveries lead to clinical applications

Brain Facts - Brain Facts is a 52-page primer on the brain and nervous system, published by the Society for Neuroscience.This newly revised edition of Brain Facts is available in print and in pdf format.

Neuroscientist / Teacher Partners - Are you a K-12 teacher who would like to interact with a neuroscientist? If you are, this resource can help you locate a volunteer neuroscientist in your local area.

Brain Awareness Week Lesson Plans - Get a head start in planning classroom activities for Brain Awareness Week!!

Links | Contact | About | Privacy | Sites

Brains Rule! Funded by the National Institute on Drug Abuse Science Education Drug Abuse Partnership Award R25DA 13522-06
© University of Nebraska at Omaha 2006