<% strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/community_notices.mdb") & ";" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(strConnection) set rs = Server.CreateObject("ADODB.recordset") Dim sqlNotices: sqlNotices = "SELECT * FROM community_notices" set rs = conn.Execute(sqlNotices) %>

COMMUNITY NOTICES

This section allows community organisations and institutions the chance to promote their activities at no cost. Forward any information about events in your community to munadia@vocfm.com.

<% strID = Request.Querystring("id") Select Case strID %> <% Case Else %> <%While NOT rs.EOF%>

Organisation: <%=rs("Organisation")%>

Event: <%=rs("Event")%>

Date: <%=rs("Date_Time")%>

Contact: <%=rs("Contact")%>

<% rs.MoveNext Wend rs.Close() set rs = nothing %> <% Conn.Close set conn = nothing %>

<% End Select %>