Senior Master Niblock's ATA Black Belt Academy

<% Dim objMail table = request.querystring("table") if table = "faq" then faqclass = "menu2here" linkclass = "menu2option" introclass = "menu2option" rankclass = "menu2option" elseif table = "link" then faqclass = "menu2option" linkclass = "menu2here" introclass = "menu2option" rankclass = "menu2option" elseif table = "rank" then faqclass = "menu2option" linkclass = "menu2option" introclass = "menu2option" rankclass = "menu2here" else faqclass = "menu2option" linkclass = "menu2option" introclass = "menu2here" rankclass = "menu2option" end if %> Senior Master Niblock's ATA Black Belt Academy

?table=intro" class="<% =introclass %>">Intro	?table=faq" class="<% =faqclass %>">FAQ	?table=link" class="<% =linkclass %>">Links	?table=rank" class="<% =rankclass %>">Rank
<% if table = "faq" then %> <% elseif table = "link" then %> <% elseif table = "rank" 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 %>