HAJ 1424
- News Update
- Haj Facts
- Haj Perspective

<% 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 "hajfacts" %> <% Dim strDay strDay = Date Select Case strDay Case "2003/01/21" %><% Case "2003/01/30" %><% Case "2003/01/31" %><% Case "2003/02/01" %><% Case "2003/02/02" %><% Case "2003/02/03" %><% Case "2003/02/04" %><% Case "2003/02/05" %><% Case "2003/02/06" %><% Case "2003/02/07" %><% Case "2003/02/08" %><% Case "2003/02/09" %><% Case "2003/02/10" %><% Case "2003/02/11" %><% Case "2003/02/12" %><% Case "2003/02/13" %><% Case "2003/02/14" %><% Case "2003/02/15" %><% Case "2003/02/16" %><% Case "2003/02/17" %><% Case "2003/02/18" %><% Case "2003/02/19" %><% Case Else %>

For some interesting Haj facts watch this space...










<% End Select %> <% Case Else %>





















<% End Select %>