function generate_search(byval st)
   dim st1
   if Document.SearchForm.R1(0).checked Then
      st1="http://search.yahoo.com/search?p="
   end if   
   if Document.SearchForm.R1(1).checked Then
      st1="http://www.google.com/search?hl=en&q="
   end if
   if Document.SearchForm.R1(2).checked Then
      st1="http://search.msn.com/results.aspx?q="
   end if   
   st1=st1& st
   window.open(st1)
   <!-- window.Navigate("index.html") -->
end function