<%

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("conn_string")

' Response.Redirect "package-create-1.asp"

' Product Types
'
' Inventory_Type_ID
'
'1	Lodging	Lodging Inventory Type for Motel and Hotels
'2	Merchandise	For Item, tickets, etc
'3	Lodging Items	Lodging Item IDs
'4	Merchandise Items	Merchandise Item IDs

%>
<html>
<STYLE>
BODY {SCROLLBAR-FACE-COLOR: #5e5ebe; SCROLLBAR-HIGHLIGHT-COLOR: #5e5ebe; SCROLLBAR-SHADOW-COLOR: #5e5ebe; SCROLLBAR-3DLIGHT-COLOR: #5e5ebe; SCROLLBAR-ARROW-COLOR:  #6666CC; SCROLLBAR-TRACK-COLOR: #E3E3E3; SCROLLBAR-DARKSHADOW-COLOR: #666666; }
</STYLE>
<head>
<title>Untitled Document</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">

<%


For Each Room_Item in Request("Room_Items")

	Room_Package = Int(Request.Form("Room_Item_Package" & Room_Item))
	Package_Name = Request.Form("Package_Name")
	Package_Type_ID = Request.Form("Package_Type_ID")
	Package_Duration_ID = Request.Form("Package_Duration_ID")
	Marketing_Headline = Request.Form("Marketing_Headline")
	Short_Description = Request.Form("Short_Description")
	Long_Description = Request.Form("Long_Description")
	Package_Cost = Request.Form("total" & Room_Package)

	Num_Adults = Request.Form("Num_Adults")
	Num_Children = Request.Form("Num_Children")
	Num_Nights = Int(Request.Form("Num_Nights"))

	Lodging = Request.Form("Lodging")
	Tickets = Request.Form("Tickets")
	Food_Bev = Request.Form("Food_Bev")
	Transport = Request.Form("Transport")

	Disabled = Request.Form("Disabled" & Room_Package)
	Budget = Request.Form("Budget" & Room_Package)

	Effective_Date = Request.Form("Effective_Date" & Room_Package)
	Expire_Date = Request.Form("Expire_Date" & Room_Package)

	Inventory_Type_ID = 3 'Lodging Items, not List ID's

	Room_Group = Request.Form("Room_Item_Group" & Room_Item)
	Lodging_Name = Request.Form("Lodging_Name" & Room_Group)	

	Room_Occupancy = Int(Request.Form("Room_Item_Occ" & Room_Item))
	Room_Name = Request.Form("Room_Item_Name" & Room_Item)
	Room_Quantity = Int(Request.Form("Num_Rooms"))
	Room_Markup = Request.Form("P" & Room_Package & "_Room_Item_Markup" & Room_Item)

%>
<br>
Package: <%=Room_Package%>
<br>
Avg. Cost: <%= Package_Cost %>
<br>
Package Name: <%= Package_Name %>
<br>
Package Type ID: <%= Package_Type_ID %>
<br>
Package Duration ID: <%= Package_Duration_ID %>
<br>
Package Headline: <%= Marketing_Headline %>
<br>
Package Desc: <%= Short_Description %>
<br>
Package Desc Detail: <%= Long_Description %>
<br>
Num_Adults: <%= Num_Adults %>
<br>
Num_Children: <%= Num_Children %>
<br>
Num Nights:<%=Num_Nights%>
<br>
<br>
Lodging bit: <%= Lodging %>
<br>
Tickets bit: <%= Tickets %>
<br>
Food_Bev bit: <%= Food_Bev %>
<br>
Transporation bit: <%= Transport %>
<br>
Disabled: <%= Disabled %>
<br>
Budget: <%= Budget %>
<br>
Effective Date: <%= Effective_Date %>
<br>
Expiry Date: <%= Expiry_Date %>
<br>
<br>
Lodging Item:<br>

Item:<%=Room_Item%><br>
Group:<%= Room_Group%><br>
Quantity:<%=Room_Quantity%><br>
Markup:<%=Room_Markup%><br>
Inventory Type:<%=Inventory_Type_ID%><br>
<br><br>
Attraction Items:<bR>
<%
	For each Att_Item in Request.Form("Att_Items")

		Att_Group = Request.Form("Att_Group" & Att_Item)
		Att_Quantity = Request.Form("Att_Quantity" & Att_Item)
		Att_Markup = Request.Form("P" & Room_Package & "_Att_Item_Markup" & Att_Item)
		Inventory_Type_ID = 2
%>

Item:<%=Att_Item%><br>
Group:<%= Att_Group%><br>
Quantity:<%=Att_Quantity%><br>
Markup:<%=Att_Markup%><br>
Inventory Type:<%=Inventory_Type_ID%><br>
<br>
<%

	Next
%>

<br><br>
Food and Bev Items:<br>

<%
	For each Food_Bev_Item in Request.Form("Food_Bev_Items")

		Food_Bev_Group = Request.Form("Food_Bev_Group" & Food_Bev_Item)
		Food_Bev_Quantity = Request.Form("Food_Bev_Item_Quantity" & Att_Item)
		Food_Bev_Markup = Request.Form("P" & Room_Package & "_Food_Bev_Item_Markup" & Att_Item)
		Inventory_Type_ID = 2
%>

Item:<%=Food_Bev_Item%><br>
Group:<%= Food_Bev_Group%><br>
Quantity:<%=Food_Bev_Quantity%><br>
Markup:<%=Food_Bev_Markup%><br>
Inventory Type:<%=Inventory_Type_ID%><br>
<br>
<%

	Next

Next

%>


<%
For Each item in Request.Form
  If Not UCase(item) = "PAGE" And Not UCase(item) = "CONT" Then
	For each value in Request.Form(item)
%>
		<input type="hidden" name="<%=item%>" value="<%=value%>">

<%=item%> : <%=value%><br>



<%



	Next
  End If
Next
%>

</body>
</html>
