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

733  비밀글입니다 혈통서 문의 드립니다.  [1] 장아름 2012/11/19 4
732  비밀글입니다 혈통서 관련 답변 부탁드립니다.  [1] 김지선 2012/11/18 2
731  비밀글입니다 어제 정회원 가입 메일 보내들였어여  [1] 정은정 2012/11/08 1
730   정회원가입 문의들여요..  [1] 김근배 2012/10/29 642
729  비밀글입니다 혈통서 문의드립니다.  [1] 정혜란 2012/10/23 3
728  비밀글입니다 안녕하세요..  [1] 이상봉 2012/09/25 2
727  비밀글입니다 혈통서 문의 드려요  [1] 김규성 2012/09/24 3
726  비밀글입니다 문의 입니다.  [2] 박성수 2012/09/18 7
725  비밀글입니다 아래글 725번 =>타이틀 등록 신청했는데요..진행이 어떻게 되는지 궁금합니다.   [1] 신대준 2012/09/10 2
724  비밀글입니다 안녕하세요 혈통등록신청 문의 드려요.  [2] 이민혁 2012/09/03 4
   이전 [1][2][3][4][5][6][7][8] 9 [10]..[82] 다음
Copyright 1999-2018 Zeroboard / skin by jabusim