<% 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 %>
HOME » <%=strCATE%>


<% 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) %> <% 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 %>
<%=TITLE%>
<%=SUMMARY%>

<%=strPREV_LINK%> <%=strNEXT_LINK%>
<%ELSE%>
No news article has been found for this category.
<%END IF%>