% Dim strCATE, CID
CID = APO(Request.QueryString("cid"))
IF IS_VALID_ID(CID) = False THEN Response.End
SQL = "SELECT fldNAME FROM nml_tbl_cate WHERE ID = " & CID
Call OPEN_DB()
Set RS = Server.CreateObject("ADODB.Recordset")
RS.LockType = 1
RS.CursorType = 0
RS.Open SQL, MyConn
IF NOT RS.EOF THEN
strCATE = trim(RS("fldNAME"))
END IF
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
%>
<%
Dim iStart, iOffset, SQL, RS, EOF_VAL, strRETURNED_DATA, iRows, iCols, iStop, iRowLoop, _
strPREV_LINK, strNEXT_LINK
With Request
iStart = APO(.QueryString("Start"))
iOffset = APO(.QueryString("Offset"))
End With
If Not IsNumeric(iStart) or Len(iStart) = 0 then
iStart = 0
Else
iStart = CInt(iStart)
End If
If Not IsNumeric(iOffset) or Len(iOffset) = 0 then
iOffset = 15
Else
iOffset = Cint(iOffset)
End If
SELECT CASE DB_TO_USE
CASE 1 ' Access
SQL = "SELECT nml_tbl_news.ID, fldTITLE, fldSUM, fldNAME, fldPDATE, fldEDATE, fldDATE 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)) & "#) AND (nml_tbl_news.ID IN (SELECT fldNID FROM nml_tbl_cate_assoc WHERE fldCID = " & CID & ")) ORDER BY fldPDATE DESC"
CASE 2 ' SQL
SQL = "SELECT nml_tbl_news.ID, fldTITLE, fldSUM, fldNAME, fldPDATE, fldEDATE, fldDATE 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)) & "') AND (nml_tbl_news.ID IN (SELECT fldNID FROM nml_tbl_cate_assoc WHERE fldCID = " & CID & ")) ORDER BY fldPDATE DESC"
CASE 3 ' MySQL
SQL = "SELECT nml_tbl_news.ID, fldTITLE, fldSUM, fldNAME, fldPDATE, fldEDATE, fldDATE 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) AND (nml_tbl_news.ID IN (SELECT fldNID FROM nml_tbl_cate_assoc WHERE fldCID = " & CID & ")) ORDER BY fldPDATE DESC"
END SELECT
Call OPEN_DB()
Set RS = MyConn.Execute(SQL)
IF NOT RS.EOF THEN
strRETURNED_DATA = RS.getrows
EOF_VAL = False
ELSE
EOF_VAL = True
END IF
RS.close
Set RS = Nothing
MyConn.close
Set MyConn = Nothing
IF not EOF_VAL = True THEN
iRows = UBound(strRETURNED_DATA, 2)
iCols = UBound(strRETURNED_DATA, 1)
If iRows > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = iRows
End If
FOR iRowLoop = iStart to iStop
ID = strRETURNED_DATA(0, iRowLoop)
TITLE = strRETURNED_DATA(1, iRowLoop)
SUMMARY = strRETURNED_DATA(2, iRowLoop)
AUTHOR = strRETURNED_DATA(3, iRowLoop)
PDATE = strRETURNED_DATA(4, iRowLoop)
EDATE = strRETURNED_DATA(5, iRowLoop)
sDATE = strRETURNED_DATA(6, iRowLoop)
%>
<%=TITLE%>
<%=SUMMARY%>
|
<%
NEXT
If iStart > 0 Then
strPREV_LINK = "Previous " & iOffset & ""
Else
strPREV_LINK = " "
End If
If iStop < iRows Then
strNEXT_LINK = " Next " & iOffset & ""
Else
strNEXT_LINK = " "
End If %>
<%=strPREV_LINK%> |
<%=strNEXT_LINK%> |
<%ELSE%>
No news article has been found for this category. |
<%END IF%>