<% 'declare 2 variables of type string dim sConnString, connection, sSQL set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "D:\Sites\Pungo8\dadmin2\database\core.mdb" set rs = Server.CreateObject("ADODB.recordset") rs.open "SELECT * FROM comments_tbl", conn, 2,2 %>
<% if session("Security") = "" then%> <%End if%> <% if session("Security") = 1 then%> <%End if%> <% if session("Security") = 2 then%> <%End if%> <% if session("Security") = 9 then%> <%End if%>

Readers' Comments
<% 'Looping through the records until the end of the records Do while Not rs.eof %> <% 'move on to the next record rs.MoveNext loop 'Now close the recordset and the connection object rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>
We welcome your comments and views on the papers, book reviews, editorials and the journal as a whole. Please send your comments to the editors at pwc5@le.ac.uk , carmel.cefai@um.edu.mt


Submitted by:<%=rs("Author")%> Date:<%=rs("dDate")%>

<% if session("Security") = 9 then%> <%End if%>