***신홍진기업(주)에 오신것을 환영합니다***

<%@ Language=VBScript %> <%Response.Buffer=TRUE%> <%'On Error Resume Next %> <%Base_TID = Session("Base_TID")%> <% Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.RecordSet") Conn.Open "DSN=Uboard;UID=brtech;PWD=berrsp;" SQL = "select top 4 * from board_"&Base_TID&" where b_type='NOTICE' " SQL =SQL +"order by ref desc, pos, depth " Rs.Open SQL, Conn, 3 Set Rs_Qna = Server.CreateObject("ADODB.RecordSet") SQL_Qna = "select top 4 * from board_"&Base_TID&" where b_type='QNA' " SQL_Qna =SQL_Qna +"order by ref desc, pos, depth " Rs_Qna.Open SQL_Qna, Conn, 3 %> ***신홍진기업(주)에 오신것을 환영합니다***

상단영역

<% row1 = 0 if Not Rs.BOF AND Not Rs.EOF then DO WHILE NOT Rs.EOF Title = Mid(Rs("subject"),1,50) regdate = Rs("regdate") num = Rs("num") row1= row1 + 1 %> <%Rs.MoveNext Loop End if ' Response.Write row1 For i = row1 To 3 STEP 1 %> <% NEXT %>

	<%=Title%>	<%=mid(regdate,1,10)%>