<%@LANGUAGE="VBSCRIPT"%> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=\\geo\Web_Database\Web_Announcement.mdb;" & _ "Jet OLEDB:System Database=\\geo\Web_Database\SYSTEM.MDW;" &_ "Persist Security Info=False" Recordset1.Source = "SELECT name, date_posted,description FROM Announcement order by date_posted DESC;" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open Recordset1_numRows = 0 %><% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Hu Group Message Board

DATE

 DESCRIPTION

POSTED BY
<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>

">

<%=(Recordset1.Fields.Item("date_posted").Value)%> <%=(Recordset1.Fields.Item("description").Value)%> <%=(Recordset1.Fields.Item("name").Value)%>

(Note:Only delete messages you have posted. Deleting a message will erase it permanently .

You may delete only ONE message at a time)

Change your password Hu Group Main Page