%
response.expires = 0
response.buffer = true
dim db, strConnection
Set db = Server.CreateObject("ADODB.Connection")
strConnection = "driver={MySQL 3.22.32};server=localhost;uid=root;pwd=cobalt-mysql;database=css"
db.open strConnection
%>
CSS Worksafe - fall arrest systems, health and safety, horizontal lifeline systems, protection from working at heights.
<%
SQL = "SELECT * FROM content WHERE content_type = '1' ORDER BY content_id DESC;"
set objRS = DB.Execute(SQL)
if objRS.eof then
response.write "There is currently no news."
else 'else display the table headings
End if
Do While not objRS.eof
%>