%@ Language=VBScript %>
<%
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "http://www.conference.navcanada.ca/reservations.php"
response.end
%>
<%
META_DESCRIPTION=""
META_KEYWORDS="Request for Proposal"
META_TITLE = "Request for Proposal"
PAGE_TITLE = "Request for Proposal"
PAGE_COLOR = COLOR_GREEN
PAGE_KEY = ""
SIDER_HTML = ""
%>
<%
if CInt(Request.Form("hdnSubmit")) = 1 then
dim strContent
strContent = CreateHTMLEmailTemplate("EN")
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"), "Request for Proposal", strContent)
Call SendMail(TO_ADDRESS, Request.Form("email"), "Request for Proposal", strContent)
Response.Redirect "confirm.asp"
end if
%>
![]()
Request for Proposal