Upcoming Events
 
 
Product Range
 



 
 
Upcoming News
<% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("MF.mdb") objConn.Open Dim objRS dim status1 Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "Select * From MF Where Id= 1" , objConn, , , adCmdTable if not objRS.EOF then status1=0 ' Shortlisted in final list else status1=1 end if %>
news content goes here
  <% dim a if status1=0 then a = "

" & objRS("News_Head") & "


" & objRS("News_Body") end if %> <%= a %>