<% Set objConn = Server.CreateObject("ADODB.Connection") 'objConn.open "Driver={DB2}; Data Source=" & Server.MapPath("admin/messages.mdb") & ";" 'Set an active connection to the Connection object using a DSN-less connection objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("admin/messages.mdb") set rs = objConn.Execute("select id, name, message from messages where publish = 1 order by date desc ") %>

Words: in memory of George

<% if not rs.eof then do until rs.eof mymessage = rs("message") response.write "

" & rs("name") & "

" & mymessage & " ... [ read more ]

" rs.movenext loop end if %>