Haj 2003 <% Dim sqlHajj Dim rsHajj strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/voiceofthecape.mdb") & ";" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(strConnection) sqlHajj = "SELECT * FROM News_Article WHERE EventType = 'HAJ 2003' ORDER BY date DESC;" Set rsHajj = Conn.Execute(sqlHajj) %> <% rsHajj.MoveFirst Do While NOT rsHajj.EOF 'Display the headlines with links now %> <% rsHajj.MoveNext Loop Set rsHajj = Nothing %>     - " onmouseover="this.style.textDecoration='underline'" onmouseout="this.style.textDecoration='none'" class="blackb8"><%=rsHajj("Header")%>    Date posted: <%=rsHajj("date")%> <% strID = Request.Querystring("id") Select Case strID %> <% Case "event1" %> <% Case "event2" %> <% Case Else %> <% End Select %>