Latest News :-
<%
Dim TOP_SQL, TOP_RS, TOP_strRETURNED_DATA, TOP_EOF_VAL, TOP_intNUM_COL, TOP_intNUM_ROW, TOP_intROW_COUNTER
SELECT CASE DB_TO_USE
CASE 1 ' Access
TOP_SQL = "SELECT TOP " & TOP & " nml_tbl_news.ID, fldTITLE, fldSUM, fldNAME FROM nml_tbl_news, nml_tbl_admin WHERE (nml_tbl_news.fldAID = nml_tbl_admin.ID) AND (fldACTIVE = 1) AND (fldPDATE <= #" & ASDATE(Month(Date), Day(Date), Year(Date)) & "#) AND NOT (fldEDATE < #" & ASDATE(Month(Date), Day(Date), Year(Date)) & "#) ORDER BY fldPDATE DESC"
CASE 2 ' SQL
TOP_SQL = "SELECT TOP " & TOP & " nml_tbl_news.ID, fldTITLE, fldSUM, fldNAME FROM nml_tbl_news, nml_tbl_admin WHERE (nml_tbl_news.fldAID = nml_tbl_admin.ID) AND (fldACTIVE = 1) AND (fldPDATE <= '" & ASDATE(Month(Date), Day(Date), Year(Date)) & "') AND NOT (fldEDATE < '" & ASDATE(Month(Date), Day(Date), Year(Date)) & "') ORDER BY fldPDATE DESC"
CASE 3 ' MySQL
TOP_SQL = "SELECT nml_tbl_news.ID, fldTITLE, fldSUM, fldNAME FROM nml_tbl_news, nml_tbl_admin WHERE (nml_tbl_news.fldAID = nml_tbl_admin.ID) AND (fldACTIVE = 1) AND (Now() BETWEEN fldPDATE AND fldEDATE) ORDER BY fldPDATE DESC LIMIT " & TOP
END SELECT
Call OPEN_DB()
Set TOP_RS = Server.CreateObject("ADODB.Recordset")
TOP_RS.LockType = 1 '// adLockReadOnly
TOP_RS.CursorType = 0 '// adOpenForwardOnly
TOP_RS.Open TOP_SQL, MyConn
IF NOT TOP_RS.EOF THEN
TOP_strRETURNED_DATA = TOP_RS.getrows
ELSE
TOP_EOF_VAL = True
END IF
TOP_RS.close
Set TOP_RS = Nothing
MyConn.close
Set MyConn = Nothing
IF Not TOP_EOF_VAL = True Then
TOP_intNUM_COL=ubound(TOP_strRETURNED_DATA,1)
TOP_intNUM_ROW=ubound(TOP_strRETURNED_DATA,2)
FOR TOP_intROW_COUNTER = 0 TO TOP_intNUM_ROW
TOP_ID = TOP_strRETURNED_DATA(0,TOP_intROW_COUNTER)
TOP_TITLE = TOP_strRETURNED_DATA(1,TOP_intROW_COUNTER)
TOP_SUMMARY = TOP_strRETURNED_DATA(2,TOP_intROW_COUNTER)
TOP_AUTHOR = TOP_strRETURNED_DATA(3,TOP_intROW_COUNTER)
%>
<%=TOP_TITLE%>
<%=TOP_SUMMARY%>
<%
NEXT
END IF
%>