% Dim strPageTitle strPageTitle = "Add Reservation - Admin" %> <% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) %> <% Dim departureF, returnF departureF = Trim(Request("d_flight")) returnF = Trim(Request("r_flight")) IF departureF = "" Then departureF = "OZ221" End If IF returnF = "" Then returnF = "OZ222" End If Dim nPassengers IF Trim(Request("adult_cnt")) = "" Then nPassengers = 1 Else nPassengers = cdbl(Request("adult_cnt")) End If Dim nChild IF Trim(Request("child_cnt")) = "" Then nChild = 0 Else nChild = cdbl(Request("child_cnt")) End If %>