tell application "Finder"
	run application "Netscape NavigatorÅ 2.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 qLang to (text returned of (display dialog "LANGUAGE ?" default answer "de"))
	set theURL to ("http://www.altavista.com/cgi-bin/query?pg=q&kl=" & qLang & "&q=" & searchString & "&stq=" & counter & "&c9k")
	tell application "Netscape NavigatorÅ 2.01" to OpenURL (theURL) to window 1
	set availText to (text returned of (display dialog "__MATCHES__ AVAILABLE ?" default answer "1"))
	set availPages to (availText as number)
	set availPages to ((availPages div 10) + 1)
	
	repeat with I from 1 to availPages by 1
		try
			set spareFile to duplicate (file "EMPTY.html" of workFlder)
			set workName to ("AltaVista" & 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.altavista.com/cgi-bin/query?pg=q&kl=" & qLang & "&q=" & searchString & "&stq=" & counter & "&c9k")
				tell application "Netscape NavigatorÅ 2.01" to GetURL (theURL) to file saveFile
			on error
			end try
		end timeout
		set counter to counter + 10
		
	end repeat
end tell