% if tools.FileExists("<%% =request.form("messageid") & ".htm" %%>") then %><% messages = messages + 1 %>