<%
Function RevChkString(string)
If string = "" Then string = " "
RevChkString = Replace(string, "''", "'")
End Function
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER="&SQLserver&";DATABASE="&SQLDB&";UID="&uid&";PWD="&pwd&";OPTION=35"
Set rs = Server.CreateObject("ADODB.Recordset")
menu_int = int(menu)
SQL = "Select id, display_date, datestring, timestring, title, status, content from news where status='enabled' order by datestring DESC, timestring DESC;"
rs.Open SQL, con, 1
While not rs.eof
content_parsed = RevChkString(rs("content"))
%>
Continuity are pleased to be able to announce the appointment of Ian Wilson as their Health and Safety and Compliance Manager with effect from 2nd February 2007.
