257 characters | 13 lines | 257 Bytes
DOWNLOAD | RAW | EMBED | CREATE NEW VERSION OF THIS PASTE | REPORT ABUSE | x
  1. Function requestSession()
  2.         Dim Temp
  3.         i = 0
  4.         For each d in Session.Contents
  5.                 if i = 0 then
  6.                         Temp = Temp & d & "=" & Session.Contents(d)
  7.                 else
  8.                         Temp = Temp & "&"& d & "=" & Session.Contents(d)
  9.                 end if
  10.                 i = i+1
  11.         Next
  12.         requestSession = Temp
  13. End Function