-- (C) Hado Hein, 1999, Berlin, Fed Rep of Germany
tell application "Finder"
	run application "Netscape NavigatorÅ 3.01"
	set counter to 0
	set workFlder to choose folder with prompt "Wohin (EMPTY DRIN!!!) ?"
	set searchString to (text returned of (display dialog "SEARCH ?" default answer "Berlin"))
	set theURL to ("http://www.webcrawler.com/cgi-bin/WebQuery?search=" & searchString & "&showSummary=true&start=0&perPage=25")
	
	with timeout of 45 seconds
		tell application "Netscape NavigatorÅ 3.01" to OpenURL (theURL) to window 1
	end timeout
	set availText to (text returned of (display dialog "__MATCHES__ AVAILABLE ?" default answer "1"))
	set availPages to (availText as number)
	set availPages to ((availPages div 25) + 1)
	repeat with I from 1 to availPages by 1
		try
			set spareFile to duplicate (file "EMPTY.html" of workFlder)
			set workName to ("WebCrawl" & I & ".html")
			select spareFile
			set name of selection to workName
			set saveFile to ((workFlder as text) & (workName))
		on error
		end try
		with timeout of 120 seconds
			try
				set theURL to ("http://www.webcrawler.com/cgi-bin/WebQuery?search=" & searchString & "&showSummary=true&start=" & counter & "&perPage=25")
				tell application "Netscape NavigatorÅ 3.01" to GetURL (theURL) to file saveFile
			on error
			end try
		end timeout
		set counter to counter + 25
	end repeat
end tell