<%@ Language=VBScript %>
<% Option Explicit %>
Update
<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "EMessageBoard", objConn1, , adLockOptimistic, adCmdTable
Do While Not objRS.EOF
response.write objRS("MessageNumber")
Response.write objRS("MessageOwner")
response.write (" ")
response.write objRS("MessageContent")
response.write ("
")
objRS.MoveNext
Loop
objRS.close
%>