<% strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/voiceofthecape.mdb") & ";" Set Connn = Server.CreateObject("ADODB.Connection") Connn.Open(strConnection) sqlPalestine = "SELECT TOP 5 * FROM News_Article WHERE EventType = 'PALESTINE' ORDER BY date DESC;" Set rsPalestine = Connn.Execute(sqlPalestine) %>
PALESTINE FOCUS
<% rsPalestine.MoveFirst Do While NOT rsPalestine.EOF 'Display the headlines with links now %> <% rsPalestine.MoveNext Loop Set rsPalestine = Nothing %>
 Palestine latest news
    - " onmouseover="this.style.textDecoration='underline'" onmouseout="this.style.textDecoration='none'" class="blackb8"><%=rsPalestine("Header")%>    - posted: <%=rsPalestine("date")%>
- Focus for a specific in-depth article
- Picture gallery
- Links



<% strID = Request.Querystring("id") Select Case strID %> <% Case "Focus" %>

Watch this space, coming soon <% Case "Gallery" %> <% Case "Links" %>

http://www.palestine-info.co.uk/am/publish/

http://www.palestinechronicle.com/

Islamic University of Gaza. <% Case Else %>










<% End Select %>