<% Set DbCon = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") DbCon.Open strCon %> GDI-회사연혁 입니다
 
 
Home > 지디아이 > 회사연혁
 
 
<% Rs.Open "SELECT * FROM HISTORY_TBL WHERE (HI_CHECK = 1 AND HI_ENG = 0) ORDER BY HI_DATE ASC", DbCon WHILE NOT RS.EOF txtContent = Replace(Rs("HI_TITLE"), CHR(13),"
") %> <% RS.MOVENEXT WEND %>
<% strYear = Mid(RS("HI_DATE"), 1, 4) strMon = Mid(RS("HI_DATE"), 5, 2) strDay = Mid(RS("HI_DATE"), 7, 2) %> <%=strYear%>. <%=strMon%>. <%=strDay%> <%=txtContent%>