<% '--------------------------------------------------------------------------------------------------------------- Dim rsVal Set rsVal = funcGetProductDetailBySpecialTour(objQuery, category) 'Call SubProductList(objQuery, category, "THEME") If rsVal.EOF = True and rsVal.BOF = True Then %> 현재 준비중이거나 등록된 관련 상품이 없습니다. <%Else objQuery.execute("UPDATE E_Product SET read_cnt=read_cnt+1 WHERE prod_cd='" & rsVal("prod_cd") & "' ") %> "> "> <%IF rsVal("txt_optional1") <> "" Or rsVal("txt_optional2") <> "" Or rsVal("txt_optional3") <> "" Then%> <%End IF%> <%IF rsVal("txt_schedule") <> "" Then%> <%End IF%>

" width="200" height="180" border="0"/>

<%IF rsVal("price_YN") = "Y" then%> <%Else%> <%End IF%> ">

<%=rsVal("prod_name")%>

상품가격

: <%IF CDbl(rsVal("old_price")) > 0 Then%>~~$ <%=priceformat(rsVal("old_price"))%>~~ <%End IF%>$ <%=priceformat(rsVal("curr_price"))%>

: 문의바람

여행기간

: <%=rsVal("period")%>

출발일

: <%=rsVal("departure")%>

출발예정일

최소출발인원

: <%=rsVal("minimun_capacity")%> 명

동행인원

: " onclick="javascript:prodForm.rev_persons.select();"/> 명

" target="b_link" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image29','','/images/detail_button_b_over.gif',1)">

<%=Replace(rsVal("txt_description"), Chr(13)&Chr(10), "
")%>

<%IF rsVal("txt_optional1") <> "" Then%> <%End IF%> <%IF rsVal("txt_optional2") <> "" Then%> <%End IF%> <%IF rsVal("txt_optional3") <> "" Then%> <%End IF%>

TOUR NAME	<%=Replace(rsVal("txt_optional1"), Chr(13)&Chr(10), " ")%>

참고사항	<%=Replace(rsVal("txt_optional2"), Chr(13)&Chr(10), " ")%>

포함 / 불포함 사항	<%=Replace(rsVal("txt_optional3"), Chr(13)&Chr(10), " ")%>

<%=rsVal("txt_schedule")%>

<% End IF rsVal.close Set rsVal = Nothing '--------------------------------------------------------------------------------------------------------------- %>