%@LCID=1036%>
<%'on écrit la page en cache avant le navigateur
Response.Buffer = True
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
ReqRefVoy = Request("ref")
ReqVoyId = Request("idvoy")
ReqSemaine = Request("semaine")
ImageVoy = ""
IF ReqRefVoy = "SURFCAMP" THEN response.redirect "http://www.speedresa.com/moteurs/voyages/detail_voyage.php?IDvoyage=26708&AGENCE=V04" END IF
%>
<%
Function notag(txt) ' Vire les balises
dim regEx
Set regEx = New RegExp
regEx.Global = True
' ^ signifie "tout sauf"
' + signifie 1 car au moins
regEx.Pattern = "<[^>]+>"
' remplace par vide
notag = regEx.replace(txt,"")
end function
%>
<%
IF ReqVoyId <> "" THEN
%>
Réservation <%= fdVilleArr%> :: <%= notag(StrDepart) %> :: <%= fdVilleDep %> :: Voyages Etudiants
<%
ELSE
%>
<%= fdVilleArr%> :: <%= fdEvenementVoy%> :: Voyages Etudiants
<%
END IF
%>