Constant Engineering - Design & Manufacture of Architectural Ironmongery Products

<% Dim dbc Dim strConn Dim strpath strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("parkland.mdb") Set dbc = Server.CreateObject("ADODB.Connection") dbc.open strConn Set rsprod = Server.CreateObject("ADODB.Recordset") rsprod.Open "news", dbc, adOpenForwardOnly, adLockReadOnly, adCmdTable %> Constant Engineering - Design & Manufacture of Architectural Ironmongery Products

<% while not rsprod.eof %> <% rsprod.movenext wend %>

" align="left" height=150 width=150><%= rsprod("newsitem") %>

<%= rsprod("newstext") %>

Special Offers