Function JumpTo(URL,Message,Target)
If trim(URL)="" then
URL=Request.ServerVariables("SCRIPT_NAME")
target="_self"
End If
JumpTo = " " onmouseout =" & Chr(34) & "window.status='';return true;" &_
Chr(34) & " target=" & Chr(34) & Target & Chr(34) & " title=" &_
Chr(34) & Message & Chr(34) & ">" & Message & ""
End Function