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

763  비밀글입니다 한가지 더 질문 드립니다.  [1] 정남현 2013/10/17 2
762  비밀글입니다 TICA 에 등록된 캐터리인가요?  [1] 정남현 2013/10/11 3
761  비밀글입니다 혈통서 등록 질문 입니다  [1] 노건 2013/09/08 1
760  비밀글입니다 문의드려요~  [1] 조민지 2013/09/06 3
759  비밀글입니다 혈통서 등록 문의 드립니다.   송민영 2013/08/27 3
758  비밀글입니다 아래글 연락처입니다^^   최대우 2013/08/14 1
757  비밀글입니다 추가 질문 드릴게요^^   최대우 2013/08/13 3
756  비밀글입니다 답변 부탁드립니다.  [1] 조미선 2013/07/01 1
755  비밀글입니다 문의드립니다  [1] 장미리 2013/06/05 5
754  비밀글입니다 혈통서등록 문의  [1] 이현경 2013/05/29 3
   이전 [1][2][3][4][5] 6 [7][8][9][10]..[82] 다음
Copyright 1999-2018 Zeroboard / skin by jabusim