<%@ Language=VBScript %> <% Option Explicit %> Untitled Document <% objRS.MoveNext Loop objRS.close %>

<% Dim objRS,sql,sql2,timestamp Set objRS = Server.CreateObject("ADODB.Recordset") sql= "Select * FROM EMessageboard order by MessageNumber desc" objRS.Open sql, objConn1 Do While Not objRS.EOF Session("MessageNumber") = objRS("MessageNumber") Session("MessageTitle") = objRS("MessageTitle") Session("MessageOwner") = objRS("MessageOwner") Session("MessageContent") = objRS("MessageContent") 'response.write ("*") 'response.write session("MessageOwner") 'response.write ("*") %>

    <%=session("MessageTitle")%>
7   <%=session("MessageContent")%> 6
5   <%=session("logon")%> <%=(now)%>    
<% if TRIM(session("MessageOwner")) = Trim(Session("Logon")) then %> 2 3
<% else End If %> 		4