<%@ Language=VBScript %> <% Response.Status="301 Moved Permanently" Response.AddHeader "Location", "http://www.conference.navcanada.ca/reservations_fr.php" response.end %> <% META_DESCRIPTION="" META_KEYWORDS="Demande de devis" META_TITLE = "Demande de devis" PAGE_TITLE = "Demande de devis" PAGE_COLOR = COLOR_GREEN PAGE_KEY = "" SIDER_HTML = "" %> <% if CInt(Request.Form("hdnSubmit")) = 1 then dim strContent strContent = CreateHTMLEmailTemplate("FR") strContent = Replace(strContent,"%%Name%%",server.HTMLEncode(Request.Form("name"))) strContent = Replace(strContent,"%%CompanyName%%",server.HTMLEncode(Request.Form("companyname"))) strContent = Replace(strContent,"%%Address%%",server.HTMLEncode(Request.Form("address"))) strContent = Replace(strContent,"%%City%%",server.HTMLEncode(Request.Form("city"))) strContent = Replace(strContent,"%%Prov%%",server.HTMLEncode(Request.Form("provincestate"))) strContent = Replace(strContent,"%%Country%%",server.HTMLEncode(Request.Form("country"))) strContent = Replace(strContent,"%%PostalCode%%",server.HTMLEncode(Request.Form("postalzip"))) strContent = Replace(strContent,"%%Tel%%",server.HTMLEncode(Request.Form("tel"))) strContent = Replace(strContent,"%%Fax%%",server.HTMLEncode(Request.Form("fax"))) strContent = Replace(strContent,"%%Email%%",server.HTMLEncode(Request.Form("email"))) strContent = Replace(strContent,"%%Title%%",server.HTMLEncode(Request.Form("title"))) strContent = Replace(strContent,"%%Attendees%%",server.HTMLEncode(Request.Form("attendees"))) strContent = Replace(strContent,"%%Arrival%%",server.HTMLEncode(Request.Form("arrival"))) strContent = Replace(strContent,"%%Departure%%",server.HTMLEncode(Request.Form("departure"))) strContent = Replace(strContent,"%%Flexible%%",server.HTMLEncode(Request.Form("flexible"))) strContent = Replace(strContent,"%%Single%%",server.HTMLEncode(Request.Form("single"))) strContent = Replace(strContent,"%%Double%%",server.HTMLEncode(Request.Form("double"))) strContent = Replace(strContent,"%%Suites%%",server.HTMLEncode(Request.Form("suites"))) strContent = Replace(strContent,"%%MeetingRoom%%",server.HTMLEncode(Request.Form("mainmeetingroom"))) if Trim(Request.Form("peoplemeet")) = "" then strContent = Replace(strContent,"%%People%%","0") else strContent = Replace(strContent,"%%People%%",server.HTMLEncode(Request.Form("peoplemeet"))) end if if UCase(Request.Form("mainmeetingroom")) = "NO" then strContent = Replace(strContent,"%%MeetingType%%","N/A") else strContent = Replace(strContent,"%%MeetingType%%",server.HTMLEncode(Request.Form("mainmeetroomtype"))) end if if Trim(Request.Form("mainstartdate")) = "" then strContent = Replace(strContent,"%%MeetingStart%%","N/A") else strContent = Replace(strContent,"%%MeetingStart%%",server.HTMLEncode(Request.Form("mainstartdate"))) end if if Trim(Request.Form("mainenddate")) = "" then strContent = Replace(strContent,"%%MeetingEnd%%","N/A") else strContent = Replace(strContent,"%%MeetingEnd%%",server.HTMLEncode(Request.Form("mainenddate"))) end if if Trim(Request.Form("mainenddate")) = "" then strContent = Replace(strContent,"%%DepartureDate%%","N/A") else strContent = Replace(strContent,"%%DepartureDate%%",server.HTMLEncode(Request.Form("maindeparture"))) end if strContent = Replace(strContent,"%%Breakouts%%",server.HTMLEncode(Request.Form("breakoutroom"))) if Trim(Request.Form("numbreakoutrooms")) = "" then strContent = Replace(strContent,"%%BreakoutNum%%","0") else strContent = Replace(strContent,"%%BreakoutNum%%",server.HTMLEncode(Request.Form("numbreakoutrooms"))) end if if UCase(Request.Form("breakoutroom")) = "NO" then strContent = Replace(strContent,"%%BreakoutType%%","N/A") else strContent = Replace(strContent,"%%BreakoutType%%",server.HTMLEncode(Request.Form("breakoutroomtype"))) end if if Trim(Request.Form("breakoutstartdate")) = "" then strContent = Replace(strContent,"%%BreakoutStart%%","N/A") else strContent = Replace(strContent,"%%BreakoutStart%%",server.HTMLEncode(Request.Form("breakoutstartdate"))) end if if Trim(Request.Form("breakoutenddate")) = "" then strContent = Replace(strContent,"%%BreakoutEnd%%","N/A") else strContent = Replace(strContent,"%%BreakoutEnd%%",server.HTMLEncode(Request.Form("breakoutenddate"))) end if if Trim(Request.Form("avgpeoplebreakout")) = "" then strContent = Replace(strContent,"%%BreakoutAvg%%","N/A") else strContent = Replace(strContent,"%%BreakoutAvg%%",server.HTMLEncode(Request.Form("avgpeoplebreakout"))) end if if Trim(Request.Form("needs")) = "" then strContent = Replace(strContent,"%%BreakoutNeeds%%","N/A") else strContent = Replace(strContent,"%%BreakoutNeeds%%",server.HTMLEncode(Request.Form("needs"))) end if strContent = Replace(strContent,"%%CheckFood%%",server.HTMLEncode(Request.Form("foodandbev"))) strContent = Replace(strContent,"%%OtherInfo%%",server.HTMLEncode(Request.Form("foodneeds"))) 'Call Mail2000(TO_ADDRESS, Request.Form("email"), "Demande de devis", strContent) Call SendMail(TO_ADDRESS, Request.Form("email"), "Demande de devis", strContent) Response.Redirect "confirm.asp" end if %>

Demande de devis

1. Coordonnes de la personne-ressource

Nom :

Nom de l'entreprise :

Adresse postale :

Ville :

Province/tat :

Pays :

Code postal/Zip Code:

Tl. :

Tlc. :

Courriel :

2. Renseignements concernant la runion

Titre de la confrence/formation :

Nombre de personnes attendues :

Date de l'arrive :

Date du dpart :

Ces dates sont-elles flexibles?
Oui Non

3. Nombre et catgorie de chambres requises

Veuillez indiquer le nombre maximum de chambres de chaque catgorie dont vous aurez besoin. Indiquez 0 si vous ne prvoyez pas avoir besoin de chambres dans une catgorie particulire.
Chambres standard : Chambres doubles : Suites :

4. Salles de runion requises

Aurez-vous besoin d'une salle de runion principale?
Oui Non

Nombre de personnes :

Type de configuration :

Date de dbut : Date de fin :

Date du dpart :

Aurez-vous besoin de salles de travail?
Oui Non

Nombre de salles :

Type de configuration :

Date de dbut : Date de fin :

Nombre moyen de personnes :

Veuillez indiquer les besoins prcis auxquels devront rpondre ces salles de runion, notamment en fait d'quipement audio-visuel.

5. Services de restauration requis

Veuillez cocher tous les services de restauration qui pourront s'appliquer.
Petit djeuner Djeuner Dner Rception

Y a-t-il d'autres prcisions concernant les services de restauration que vous souhaitez ajouter?