080428 작업 소스 정리

<%

h_Price = Request("price")
If Request("price")="" Then h_Price=""

  If h_Price = "b" Then     //radio 값 받기
   kaGuk = "5천미만"   

  end if

%>

 

<FORM METHOD=POST ACTION="ThemeList.asp" name="frm">

 

      <td width="33%"><input name="price" type="radio" value="b">
                                5천미만 </td> //레디오 선택

 

</FORM>           

 

<a href="javascript:document.frm.submit();"> //스크립트로 서브밋~!!

[시세기준일 : <% if strDates  then %> <%=formatDateTime(strDates,2)%>] <% else %> - ]<% end if %></td> //날짜뽑기

<% if rsListData(2, inti)  then %> <%=formatcurrency(rsListData(2, inti))%> <% else %> - <% end if %></td> //원단위로 뽑기

 

 

//프로지져 호출

 

    objConn.CursorLocation = 3  ' = adUseClient
      With objCmd
       .ActiveConnection = objConn
       .CommandText = "CM_SISE_TLIST_SELECT_PROC"  
       .CommandType = adCmdStoredProc
       .Parameters.Append  .CreateParameter("@SI_CD", adVarChar, adParamInput, 10, strSiCode)
       .Parameters.Append  .CreateParameter("@GU_CD", adVarChar, adParamInput, 10, strMainGuCD)
       .Parameters.Append  .CreateParameter("@H_PRICE", adVarChar, adParamInput, 10, h_Price)
         .Parameters.Append  .CreateParameter("@SPACE_CD ", adVarChar, adParamInput, 10, gong_Cd)
        
       .Execute , , adExecuteNoRecords  
       
      End With
      objRS.Open objCmd, , adOpenForwardOnly, adLockReadOnly, adCmdStoredProc

 

    If Not objRs.EOF Then
        rsListData = objRs.GetRows()               //전체 테이블 가져옴
        rsListCnt = Ubound(rsListData,2)         

        If Request("strDates")=""  Then
           strDates = rsListData(8, 0)  '선택셀렉트  데이타 없으면 배열 값 가져오기
          end if   

   End if

 

//프로시져 처리

 

   IF @H_PRICE <> ''
   BEGIN
    IF  @H_PRICE  = 'b'
       BEGIN
          SET @SQL = @SQL +' AND HIGI_SALE_PRICE < 50000 '
      END

  IF  @H_PRICE  = 'c'
    BEGIN
       SET @SQL = @SQL +' AND HIGI_SALE_PRICE between 50000 and 70000'
    END

.

.

.

END