Announcement Box <% 'connect to database set con = server.CreateObject ("ADODB.Connection") con.Open "sunfresh" %> <% sqlSelect = "select * from Msg" set rsSelect = con.Execute (sqlSelect) count = 1 while not rsSelect.eof %> msg = msg&count <% if not rsSelect("line1") = "" then%> "> <%count=count+1 end if%> <% if not rsSelect("line2") = "" then%> "> <%count=count+1 end if%> <% if not rsSelect("line3") = "" then%> "> <%count=count+1 end if%> <% if not rsSelect("line4") = "" then%> "> <%count=count+1 end if%> <% if not rsSelect("line5") = "" then%> "> <%count=count+1 end if%> <%count=count+1%> <% rsSelect.movenext wend 'Response.Write ("count" & count) %> ...