<%
SQL = "SELECT TOP 20 * FROM news ORDER BY ID DESC"
RecordView.Open SQL, Conn
Do While Not RecordView.EOF
postdate=RecordView("postdate")
name=RecordView("name")
message=RecordView("Message")%>
|
 |
<%=mid(RecordView("message"),1,150)%> ','news','scrollbars=yes,width=700,height=550')"> ... (more)
|
<%
RecordView.MoveNext
Loop
output = " " & collect
Response.Write output
RecordView.Close
Conn.Close
Set RecordView = Nothing
Set Conn = Nothing
%>
|
|