% function getPgName() getPgName = trim(request.serverVariables("script_name")) getPgName = replace(getPgName, "\", "/") '" getPgName = mid(getPgName, instrrev(getPgName,"/")+1) getPgName = LCase(getPgName) end function %> <%dim strPgID select case getpgName case "cdep.html" strPgID = "cdep" case "cdep_contact.html" strPgID = "cdep" case "cdep_newsletter.html" strPgID = "cdep" case "cdep_schedule.html" strPgID = "cdep" case "cdep_training.html" strPgID = "cdep" case "about_cdep.html" strPgID = "cdep" case else strPgID = "clear" end select %>
|
||||||||||||||||||||||||||||||
Home | Impact | BCC | Direction | Artwork | Resources | Capacity Building | Customized Training |
||||||||||||||||||||||||||||||
|
© 2001 ECRTC.
Maintained by DLM Software Solutions. This site is optimized for Netscape
4 and Internet
Explorer 5 or higher. Please download an updated version. |
||||||||||||||||||||||||||||||