<%
Dim dbRset
Dim strSql
Dim brdKind
Dim arrList
Dim i
brdKind = "B0001"
Call Sub_dbConnect()
Set dbRset = Server.CreateObject("ADODB.RecordSet")
' 0 1 2 3 4 5 6 7 8
strSql = " Select Top 4 IDX, NUMBER, TITLE, REF, REFSTEP, REFLEVEL, Convert(char(10), RDATE, 120), HITCNT, USERNAME From BOARD Where KIND = '"& brdKind &"' "
strSql = strSql & " Order By IDX DESC "
''Response.Write strSql
dbRset.Open strSql, dbConn, 1, 3
If Not(dbRset.BOF And dbRset.EOF) Then
arrList = dbRset.GetRows
End If
dbRset.Close
Set dbRset = Nothing
Call Sub_dbDisConnect()
%>
건강나라-죽산에 방문해 주셔서 감사합니다.
<% If IsArray(arrList) Then %>
<% For i=0 To UBound(arrLIst,2) %>
