:::::::::::::::::::::::::::: KOCC - Korea Cat Club ::: TICA Korea branch :::::::::::::::::::::::::::: <% gubun = request("gubun") gubun2=request("gubun2") if gubun="" then gubun="news" end if if gubun="news" or gubun2=1 then title_img = "title_news.gif" table="news_TBL" elseif gubun="event" or gubun2=2 then title_img = "title_event.gif" table="event_TBL" end if Dim intNowPage, intTotalCount, intTotalPage, intBlockPage, intPageSize Dim intTemp, intLoop intNowPage = Request.QueryString("page") intPageSize = 10 intBlockPage = 10 If Len(intNowPage) = 0 Then intNowPage = 1 End If strSQL = "Select Count(*)" strSQL = strSQL & ",CEILING(CAST(Count(*) AS FLOAT)/" & intPageSize & ")" strSQL = strSQL & " from " & table & WhereQuery Set objRs = Server.CreateObject("ADODB.RecordSet") objRs.Open strSQL, objCon,1 intTotalCount = objRs(0) intTotalPage = objRs(1) objRs.Close strSQL="Select Top " & intNowPage * intPageSize strSQL=strSQL & " * from " & table & WhereQuery & " order by idx DESC" objRs.Open strSQL, objCon %>
 
   
 
align="absmiddle"  
align="absmiddle"  
 
 
 
 
   
   
   
   
   
       

743  비밀글입니다 혈통서 문의드립니다  [1] 장미리 2013/01/21 6
742  비밀글입니다 738문의글 관련  [1] 장아름 2013/01/17 1
741  비밀글입니다 캐터리등록문의요  [1] 장혜진 2013/01/16 3
740  비밀글입니다 kocc 등록증 tica등록증 관련 문의입니다   [2] 윤성환 2013/01/12 3
739  비밀글입니다 혈통서 등록문의  [1] 김기혁 2013/01/07 1
738  비밀글입니다 아래 문의글 관련  [1] 장아름 2012/12/13 2
737  비밀글입니다 혈통서 등록,,  [3] 권기연 2012/12/11 3
736  비밀글입니다 출생신고 및 혈통서 발급 문의 드립니다.  [1] 송준화 2012/11/27 2
735  비밀글입니다 고양이캣쇼관련문의  [1] 박주희 2012/11/22 2
734  비밀글입니다 문의드립니다.  [1] 서윤하 2012/11/19 1
   이전 [1][2][3][4][5][6][7] 8 [9][10]..[82] 다음
Copyright 1999-2018 Zeroboard / skin by jabusim