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