<HTML>
<HEAD>
<TITLE>Fonction Response</TITLE>
</HEAD>
<BODY>
<%
  Function CoutVille(NombreJours)
    varHotelTotal = NombreJours*175
    varRepasTotal = NombreJours*75
    varTransportAeroport = 85
    CoutVille = varHotelTotal+varRepasTotal+varTransportAeroport
  End Function

  Function CoutBanlieue(NombreJours)
    varHotelTotal = NombreJours*85
    varCarTotal = NombreJours*45
    varRepasTotal = NombreJours*75
    CoutBanlieue = varHotelTotal+varRepasTotal
  End Function

  varLieu=Request.Form("lieu")
%>
<H3>Vous avez choisi un htel en <%=varLieu%>.<BR>
le prix de votre sjour est estim  :</H3>
<%
  Select Case (varLieu)
    Case "ville"
      varCost = CoutVille(2)
      Response.Write "Deux jours de confrence cotent " & varCost & "F<br>" 
      varCost = CoutVille(4)
      Response.Write " Quatre jours de confrence cotent " & varCost & "F<br>"
      varCost = CoutVille(6)
      Response.Write " Six jours de confrence cotent " & varCost & "F<br>"
    Case "Banlieue"
      varCost = CoutBanlieue(2)
      Response.Write " Deux jours de confrence cotent " & varCost & "F<br>"	
      varCost = CoutBanlieue(4)
      Response.Write " Quatre jours de confrence cotent " & varCost & "F<br>"
      varCost = CoutBanlieue(6)
      Response.Write " Six jours de confrence cotent " & varCost & "F<br>"
  End Select
%>
</BODY>
</HTML>
