<%
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 newRS = conn.execute("Select * from activities where categoryID IN (select id from Category where title = 'News') order by ID DESC")
thismonth = DatePart("m",date)
thismonth = monthname(thismonth)
thisday = DatePart("d",date)
thisyear = DatePart("yyyy",date)
totalDate=thisday & " " & thismonth & " " & thisyear
set eventRS = conn.execute("Select * from activities where categoryID IN (select id from Category where title = 'Events' or title = 'Promotion') order by ID DESC")
%>
:: Welcome to Suntronics Pte Ltd ::
|
News Update:
<%do while not NewRS.eof %>
<%=NewRS("DateOfEvent")%>
<% if newRS("image") <> "" then %>
" width="120" height="100" >
<% end if %>
<%=NewRS("DateOfEvent")%> 