NET ISSUES

   INTRODUCTION

<% Dim sqlNetissues Dim rsNetissues '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) sqlNetissues = "SELECT * FROM News_Article WHERE EventType = 'NETISSUES' ORDER BY date DESC;" Set rsNetissues = Conn.Execute(sqlNetissues) %> <% rsNetissues.MoveFirst Do While NOT rsNetissues.EOF 'Display the headlines with links now %> <% rsNetissues.MoveNext Loop Set rsNetissues = Nothing %>

- " onmouseover="this.style.textDecoration='underline'" onmouseout="this.style.textDecoration='none'" class="blackb8"><%=rsNetissues("Header")%>    - posted: <%=rsNetissues("date")%>