<% Dim strCATE, CID, ID ID = APO(Request.QueryString("ID")) IF IS_VALID_ID(ID) = False THEN Response.End CID = APO(Request.QueryString("cid")) Call OPEN_DB() IF NOT IS_VALID_ID(CID) = False THEN SQL = "SELECT fldNAME FROM nml_tbl_cate WHERE (ID = " & CID & ")" 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 END IF SQL = "SELECT fldTITLE FROM nml_tbl_news WHERE (fldACTIVE = 1) AND (ID = " & ID & ")" Set RS = Server.CreateObject("ADODB.Recordset") RS.LockType = 1 RS.CursorType = 0 RS.Open SQL, MyConn IF NOT RS.EOF THEN TITLE = trim(RS("fldTITLE")) END IF RS.Close Set RS = Nothing MyConn.Close Set MyConn = Nothing %>
HOME <%IF NOT IS_VALID_ID(CID) = False THEN%>» <%=strCATE%><%END IF%> » <%=TITLE%>

<% Dim RS, SQL, CONTENT, TITLE, AUTHOR, sDATE, eDATE, SUBMITED SELECT CASE DB_TO_USE CASE 1 ' Access SQL = "SELECT fldTITLE, fldSUM, fldNAME, fldPDATE, fldEDATE, fldDATE, fldMSG 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 = " & ID & ")" CASE 2 ' SQL SQL = "SELECT fldTITLE, fldSUM, fldNAME, fldPDATE, fldEDATE, fldDATE, fldMSG 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 = " & ID & ")" CASE 3 ' MySQL SQL = "SELECT fldTITLE, fldSUM, fldNAME, fldPDATE, fldEDATE, fldDATE, fldMSG 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 = 2) " END SELECT Call OPEN_DB() Set RS = Server.CreateObject("ADODB.Recordset") RS.LockType = 1 RS.CursorType = 0 RS.Open SQL, MyConn IF NOT RS.EOF THEN TITLE = trim(RS("fldTITLE")) SUMMARY = trim(RS("fldSUM")) AUTHOR = trim(RS("fldNAME")) sDATE = trim(RS("fldPDATE")) eDATE = trim(RS("fldEDATE")) SUBMITED= trim(RS("fldDATE")) CONTENT = trim(RS("fldMSG")) END IF RS.Close Set RS = Nothing SQL = "UPDATE nml_tbl_news SET fldVIEW = fldVIEW + 1 WHERE ID = " & ID MyConn.Execute(SQL) MyConn.Close Set MyConn = Nothing %>
<%=TITLE%>
Posted On: <%=sDATE%>


<%=CONTENT%>