<% if len(trim(C_USER_ID)) > 0 then %> <%Else%> <%End if%>
<% Con_DB() 'Connection open SQL = "select top 1 notice_seq, subject, gubun, upfile1 from TBL_NOTICE " SQL = SQL & " where brand_cd = '" & SERVER_BRANDCD & "' and delflag = '0' and gubun = '3'" SQL = SQL & " Order By Notice_Seq Desc" 'response.write sql 'Set Rs = Cn_DB.Execute(SQL) Set Rs2 = Server.CreateObject("ADODB.RecordSet") Rs2.Open SQL, Cn_DB,1,1 count=rs2.recordcount 'response.write count for i=1 to count seq = Trim(RS2(0)) subject = Trim(RS2(1)) gubun = Trim(RS2(2)) upfile1 = Trim(Rs2(3)) rs2.MoveNext next %> <% Con_DB() 'Connection open SQL = "select top 3 notice_seq, subject, gubun from TBL_NOTICE " SQL = SQL & " where brand_cd = '" & SERVER_BRANDCD & "' and delflag = '0' and gubun <> '5'" SQL = SQL & " Order By Notice_Seq Desc" Set Rs = Cn_DB.Execute(SQL) %> <%If Rs.Bof or Rs.Eof Then%> <%Else%> <% Do Until rs.EOF or rs.BOF seq = Trim(RS(0)) subject = Trim(RS(1)) gubun = Trim(RS(2)) select case gubun case "1" gubuntxt = "공지사항" case "2" gubuntxt = "행사" case "3" gubuntxt = "이벤트" case "4" gubuntxt = "기타" end select %> <% rs.MoveNext loop %> <%End if%>
<%If count=0 Then%>
<%Else%>
<%End if%>
<%If count=0 Then%>
 
이벤트 데이터가 없습니다..
<%Else%>
<%=subject%>
이벤트에 여러분을 초대합니다.
지금 클릭하세요.
<% End if Rs2.Close %>
데이터가 없습니다.
[<%=gubuntxt%>] <%=subject%>

<% ' Dim pollsubject, pollseq, datee2 '투 ' Con_DB() 'Connection open ' Set Rs = Server.CreateObject("ADODB.RecordSet") ' ' StrSQL = "SELECT Top 1 subject, seq, date2 FROM TBL_POLL WHERE brand_cd='" & SERVER_BRANDCD &"' AND delflag=0 ORDER BY SEQ DESC " ' Rs.Open StrSQL, Cn_DB ' if Not(Rs.BOF or Rs.EOF) then ' pollsubject = Rs(0) ' pollseq = Rs(1) ' datee2 = Rs(2) ' end if '표 ' Date3 = Left(datee2,4) ' Date4 = Mid(datee2,6,2) ' Date5 = Right(datee2,2) ' Date6 = Date3&Date4&Date5 '함 ' Date7 = Left(date(),2) ' Date8 = Mid(date(),4,2) ' Date9 = Right(date(),2) ' Date10 = "20"&Date7&Date8&Date9 %>
000webhost logo
<% Rs.Close Set Rs = Nothing DBClose(Cn_DB) %>