Competitions

9 days to register for Festival Big Walk

Click here to read more

Baby Competition

Click here to read more

Web site competition

Click here to read more

Qasidah Competition

read more here

<% Case "outside_broadcasts" %> <% Dim sqlJummuah, sqlCommercial, sqlCommunity, sqlThursdayGadat Dim rsJummuah, rsCommercial, rsCommunity, rsThursdayGadat strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/events_section.mdb") & ";" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(strConnection) sqlJummuah = "SELECT * FROM ob WHERE OBCategory = 'JUMUAH' ORDER BY OBCategory ASC;" sqlCommercial = "SELECT * FROM ob WHERE OBCategory = 'COMMERCIAL' ORDER BY OBCategory ASC;" sqlCommunity = "SELECT * FROM ob WHERE OBCategory = 'COMMUNITY' ORDER BY OBCategory ASC;" sqlThursdayGadat = "SELECT * FROM ob WHERE OBCategory = 'THURSDAY GADAT' ORDER BY OBCategory ASC;" Set rsJummuah = Conn.Execute(sqlJummuah) Set rsCommercial = Conn.Execute(sqlCommercial) Set rsCommunity = Conn.Execute(sqlCommunity) Set rsThursdayGadat = Conn.Execute(sqlThursdayGadat) %>

Outside Broadcasts

<% rsJummuah.MoveFirst Do While NOT rsJummuah.EOF %> <% rsJummuah.MoveNext Loop Set rsJummuah = Nothing %>

JUMUAH:

Date: <%=rsJummuah("OBDate")%>

Location: <%=rsJummuah("OBLocation")%>

Time: <%=rsJummuah("OBTime")%>

<% rsCommercial.MoveFirst Do While NOT rsCommercial.EOF %> <% rsCommercial.MoveNext Loop Set rsCommercial = Nothing %>

COMMERCIAL:

Date: <%=rsCommercial("OBDate")%>

Location: <%=rsCommercial("OBLocation")%>

Time: <%=rsCommercial("OBTime")%>

<% rsCommunity.MoveFirst Do While NOT rsCommunity.EOF %> <% rsCommunity.MoveNext Loop Set rsCommunity = Nothing %>

COMMUNITY:

Date: <%=rsCommunity("OBDate")%>

Location: <%=rsCommunity("OBLocation")%>

Time: <%=rsCommunity("OBTime")%>

<% rsThursdayGadat.MoveFirst Do While NOT rsThursdayGadat.EOF %> <% rsThursdayGadat.MoveNext Loop Set rsThursdayGadat = Nothing %>

THURSDAY GADAT:

Date: <%=rsThursdayGadat("OBDate")%>

Location: <%=rsThursdayGadat("OBLocation")%>

Time: <%=rsThursdayGadat("OBTime")%>

<% Case Else %>

This section focuses on current events that VOC is involved with. For previous events, click on Voice Active.










<% End Select %>