<% 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 %> 元富企業網
" else response.write "" end if%>
<% if rs("TYPE")="allnews" then response.write "

<%=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 %>