un error que no entiendo

[virla]

Código:

for j=0 to spellingmax
if inStr(keywords,spellingarray(j))=0 then
Spellingitalic=replace(Spellingitalic,spellingarray(j),"<b><i>"&spellingarray(j)&"</i></b>")
end if
next
ResponsePage=Replace(ResponsePage," xsi:type=" & CHR(34) & "xsd:string" & CHR(34),"") 
ResponsePage=Replace(ResponsePage,"&lt;b&gt;","<b>") 
ResponsePage=Replace(ResponsePage,"&lt;/b&gt;","</b>") 
ResponsePage=Replace(ResponsePage,"&lt;br&gt;","<br>")
EstimatedResults=left(ResponsePage,inStr(ResponsePage,"</estimatedTotalResultsCount>")-1) 
EstimatedResults=right(EstimatedResults,len (EstimatedResults)-inStr(EstimatedResults,"<estimatedTotalResultsCount")-46)
EstimatedResults=Ccur(EstimatedResults)
StartResults=left(ResponsePage,inStr(ResponsePage,"</startIndex>")-1) 
StartResults=right(StartResults,len (StartResults)-inStr(StartResults,"<startIndex")-30)
StopResults=left(ResponsePage,inStr(ResponsePage,"</endIndex>")-1) 
StopResults=right(StopResults,len (StopResults)-inStr(StopResults,"<endIndex")-28)
SearchTime=left(ResponsePage,inStr(ResponsePage,"</searchTime>")-1) 
SearchTime=right(SearchTime,len (SearchTime)-inStr(SearchTime,"<searchTime")-33)
SearchTime=left(SearchTime,len (SearchTime)-inStr(SearchTime,".")-2)
%>
<div id="contBarraIndica">
<div class="contTipoBusqueda">Google.com.ar</div>
<div class="ContResultados" align="right">
Página: <b>
<%if request.querystring("h")=0 then%> 1 <%else%>
<%=left(request.querystring("h"),len(request.querystring("h"))-1)+1%></b>
<%end if%>
</b> 
- Resultados <b><%=StartResults%> - <%=StopResults%></b> de aproximadamente <b><%= EstimatedResults %></b> para <b><%= request.querystring("keywords") %></b>
(<%=SearchTime%> segundos)
</div>
</div>
<br>
<%if Spelling<>"" then%>
¿Quiso decir? &nbsp;<a href="<%= request.servervariables("URL") %>?keywords=<%= Spelling %>&h=0<%if opc<>"all" then%>&opc=<%=opc%><%end if%>"><%=Spellingitalic%></a><br><br>
<%end if
public namearray 
namearray=split (ResponsePage,"<item xsi:type=" & CHR(34) & "ns1:ResultElement" & CHR(34) & ">") 
max=ubound(namearray)
for i=1 to max
theurl=left(namearray(i),inStr(namearray(i),"</URL>")-1) 
theurl=right(theurl,len (theurl)-instr(theurl,"<URL>")-4)
if inStr(right(theurl,len(theurl)-6),"pdf") then
tipo="pdf"
else
tipo="web"
end if
thetitle=left(namearray(i),inStr(namearray(i),"</title>")-1) 
thetitle=right(thetitle,len (thetitle)-inStr(thetitle,"<title>")-6)
thetitle=Replace(thetitle, "&amp;", "&")
if thetitle="" then 
thetitle=left(namearray(i),inStr(namearray(i),"</directoryTitle>")-1)
thetitle=right(thetitle,len (thetitle)-inStr(thetitle,"<directoryTitle>")-15)
thetitle=Replace(thetitle, "&amp;", "&")
end if
if thetitle="" then
thetitle="SIN TITULO"
end if
thedescription=left(namearray(i),inStr(namearray(i),"</snippet>")-1) 
thedescription=right(thedescription,len (thedescription)-inStr(thedescription,"<snippet>")-8)
thedescription=Replace(thedescription, "&amp;", "&")
if thedescription = "" then
thedescription=left(namearray(i),inStr(namearray(i),"</summary>")-1)
thedescription=right(thedescription,len (thedescription)-inStr(thedescription,"<summary>")-8)
thedescription=Replace(thedescription, "&amp;", "&")
end if
thesize=left(namearray(i),inStr(namearray(i),"</cachedSize>")-1) 
thesize=right(thesize,len (thesize)-instr(thesize,"<cachedSize>")-11)
if tipo="pdf" then%>
<sup>[PDF] </sup>
<%end if%>
<a href="<%=theurl%>" target="_blank"><u><%=thetitle%></u></a><br>
<div class="BusDescrip"><%=thedescription%></div>
<div class="busRef"><%=theurl%><%if thesize<>"" then%> - <%=thesize%><%end if%> - <a href="http://www.google.com/search?q=cache:<%=theurl%>" target="_blank">En caché</a> - <a href="http://www.google.com/search?q=related:<%=theurl%>" target="_blank">Páginas similares</a></div>
<%next 
end if%> 
</form>
<%If EstimatedResults > maxResults then
keywordsstr=request.querystring("keywords")
keywordsstr=Replace(keywordsstr,CHR(34),"%22")%>
<p align="center">
<table border="0" cellspacing="0" style="text-align: center">
<tr> 
<%If request.querystring("h") >= 10 Then%>
<td width="8"> 
<table border="0" cellspacing="1" bgcolor="#ffffff">
<tr> 
<td class="numero">
<a href="<%= request.servervariables("URL") %>?keywords=<%= keywordsstr %>&h=<%= request.querystring("h")-10 %><%if opc<>"all" then%>&opc=<%=opc%><%end if%>" class="numero">Anterior</a>&nbsp;&nbsp;
</td>
</tr>
</table>
</td>
<%end if%>
<img src="template/Marcos/gfx/LogoGoogle.png" />
<%If Ccur(Request.QueryString("h"))+10 < EstimatedResults Then%>
<td width="1"> 
<table border="0" cellspacing="1" bgcolor="#ffffff">
<tr> 
<td class="numero">
&nbsp;&nbsp;<a href="<%= request.servervariables("URL") %>?keywords=<%= keywordsstr %>&h=<%= request.querystring("h")+10 %><%if opc<>"all" then%>&opc=<%=opc%><%end if%>" class="numero">Siguiente</a>
</td>
</tr>
</table>
</td>
<%End If%>
</tr>
</table>
</p>
<%end if
End if%>
<%
End Sub
Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), Sezione_Cerca, "", "")
ConNews.Close
Set ConNews = Nothing
%>