VOC OUTREACH <% Dim sqlVocoutreach Dim rsVocoutreach 'strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/events_section.mdb") & ";" strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/voiceofthecape.mdb") & ";" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(strConnection) sqlVocoutreach = "SELECT * FROM News_Article WHERE EventType = 'VOC OUTREACH' ORDER BY date DESC;" Set rsVocoutreach = Conn.Execute(sqlVocoutreach) %> <% rsVocoutreach.MoveFirst Do While NOT rsVocoutreach.EOF 'Display the headlines with links now %> <% rsVocoutreach.MoveNext Loop Set rsVocoutreach = Nothing %>     - " onmouseover="this.style.textDecoration='underline'" onmouseout="this.style.textDecoration='none'" class="blackb8"><%=rsVocoutreach("Header")%>    - posted: <%=rsVocoutreach("date")%>