PCAW - Prostate Cancer Awareness Week, a program of the Prostate Cancer Education Council

<% 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 subeventsDisplay = "none" subeventsDblClick = "ondblclick=""unDoSubMenu('subevents')""" end if %> PCAW - Prostate Cancer Awareness Week, a program of the Prostate Cancer Education Council

Invite a buddy to join the team

Help us get new recruits. Invite your buddies to become part of this season's effort. Fill out the form below to send an invitation.