Senior Master Niblock's ATA Black Belt Academy

<% Dim objMail table = request.querystring("table") if table = "mailing" then contactclass = "menu2option" mailingclass = "menu2here" else contactclass = "menu2here" mailingclass = "menu2option" end if %> Senior Master Niblock's ATA Black Belt Academy

?table=contact" class="<% =contactclass %>">Contact	?table=mailing" class="<% =mailingclass %>">Mailing List
<% if table = "mailing" then %> <% else %> <% end if%>

<% Sub send_mail(address,subject,message_text) Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "staff@niblocksata.com" objMail.Subject = "NIBLOCKSATA: " &Subject objMail.To = address objMail.Bcc = "admin@niblocksata.com" message = "*******************************************" &chr(13) message = message & " Automated E-mail from www.niblocksata.com" &chr(13) message = message & "*******************************************" &chr(13) message = message &message_text message = message &chr(13) &chr(13) &"*******************************************" objMail.Body = message objMail.Send 'You must always do this with CDONTS. set objMail = nothing End sub %>