|
|
|
 |
<%
Set getNotice = Server.CreateObject("ADODB.RecordSet")
noticeSQL = "select Top 5 idx,brdidx,subject,regdate from laci_brd_data where brdidx='6' or brdidx='1' order by regdate desc,thread desc,depth asc"
getNotice.Open noticeSQL,dbconn
If getNotice.BOF and getNotice.EOF Then
With Response
.Write ""
.Write "| "
.Write "아직 입력된 글이 없습니다. | "
.Write " "
End With
Else
allData = getNotice.GetRows
getNotice.Close
Set getNotice = Nothing
rownums = Ubound(allData,2)
For rowCounter = 0 To rownums
idx = allData(0,rowCounter)
brdidx = allData(1,rowCounter)
subject = allData(2,rowCounter)
subject = HtmlString(subject,20)
regdate = allData(3,rowCounter)
regdate = split(left(regdate,10),"-",-1,1)
regdate_str = regdate(0) & "/" & regdate(1) & "/" & regdate(2) '& "일"
subject_str = ""&subject&""
With Response
.Write ""
.Write " " & regdate_str & " | "
.Write "" & subject_str & " | "
.Write " "
End With
Next
End If
%>
|
|
|
|
|
|
|
