<% session.LCID = 1033 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 %> <% Set RecSet = nothing %>

<%=title%>
Photo Album Inquiry
DAY BY DAY	DETAILS
<% dim ddday(3) ddday(1) = "st" ddday(2) = "nd" ddday(3) = "rd" for i = 1 to session("duration_days") if i <= 3 then dday = i&ddday(i)& " Day" else dday = i& "th Day" end if next RecSet.Open "Select * from daybyday where id_package = "&id_package&" order by n_day", conn if not RecSet.EOF then while not RecSet.EOF if RecSet("n_day") <> d then d = RecSet("n_day") if d < 3 then dday = d&ddday(d)& " Day" else dday = d&"th Day" end if Response.Write " "&dday&" " else Response.Write " " end if Response.Write ""&RecSet("event")&" " Response.Write RecSet("description")&" " RecSet.MoveNext wend end if RecSet.Close %>	<% RecSet.Open "Select * from price_package where 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 price = RecSet("price") end if RecSet.MoveNext wend end if RecSet.Close %> <%RecSet.Open "Select * from packages where id = "&id_package&"", conn%> Price: Upon availability <%'=formatnumber(price, 2)%> Length: <%=RecSet("duration_days")%> Days. Options: <%=RecSet("options")%> Difficulty: <%=RecSet("difficulty")%>. <%policy = RecSet("pricing_details_policy")%> <%id_package = RecSet("id")%> <%album_package = replace(RecSet("title"), " ", "")%> <%RecSet.Close%>
Pricing Details Policy <%=policy%> Inquiry