%
option Explicit
Response.Buffer = TRUE
Dim CurrentPage, totalpage, page
Dim strSql, Totalvalue, pageView 'Àü¿ªº¯¼ö
Dim alldata, numrows, rowcounter, list_name, url, i, numcols, bg, bColor, SECT, whStr, FLAG, IQ_SECT
FLAG = 2
Const Boardwidth = 10
Const perPage = 5
Const DBName = "news"
Const TBName = "NEWS_IQ"
Const CT = "IQ_NUM"
Const idKey = "IQ_NUM"
Const orStr = "ORDER BY IQ_DATE DESC"
Const dField = "IQ_DATE, IQ_TITLE, IQ_FILE, IQ_VISITED, IQ_NUM"
bg = 1
IQ_SECT = replaceStr(Request.QueryString("iq_sect"))
page = GetOnlyNumber(request.QueryString("page"), "CINT")
whStr = "IQ_SECT = '4'"
'If IQ_SECT = "" Then IQ_SECT = 1
'Select Case IQ_SECT
' Case "1" whStr = "IQ_SECT = '" & IQ_SECT & "'"
' Case Else Response.End
'End Select
If (page = 0 Or page = "") then CurrentPage = 1 Else CurrentPage = Cint(page)
%>
¼øº¹À½°¡Á·¿©·¯ºÐ! Çϳª´ÔÀº ´ç½ÅÀ» »ç¶ûÇϽʴϴÙ.