<% Dim RS Dim RS_numRows Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_SuzanneWhang_STRING RS.Source = "SELECT * FROM blog ORDER BY date1 DESC" RS.CursorType = 0 RS.CursorLocation = 2 RS.LockType = 1 RS.Open() RS_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS_numRows = RS_numRows + Repeat1__numRows %> <% While ((Repeat1__numRows <> 0) AND (NOT RS.EOF)) %>

	<%=(RS.Fields.Item("date1").Value)%>
	<%=(RS.Fields.Item("subject").Value)%>
	<%=Replace((RS.Fields.Item("comments").Value),CHR(13), " ")%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS.MoveNext() Wend %> <% RS.Close() Set RS = Nothing %>

<%=(RS.Fields.Item("subject").Value)%>