<%@Language="VBScript"%> <%Option Explicit%> <%Response.buffer = true%> <% Dim oRec, oRec2, oRec3, oRec4 Dim sqlArticles, sqlArticles2, sqlArticles3, sqlArticles4 Set oRec = Server.CreateObject("ADODB.Recordset") sqlArticles = "Select * from AdNUNews where ID = " & request.QueryString("qstrID") oRec.Open sqlArticles, my_conn %> Ateneo de Naga University - News and Events


<%=oRec("title")%>

<%if oRec("bodyText") = "" then%> <%=oRec("introText")%> <%else%> <%=oRec("bodyText")%> <%end if%>


  <% Dim conn, rs, counter counter = 0 Set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.open Server.MapPath("CMS\App_Data\AdNUMain.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.open "Select * from adnuNews order by id desc", conn while ((not (rs.eof)) and (counter<21)) response.write "" rs.movenext counter = counter + 1 wend Set rs = Nothing conn.close Set conn = Nothing %>