<% '//현재장바구니 물품개수 Dim arrIsCart arrIsCart = funcGetCartInfoArr(objQuery, SESSION("SHOP_USERID"), SESSION("GUID")) IF IsArray(arrIsCart) Then Dim order_cd order_cd = Trim(Request("order_cd")) Dim member_row Dim name_first, name_mid, name_last, nick_name Dim userid, adr1, adr2, city, zip, state, country, tel_1, tel_2, tel_3 IF strcomp(SESSION("User_Group"),"MEMBER") = 0 then Set member_row = funcGetRsUserInfo(objQuery, SESSION("SHOP_USERID")) userid = Trim(member_row("Login_ID")) name_first = Trim(member_row("Name_First")) name_mid = Trim(member_row("Name_Mid")) name_last = Trim(member_row("Name_Last")) nick_name = Trim(member_row("Nick_Name")) adr1 = Trim(member_row("Addr1")) adr2 = Trim(member_row("Addr2")) city = Trim(member_row("City")) state = Trim(member_row("State")) zip = Trim(member_row("Zip")) country = Trim(member_row("Country")) tel_1 = Trim(member_row("Tel_1")) tel_2 = Trim(member_row("Tel_2")) tel_3 = Trim(member_row("Tel_3")) member_row.close Set member_row = nothing End If IF order_cd = "" Then '//주문코드 생성 Dim t, c, a, sDate Randomize t = datediff("s",Date(),now) c = "" for i=0 to 1 a = (int(rnd()*26) )+65 c = c & chr(a) next sDate = FuncCurDateOrder() order_cd = sDate&"_"& c & right(t,3) End If %> <% Dim rsCart, ix Set rsCart = funcGetCartInfo(objQuery, Trim(SESSION("SHOP_USERID")), SESSION("GUID")) Dim rsProd, opt Dim icon_imgType Dim optionArr, tprice Dim cart_cnt, total_buy_price, totalM cart_cnt = 0 '//상품 품목 개수 total_buy_price = 0 '//총구매 금액 ix = 0 Do Until rsCart.eof ix = ix + 1 Set rsProd = funcGetCartPordInfo(objQuery, rsCart("prod_cd")) '//상품정보 IF rsProd.EOF = False AND rsProd.BOF = False Then cart_cnt = cart_cnt + rsCart("cnt") tprice = rsCart("cnt") * cdbl(rsCart("price")) '//구매가격 : 상품가격X상품수량 total_buy_price = total_buy_price + tprice '//총구매금액 ex)tprice 의 합 %> <%IF cdbl(rsCart("price")) > 0 Then%> <%Else%> <%End iF%> <% End IF rsProd.close Set rsProd = Nothing rsCart.movenext Loop rsCart.close Set rsCart = Nothing totalM = total_buy_price %>

#Item

여행상품

상품가

인원

출발예정일

<%=ix%>

<%=rsProd("prod_name")%>

$ <%=PriceFormat(rsCart("price"))%>

문의바람

<%=rsCart("option2")%>

<%=rsCart("option1")%>

* Estimated Total :

예약완료 후 담당자가 현재시점의 항공료를 포함한 정확한 견적가와 세부 스케줄을 알려드립니다.
* E-mail
* 이름 (한글)
* 이름 (영문)	(First/ M.I./ Last Name)
주소1
주소2
City
State/ Zip	<%Call subReStateBox2(state)%>,
Country
전화번호	> - > - >
전하실 말씀

<% End IF %>