<%
if request("id_package") <> "" then
session("id_package") = request("id_package")
Set RecSet = Server.CreateObject("adodb.recordset")
RecSet.Open "Select * from packages where id = "&session("id_package")&"", conn
session("title_package") = RecSet("title")
session("duration_days") = RecSet("duration_days")
session("duration_nights") = RecSet("duration_nights")
RecSet.Close
Set RecSet = nothing
else
if session("id_package") = "" then Response.Redirect("packages.asp")
end if
%>
The Best Adventures
<%
session.LCID = 1033
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open "Select * from packages where id = "&Request.QueryString("id_package")&"", conn
album_title = RecSet("id")
title = RecSet("title")
id_package = RecSet("id")
image_pkg = RecSet("image_pkg")
RecSet.Close
%>
<%
RecSet.Open "Select specific_acomodations.*, price_specific_package.* from specific_acomodations, price_specific_package where price_specific_package.id_specific_acomodation = specific_acomodations.id and specific_acomodations.id_package = "&id_package&"", conn
if not RecSet.EOF then
while not RecSet.EOF
data_in = RecSet("m_in")&"/"&RecSet("d_in")&"/"&RecSet("y_in")
data_out = RecSet("m_out")&"/"&RecSet("d_out")&"/"&RecSet("y_out")
if Cdate(data_in) <= date() and Cdate(data_out) >= date() then
if price = "" or price > RecSet("price_double") then
price = RecSet("price_double")
end if
end if
RecSet.MoveNext
wend
end if
RecSet.Close
%>
<%RecSet.Open "Select * from packages where id = "&id_package&"", conn%>
<%=RecSet("description")%>
Price: Upon availability <%'=formatnumber(price, 2)%>
Photo Album
