<% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) Dim sLeftTitleImg sLeftTitleImg = "" Dim subMenu subMenu = "M2" Dim category category = Trim(Request("category")) Dim prod_cd prod_cd = Trim(Request("prod_cd")) %>
<% '--------------------------------------------------------------------------------------------------------------- Dim rsVal Set rsVal = funcGetProductDetailByTour(objQuery, category, prod_cd) If rsVal.EOF = True and rsVal.BOF = True Then %>  현재 준비중이거나 등록된 관련 상품이 없습니다. <% Else objQuery.execute("UPDATE E_Product SET read_cnt=read_cnt+1 WHERE prod_cd='" & 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 '--------------------------------------------------------------------------------------------------------------- %>
<% End Sub %>