%
PK = request("PK")
if PK = empty then
response.write ""
response.end
end if
set conn = GetConnection()
sql = "select * from NewHK_News where PK = "& PK
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if not rs.eof then
%>
元富企業網
<% if rs("TYPE")="allnews" then
response.write "
"
else
response.write ""
end if%>
<%=rs("SUBJECT")%>
<%
if rs("TYPE")="allnews" then %>.
<%response.write formatdatetime(rs("DATEANDTIME"), vblongdate)
end if
%>
<%=replace(rs("CONTENT"),vbcrlf," ")%>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
else
response.write ""
end if
%>