<% Ses_BPS98Anngota_UserName = session("Ses_BPS98Anggota_UserName") Ses_BPS98Anngota_UserID = session("Ses_BPS98Anggota_UserID") Ses_BPS98Anngota_UserLevel = session("Ses_BPS98Anggota_UserLevel") %> : : : PARAMA SATWIKA : : : <% set conn = server.CreateObject("ADODB.Connection") conn.Open dbcon %>
<%if Ses_BPS98Anngota_UserName <> "" then%> <%end if%>
<%if Ses_BPS98Anngota_UserName = "" then%>
<%end if%>
 
FORUM - Last Post
  <% set rst = server.CreateObject("ADODB.recordset") sql = "SELECT TOP 5 f.judul AS judulf, t.judul AS judult, st.id, st.forum_id, st.topik_id, st.judul, st.last_postdate, st.last_member_id, st.last_member_name, st.last_komentar_id FROM BPS98Forum_SubTopik st INNER JOIN BPS98Forum_Topik t ON t.id = st.topik_id INNER JOIN BPS98Forum_Forum f ON f.id = st.forum_id ORDER BY st.last_postdate DESC" rst.open sql,conn,1,2 if not rst.eof then do %> <% rst.movenext loop while not rst.eof end if rst.close set rst = nothing %>
FORUM
TOPIK
LAST POST
"><%=rst("judulf")%>
"><%=rst("judult")%>
<%=rst("last_postdate")%> by "><%=rst("last_member_name")%>
 
 
 
 
 
<% conn.close set conn=nothing %>