<% Dim pageTitle pageTitle = "Programs and Events: NFL Tackle Prostate Cancer Campaign" %> <% Dim sConn set sConn = server.createobject ("ADODB.Connection") sConn.open "Provider=SQLOLEDB; Data Source=qtw3.registeredsite.com; Initial Catalog=pcawcom; User ID=usr035073106; Password=2K085" %> <% Dim strURL, objRegExp, defaultSubMenu, subpcecDisplay, subpcecDblClick, subinfoDisplay, subinfoDblClick, subsupportDisplay, subsupportDblClick, subeventsDisplay, subeventsDblClick, subpcawDisplay, subpcawDblClick strURL = Request.ServerVariables("URL") set objRegExp = new RegExp defaultSubMenu = "" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' PCEC submenu ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' objRegExp.Pattern = "^/pcec/" if objRegExp.Test(strURL) then defaultSubMenu = "subpcec" subpcecDisplay = "" subpcecDblClick = "" else subpcecDisplay = "none" subpcecDblClick = "ondblclick=""unDoSubMenu('subpcec')""" end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Prostate Cancer Information submenu ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' objRegExp.Pattern = "^/info_articles/" if objRegExp.Test(strURL) then defaultSubMenu = "subinfo" subinfoDisplay = "" subinfoDblClick = "" else subinfoDisplay = "none" subinfoDblClick = "ondblclick=""unDoSubMenu('subinfo')""" end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Support our Efforts submenu ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' objRegExp.Pattern = "^/sponsorship/" if objRegExp.Test(strURL) then defaultSubMenu = "subsupport" subsupportDisplay = "" subsupportDblClick = "" else subsupportDisplay = "none" subsupportDblClick = "ondblclick=""unDoSubMenu('subsupport')""" end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Programs and Events submenu ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' objRegExp.Pattern = "^/events/" if objRegExp.Test(strURL) then defaultSubMenu = "subevents" subeventsDisplay = "" subeventsDblClick = "" else defaultSubMenu = "subevents" subeventsDisplay = "" subeventsDblClick = "" end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Colin Powell submenu ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' objRegExp.Pattern = "^/powell/" if objRegExp.Test(strURL) then defaultSubMenu = "powell" subpowellDisplay = "" subpowellDblClick = "" else subpowellDisplay = "none" subpowellDblClick = "ondblclick=""unDoSubMenu('subpowell')""" end if %> PCAW - Prostate Cancer Awareness Week<% if (len(pageTitle) = 0) then %>, a program of the Prostate Cancer Education Council<% else %> - <%=pageTitle%> <% end if %> PCAW - Prostate Cancer Awareness Week<% if (len(pageTitle) = 0) then %>, a program of the Prostate Cancer Education Council<% else %> - <%=pageTitle%> <% end if %>

<%=pageTitle%>

About PCEC

Prostate Cancer Information

Advanced Prostate Cancer

Support our Efforts

Programs and Events

General Colin Powell

Financial support for this program was provided by Tap Pharmaceutical Products Inc.
For further information, please visit www.prostate.com

Tackle Prostate Cancer Team Weekly Standings

Week	Total Points Scored
Week 9	124
Week 10	116
Week 11	102
Week 12	123
Week 13	124
Week 14	118
Week 15	83
Week 16	114
Week 17	94

>