display dialog "What do you search for in the cyber space?" default answer "(search term -you can't use the space)"
copy text returned of the result to SearchString
if SearchString is not "" and SearchString does not contain space then
	--	copy text returned of the result to SearchString
	display dialog "Select the search engine" buttons {"Yahoo", "Lycos", "Alta Vista"} default button "Yahoo" --, "WebCrawler"
	copy button returned of the result to Engine
	if Engine is "Yahoo" then copy "http://search.yahoo.com/bin/search?p=" & SearchString to searchURL
	if Engine is "Lycos" then copy "http://thirteen.srv.lycos.com/cgi-bin/pursuit?query=" & SearchString to searchURL
	if Engine is "Alta Vista" then copy "http://www.altavista.digital.com/cgi-bin/query?pg=q&what=web&q=" & SearchString to searchURL
	--	copy "http://www.webcrawler.com/cgi-bin/WebQuery?searchText=" & SearchString & "&maxHits=25" to searchURL
	tell application "Netscape Navigatorª 2.01"
		activate
		OpenURL searchURL
	end tell
else
	beep
	if SearchString contains space then
		display dialog "Please not to use the SPACE. Replace it with %20." buttons {"OK"} default button "OK" with icon stop
	end if
end if