CIRCOLO DIDATTICO
DI MELZO

<% findImg= false do until ((RsConn.EOF) or (findImg=true)) if RsConn("InsDate") = today then %> <% findImg=true application ("LastGoodImage") = RsConn("image") Application ("LastGoodDescription") = RsConn("description") Application ("LastGoodAuthor") = RsConn("Author") end if RsConn.movenext loop if ((Rsconn.EOF) and (FindImg=false))then %> <% end if RSconn.close DBConn.close set DBConn = nothing set RSconn = nothing %>

<% response.write "" %>

<% response.write RsConn("Description")&" "&RsConn("Author") %>

<% if ((application("LastGoodImage") = "") or (Application("LastGoodDescription")="") or (Application("LastGoodAuthor")="")) then RsConn.movefirst application("LastGoodImage") = RsConn("image") application("LastGoodDescription") = RsConn("description") application("LastGoodAuthor") = RsConn("Author") end if response.write "" %>

<% response.write Application("LastGoodDescription")&" "&Application("LastGoodAuthor") %>