<%
Dim from,key,hiddenValue
from=""
key=""
hiddenValue=""
if Request.Form("from")<>"" then
from=Trim(Request.Form("from"))
else
from=""
end if
if Request.Form("key")<>"" then
key=Trim(Request.Form("key"))
else
key=""
end if
if from <> "" and key <> "" then
hiddenValue = "from=" & from & "&key=" & key
end if
%>
