:::::::::::::::::::::::::::: 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"  
 
 
 
 
   
   
   
   
   
       

  [공지] koreacatclub@naver.com 으로 연락주세요.  
kocc
2013/07/01 1497
  [공지] 각종 문의관련 연락처 안내  
kocc
2012/03/21 2118
811   회원가입을 위한 상담을 하고 싶습니다.   박규택 2018/01/27 2
810  비밀글입니다 정회원 1대등록 관련 문의   이난희 2018/01/17 0
809  비밀글입니다 혈통서 및 캐터리 등록 문의   민동기 2018/01/10 0
808  비밀글입니다 혈통서문의   정건호 2017/10/26 0
807  비밀글입니다 혈통서발급문의요   윤서영 2017/08/15 0
806  비밀글입니다 혈통서 관련 문의   임지혜 2017/06/07 4
805  비밀글입니다 혈통서 문의입니다   이상현 2017/06/05 0
804   회원가입과 혈통서 문의 입니다   서혁호 2017/05/22 21
    1 [2][3][4][5][6][7][8][9][10]..[82] 다음
Copyright 1999-2018 Zeroboard / skin by jabusim