<%
Dim CONN_STRING
Dim CONN_USER
Dim CONN_PASS,DB_PATH
Dim objPagingConn
Dim rs
dim strSQL
'Open Database Connection
set con = Server.CreateObject("ADODB.Connection")
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.Open Server.MapPath("fpdb/Admin.mdb")
SQL = "Select * from News order by id"
Set objRec =con.Execute(SQL)
%>
Closing twenty six years of experience
enable us to offer our customer problem solving, cost effective engineering,
and respond with design solution to all internationally accepted codes.
<%While Not objRec.EOF
headline = objRec("Headline")
fullnews =objRec("FullNews")
id = objRec("Id")
%>
Welded Storage Tanks "Fuel,
Water & Chemical."