|
|
<%
Set rs = Server.CreateObject("ADODB.Recordset")
cmd.CommandText = "sp_NewsGetAllRecent"
cmd.CommandType = adCmdStoredProc
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open = cmd
While NOT rs.EOF %>
| <%=left(rs.fields("NewsDate"),10)%> |
<%=rs.fields("Title")%>
<%=rs.fields("Message")%> |
<% rs.MoveNext
Wend
Set rs = Nothing
conn.Close
Set conn = Nothing
Set cmd = Nothing
%>
|
|
