<%
Dim fullSQL
Dim NOTICE_SEQ, NOTICE_SUBJECT, NOTICE_CONTENT, NOTICE_VISITED, NOTICE_APPLY, NOTICE_INPUTDATE
Dim iloopcnt
iloopcnt = 0
fullSQL = " SELECT TOP 3 NOTICE_SEQ, NOTICE_SUBJECT, NOTICE_CONTENT, NOTICE_VISITED, NOTICE_APPLY, CONVERT(VARCHAR(10),NOTICE_INPUTDATE,120) AS NOTICE_INPUTDATE, NOTICE_WRITER"
fullSQL = fullSQL & " FROM AMAS_NOTICE"
fullSQL = fullSQL & " WHERE NOTICE_DIV = 'NENO' AND NOTICE_APPLY='Y'"
fullSQL = fullSQL & " ORDER BY NOTICE_SEQ DESC "
Set RsA = Server.CreateObject("ADODB.RecordSet")
RsA.Open fullSQL, Conn1, 1
Do Until RsA.EOF
iloopcnt = iloopcnt+1
If iloopcnt <= StartNum Then
Else
NOTICE_SEQ = RsA("NOTICE_SEQ")
NOTICE_SUBJECT = RsA("NOTICE_SUBJECT")
NOTICE_CONTENT = RsA("NOTICE_CONTENT")
NOTICE_VISITED = RsA("NOTICE_VISITED")
NOTICE_APPLY = RsA("NOTICE_APPLY")
NOTICE_INPUTDATE = RsA("NOTICE_INPUTDATE")
NOTICE_CONTENT = Replace(NOTICE_CONTENT, chr(13), "
")
%>
| <%= NOTICE_SUBJECT %> |
<%= NOTICE_INPUTDATE %> |
<%
End If
RsA.MoveNext
Loop
%>
|
|
