<% IF Session("blnValidUser") = "" THEN Response.Redirect "login.asp" END IF %> MB List <% Set dbConn = Server.CreateObject( "ADODB.Connection" ) dbConn.Open "dbforum" SET RS = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = dbConn sqlString = "SELECT * " &_ "FROM wspark " &_ "ORDER BY board_id " RS.Open sqlString %>

Message Board Listings (Return to Admin Home)

<% WHILE NOT RS.EOF %> <% RS.MoveNext WEND RS.Close SET RS = NOTHING dbConn.Close SET dbConn = NOTHING %>
Board Subject Board Name Board Date
"> <%=RS("board_subject")%>  <%=RS("board_name")%>  <%=RS("board_date")%>