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

793   우리 나라 정식 정인 캐터리 회원 수에 문의 드립니다.   김도현 2016/02/14 14
792   혈통서 발급 문의드립니당    백상기 2016/02/01 11
791  비밀글입니다 혈통서등록   성종영 2016/02/01 3
790  비밀글입니다 혈통서 등록 문의   장현우 2016/01/26 1
789  비밀글입니다 혈통서 문의 드립니다.   김원태 2016/01/15 1
788  비밀글입니다 고양이 혈통등록에 관한 문의 드립니다.   이주현 2016/01/08 0
787  비밀글입니다 kocc 이메일 확인 부탁드립니다.   안미경 2016/01/02 1
786  비밀글입니다 혈통서메일확인여부   안미경 2015/12/26 2
785  비밀글입니다 1대등록 혈통서발급문의   송태민 2015/12/10 0
784  비밀글입니다 혈통서 등록 오류 수정할 수 있나요?   박정수 2015/11/18 0
   이전 [1][2] 3 [4][5][6][7][8][9][10]..[82] 다음
Copyright 1999-2018 Zeroboard / skin by jabusim