|
Hi Mum !
Use this page to edit and delete your items
To Add a new item click here
The top item will appear on the front page , the rest in the diary (blog) section.
<%
Dim objRS,sql,sql2,timestamp
Set objRS = Server.CreateObject("ADODB.Recordset")
sql= "Select * FROM EMessageboard order by Messagedate 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")%> |
Posted : <%=Session("MessagePosted")%> |
|
| |
<%=session("MessageContent")%> |
|