<% Set objTools = Server.CreateObject("ASPFormat.Format") dateFormat = "d MMMM yyyy, h:Nn am/pm" author = "" author = "" embeddedmedid = "7611" medtype = "audio" previewimage = "" miniplayerheight = "" miniplayerwidth = "" autostart = "false" allowfullscreen = "" showcontrols = "" showaudiocontrols = "" showdisplay = "" showpositioncontrols = "" showstatusbar = "" show_rating = "no" show_facebook = "no" show_twitter = "no" if "ENG" = "FRA" then langprint = "Imprimer cette page" langemail = "Envoyer cette page à un ami" langby = "By" elseif "ENG" = "ITA" then langprint = "Stampa pagina" langemail = "Invia pagina" langby = "By" elseif "ENG" = "CYM" then langprint = "Argraffu'r dudalen yma" langemail = "Ebostio'r dudalen yma" langby = "Gan" else langprint = "Print this page" langemail = "E-mail this page" langby = "By" end if function showDate7794( d, f ) d = objTools.FormatString(d,f) if "ENG" = "FRA" then d = Replace(d,":","h") d = Replace(d,"January","janvier") d = Replace(d,"February","février") d = Replace(d,"March","mars") d = Replace(d,"April","avril") d = Replace(d,"May","mai") d = Replace(d,"June","juin") d = Replace(d,"July","juillet") d = Replace(d,"August","août") d = Replace(d,"September","septembre") d = Replace(d,"October","octobre") d = Replace(d,"November","novembre") d = Replace(d,"December","décembre") d = Replace(d,"Feb","Fév") d = Replace(d,"Apr","Avr") d = Replace(d,"Jul","Jui") d = Replace(d,"Aug","Aoû") d = Replace(d,"Dec","Déc") elseif "ENG" = "CYM" then d = Replace(d,"January","Ionawr") d = Replace(d,"February","Chwefror") d = Replace(d,"March","Mawrth") d = Replace(d,"April","Ebrill") d = Replace(d,"May","Mai") d = Replace(d,"June","Mehefin") d = Replace(d,"July","Gorffennaf") d = Replace(d,"August","Awst") d = Replace(d,"September","Medi") d = Replace(d,"October","Hydref") d = Replace(d,"November","Tachwedd") d = Replace(d,"December","Rhagfyr") d = Replace(d,"Jan","Ion") d = Replace(d,"Feb","Chw") d = Replace(d,"Mar","Maw") d = Replace(d,"Apr","Ebr") d = Replace(d,"Jun","Meh") d = Replace(d,"Jul","Gor") d = Replace(d,"Aug","Aw") d = Replace(d,"Sep","Med") d = Replace(d,"Oct","Hyd") d = Replace(d,"Nov","Tach") d = Replace(d,"Dec","Rha") end if showDate7794 = d end function %>