HSTは、ヒューマンネットワークであらゆる企業活動を支援するトータルサプライヤーです。

新着情報

<% Set wsnpRs = Server.CreateObject("ADODB.Recordset") wstrSQL = "SELECT NEWS.* FROM NEWS" wstrSQL = wstrSQL & " WHERE NEWS.status = 1" wstrSQL = wstrSQL & " ORDER BY NEWS.news_code DESC" wsnpRs.Open wstrSql, gadoCon, adOpenStatic, adLockReadOnly, adCmdText If not wsnpRs.EOF Then Do until wsnpRs.EOF If InStr(gfNz(wsnpRs("news"),""),"href") > 0 Then wstrNews = gfNz(wsnpRs("news"),"") Else wstrNews = gfAutoLink(gfNz(wsnpRs("news"),"")) End If %>
<%=gfNz(wsnpRs("newsday"),"")%>
<%=wstrNews%>
<% wsnpRs.MoveNext Loop End If wsnpRs.Close Set wsnpRs = Nothing %>