Object_not_a_collection em ciclo for

[razs 0]

Boas pessoal estava aqui a fazer um script para retirar acentos e depareime com uma situação no ultimo for. da-me um erro de Object_not_a_collection

 

Alguma ideia??

<%
Option Explicit
dim xc1,xc2,xc3,xc4,xc5,xc6,xc7
dim letra,varobs,item,itemcomletr,todascom,todassplit,todas

varobs="--->áááááÉééééáííííÍíííóóóóóÓóóóáÚÚÚÚÚÚÚ<---"
response.write varobs&"<br><br>"

xc1 = "à,á,â,ã,ä,À,Á,Â,Ã,Ä"
xc2 = "è,é,ê,ë,È,É,Ê,Ë"
xc3 = "ì,í,î,ï,Ì,Í,Î"
xc4 = "ò,ó,ô,õ,ö,Ò,Ó,Ô,Õ,Ö"
xc5 = "ù,ú,û,ü,Ù,Ú,Û,Ü"
xc6 = "ç,Ç"
xc7 = "ñ,Ñ"

itemcomletr=""
item=""
todassplit=""
todascom=""

todas="xc1,xc2,xc3,xc4,xc5,xc6,xc7"
todassplit=split(todas,",")

For each item in todassplit

					if item="xc1" then
						letra="a"
					elseif item="xc2" then
						letra="e"
					elseif item="xc3" then
						letra="i"
					elseif item="xc4" then
						letra="o"
					elseif item="xc5" then
						letra="u"	
					elseif item="xc6" then
						letra="c"
					elseif item="xc7" then
						letra="n"
					end if
		
			todascom=split(item,",")
			For Each itemcomletr In todascom  <----ERRO
				response.write "Item="&item&"<br>itemcomletr="&itemcomletr&"<br>letra="&letra&"<br><br><br>"	
				varobs=replace(varobs, itemcomletr , letra)
			next
			
			response.write "<br>========================================================================<br>"
			
next

response.write "<br><br><br>"&varobs		
%>

 

[xanburzum 169]

qual o numero do erro e a linha ?

[razs 0]

o erro é Object_not_a_collection, e a linha e a assinalada com <---ERRO.

 

Obrigado Xan

 

ps- Tiveste tempo de ter alguma ideia relativa ao outro caso de ir buscar texto a uma div externa?

[xanburzum 169]

é porque no For Each itemcomletr In todascom

 

tanto a itemcomletr quanto todascom estão com valor ""