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

803  비밀글입니다 연간정회원가입문의드립니다.   조현수 2017/01/05 1
802   메일 확인좀 해주세요   성종영 2016/10/26 8
801  비밀글입니다 혈통서 발급문의   표상택 2016/10/25 0
800   캣쇼 신청 끝났나요 ㅠㅠ  [1] 윤혜진 2016/09/15 18
799  비밀글입니다 혈통서 어떻게 발급 받을수있는건가요?   이승희 2016/06/21 0
798   메일   남수진 2016/06/17 5
797   TICA 혈통서등록 문의 합니다   계영주 2016/05/07 24
796  비밀글입니다 혈통서 관련   이윤정 2016/04/12 3
795   혈통서 관련   박정수 2016/03/01 16
794  비밀글입니다 혈통서 관련   정이든 2016/02/20 0
   이전 [1] 2 [3][4][5][6][7][8][9][10]..[82] 다음
Copyright 1999-2018 Zeroboard / skin by jabusim