<%
if request("flash") = 1 then
showFlsh
end if
Function showFlsh
dim frs,fMessageID
frs=connbbs7.execute("select top 1 id from LeadBBS_InfoBox where touser = '"&request.Cookies(DEF_MasterCookies)("user")&"' order by id desc ")
fMessageID = frs("id")
response.Write("