<%
db="/eat/news/news.mdb"
Set dsnstrnew = Server.CreateObject("ADODB.Connection")
dsnstrnew1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
dsnstrnew.Open dsnstrnew1
set rsnew=server.CreateObject("adodb.recordset")
%>
<%
Function htmlCodenew(content)
    TempContent=content
	TempContent = replace(TempContent,"<","&lt;")
	TempContent = replace(TempContent,">","&gt;")
	TempContent = replace(TempContent,vbcrlf,"&nbsp;<br>")
	TempContent = replace(TempContent,chr(32),"&nbsp;")
	TempContent = replace(TempContent,chr(34),"&quot;")
	htmlCodenew=TempContent
End Function

function code(content)
	TempContent = content
	TempContent = replace(TempContent,chr(34),"&quot;")
	code=TempContent
end function
%>