% 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%> |