BDG Scenario 2

LoadPage.asp

<%@ Language=VBScript %>
<% ' Copyright 1998-1999 Microsoft Corporation. All rights reserved. %>
<% Response.Expires = 0
   '--- Set SRC of IFRAME and redirect to search page.
   Session("LastPage") = UrlDecode(Request.QueryString)
   Response.Redirect "library.asp"
%>
<script Language=VBScript RunAt=Server>
Function UrlDecode(url)
   temp = url
   x = InStr(temp,"%")
   Do While x > 0
      UrlDecode = UrlDecode & Left(temp,x-1)
      UrlDecode = UrlDecode & Chr(CLng("&H" & Mid(temp,x+1,2)))
      temp = Mid(temp,x+3)
      x = InStr(temp,"%")
   Loop
   UrlDecode = UrlDecode + temp
End Function
</script>