<%
dim i,cate,page
page=request.servervariables("HTTP_REFERER")
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&request("id")&""
rs.open sql,conn,3,3
if rs.bof and rs.eof then
response.write ""
else
dim content
content=rs("content")
If content<>"" then
if rs("editmode1")="ubb" then
content=UbbCode(content,1)
elseif rs("editmode1")="html" then
content=UbbCode(content,2)
end if
End if
%>
The Nan Yang Royal Hotel
