<% Set Rs_bList = Server.CreateObject("ADODB.Recordset") Rs_bList.ActiveConnection = strConn Rs_bList.Source = "SELECT * FROM T_WEBLOG ORDER BY id DESC" Rs_bList.CursorType = 0 Rs_bList.CursorLocation = 2 Rs_bList.LockType = 1 Rs_bList.Open() %>

<% If Not Rs_bList.EOF Then Rs_bList.MoveFirst While Not Rs_bList.EOF strStatus = "true" strImage = "unchecked.gif" strAlt = "publish this blog" if Rs_bList("b_published") = true then strStatus = "false" strImage = "checked.gif" strAlt = "un-publish this blog" End if %> <% Rs_bList.MoveNext Wend else %> <% end if %> <%=Rs_bList("b_headline")%> ">)">" onClick="window.open(this.href,'window1','width=10; height=10');return false"> No Blogs available