<%@ 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 : Free Stuff : Submit an Activity

Submit an Activity

Check Out Photos of
Brains Rule!
Neuroscience Expos

Teachers Get Involved!

* Indicates a required field.

Name of Team leader or individual presenting activity:*
Organization/Department/Affiliation:
Title or status (Faculty, staff, student)
Phone (xxx-xxx-xxxx):*
Email:*
Mailing Address:

Title of activity:
Team members names:
T-shirt sizes: (Please indicate size for each member of team: Adult L, XL, XXL) Brief Description of the hands-on activity you will be presenting:
Are there any special materials that you will need for your activity that you may have difficulty procuring? If so, please list.
By checking this box, I (we) acknowledge that we will be attending the Orientation Session and have read the presenter's hand book.

Links | Contact | About | Privacy | Sites

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