<% '----- request strBcode = request("bcode") strId = request("id") strPage = request("page") strSearchDiv = request("searchDiv") strSstring = request("sstring") '----- news(보도자료), news_1(업계뉴스) if strBcode = "" or strBcode = "news_2" then strBcode = "news_2" pathText = "NITGEN 관련기사" titleImg = "news_tit_bar.gif" titleMsg = "news_tit_sub.gif" menuNum1 = "1" menuNum2 = "1" menuImg = "01" else pathText = "관련업체 기사" titleImg = "connet_tit_bar.gif" titleMsg = "connet_tit_sub.gif" menuNum1 = "1" menuNum2 = "2" menuImg = "02" end if strUpdate = "UPDATE " & strBcode & " SET ref=ref+1 WHERE id='" & strId & "' " dbCon.execute(strUpdate) strSQL = "SELECT name, regDate, title, content, ref FROM " & strBcode & " WHERE id='" & strId & "'" 'response.write strSQL set RS = dbCon.Execute(strSQL) if not RS.EOF then strName = RS("name") strRegDate = Trim(FormatDateTime(RS("regDate"),2)) strTitle = Replace(RS("title"),chr(256),chr(39)) strContent = Replace(RS("content"),chr(256),chr(39)) strContent = Replace(strContent,chr(13),"
") strRef = RS("ref") strContent = Replace(strContent, chr(256) , "" & chr(256) & "") '----- 검색구분에 따라... if strSstring <> "" then if strSearchDiv = "title" then strTitle = Replace(strTitle, strSstring, ""&strSstring&"") else strContent = Replace(strContent, strSstring, ""&strSstring&"") end if end if if strSearchDiv <> "" and strSstring <> "" then strQuery = " and " & strSearchDiv & " like '%" & strSstring & "%' " end if '이전글 strSQL = "select top 1 id from " & strBcode & " where id>" & strId & " " & strQuery & "order by regdate asc " 'response.write strSQL & "
" set rs2 = dbCon.Execute(strSQL) if not rs2.eof then prevId = rs2(0) prevLink = "" else prevLink = "이전글이 없습니다" end if '다음글 strSQL = "select top 1 id from " & strBcode & " where id<" & strId & " " & strQuery & " order by regdate desc " 'response.write strSQL & "
" set rs2 = dbCon.Execute(strSQL) if not rs2.eof then nextId = rs2(0) nextLink = "" else nextLink = "다음글이 없습니다" end if end if RS.Close set RS = nothing %> Total Biometric Solution Provider
   
HOME > NEWS
 
 
 
NITGEN CEO Aired on Tokyo TV