set inmessages = Session("inmessages") Response.Write "<p> Inbox message sum is " + cstr(inmessages.Count) set movemessages = inmessages dim opt opt = Request.Form("Trace") 'if opt = "" or opt = "1" then ' set inmess = movemessages.GetFirst() 'elseif opt = "2" then ' set inmess = movemessages.GetPrevious() 'elseif opt = "3" then ' set inmess = movemessages.GetNext() 'elseif opt = "4" then ' set inmess = movemessages.GetLast() 'end if select case opt case "": set inmess = movemessages.GetFirst() case "1": set inmess = movemessages.GetFirst() case "2": set inmess = movemessages.GetPrevious() case "3": set inmess = movemessages.GetNext() case "4": set inmess = movemessages.GetLast() end select if not inmess is nothing then FromAddress = inmess.Sender.Name '+ " " + inmess.Sender.Address for i = 1 to inmess.Recipients.Count 'rec = inmess.Recipients(i) if inmess.Recipients(i).Type = 1 then ToAddress = ToAddress + inmess.Recipients(i).Address + " " elseif inmess.Recipients(i).Type = 2 then CcAddress = CcAddress + inmess.Recipients(i).Address + " " elseif inmess.Recipients(i).Type = 3 then BccAddress = BccAddress + inmess.Recipients(i).Address + " " end if next SendDate = inmess.TimeSent ' ReceivedDate = inmess.TimeReceived Subject = inmess.Subject Size = inmess.Size Body = inmess.Text end if %>