<% set adocmd = server.CreateObject("adodb.command") adoCmd.ActiveConnection = dbstr adoCmd.CommandType = adCmdStoredProc adoCmd.CommandText = "dbo.MainBoardListSelect" set objParameter = adoCmd.CreateParameter ("mode", adInteger, adparaminput, 4 ,"1") adoCmd.Parameters.Append objParameter set objParameter = adoCmd.CreateParameter ("uid", adVarchar, adparaminput, 12 ,"helper") adoCmd.Parameters.Append objParameter set objParameter = adoCmd.CreateParameter ("page", adInteger, adparaminput, 4 ,0) adoCmd.Parameters.Append objParameter Set adoRs = adoCmd.Execute If Not adoRs.EOF Then noticeLise_rs = adoRs.GetRows noticeLise_rs_cnt = ubound(noticeLise_rs,2) Else noticeLise_rs_cnt = -1 End If Set adoRs = Nothing Set adoCmd = Nothing %> <% if noticeLise_rs_cnt > -1 then for i = 0 to noticeLise_rs_cnt if len(noticeLise_rs(1, i)) > 17 then msg = left(noticeLise_rs(1, i),17)&".." end if regdate = left(noticeLise_rs(2, i), 10) %> <% next end if %>

<%=msg%>

<%=regdate%>