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

773  비밀글입니다 고양이 등록 메일확인좀 해주세요   김상태 2014/08/14 2
772  비밀글입니다 혈통등록문의   성준호 2014/08/02 0
771  비밀글입니다 혈통등록 문의   김선비 2014/07/07 1
770  비밀글입니다 혈통등록문의   김민호 2014/06/19 0
769  비밀글입니다 궁금한사항~   최은지 2014/05/13 1
768  비밀글입니다 문의드립니다!!!!!!!   장미리 2014/03/08 1
767   혈통서 문의  [1] 김진옥 2013/12/03 1591
766  비밀글입니다 혈통등록 문의   이주희 2013/11/20 1
765  비밀글입니다 혈통등록 번호를 알고 싶습니다.   손주희 2013/11/14 1
764  비밀글입니다 캐터리 등록 및 냥이들 등록   이인석 2013/11/07 0
   이전 [1][2][3][4] 5 [6][7][8][9][10]..[82] 다음
Copyright 1999-2018 Zeroboard / skin by jabusim