:: Welcome to Suntronics Pte Ltd ::

<% Set conn = server.CreateObject("ADODB.Connection") strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/suntronics.mdb") & ";DefaultDir=" & Server.MapPath(".") & ";DriverId=25;FILE=MS Access;MaxBufferSize=512;PageTimeout=5" conn.Open strConn set eventRS = conn.execute("Select * from activities where CategoryID In (Select id from Category where title = 'Events') order by ID Desc") %> :: Welcome to Suntronics Pte Ltd :: |

Events

<% if not eventRS.eof then do while not eventRS.eof %> "> <%=eventRS("DateOfEvent")%> <% if eventRS("DateOfExpire") <> "- - -" then %> to <%=eventRS("DateOfExpire")%> <% end if %>
<%=eventRS("content")%>

<% eventRS.movenext loop end if %>

<% eventRS.close %>