Bom dia pessoal.
Estou tentando capturar um conteúdo específico de uma outra página utilizando o seguinte script adquirido aqui no fórum:
<%
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", "http://www.site.com....oria/index.asp", False
xmlhttp.setRequestHeader "ContentType","text/html"
xmlhttp.Send()
str_text = xmlhttp.ResponseText
int_ini = Instr(str_text, "<div class=""listaconteudo"">")
int_fim = Instr(int_ini, str_text, "<strong>Leia mais:") - int_ini
Response.Write Mid(str_text, int_ini, int_fim)
%>
Mas está dando esse erro infernall, tentei de tudo, alguém poderia me ajudar?
Erro de tempo de execução do Microsoft VBScript erro '800a0005'
Chamada de procedimento ou argumento inválido: 'Mid' /categoria/index.asp, line 22
Abraços a todos !
Erro '800A0005' Mid
Started By WPA, 13/07/2010, 12:00
1 reply to this topic
#2
Eduardo.skm
-
- Usuários
-
- 4 posts
Novato no fórum
- Sexo:Masculino
- Localidade:São Paulo
Posted 23/07/2010, 10:02
Bom dia pessoal.
Estou tentando capturar um conteúdo específico de uma outra página utilizando o seguinte script adquirido aqui no fórum:
<%
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", "http://www.site.com....oria/index.asp", False
xmlhttp.setRequestHeader "ContentType","text/html"
xmlhttp.Send()
str_text = xmlhttp.ResponseText
int_ini = Instr(str_text, "<div class=""listaconteudo"">")
int_fim = Instr(int_ini, str_text, "<strong>Leia mais:") - int_ini
Response.Write Mid(str_text, int_ini, int_fim)
%>
Mas está dando esse erro infernall, tentei de tudo, alguém poderia me ajudar?
Erro de tempo de execução do Microsoft VBScript erro '800a0005'
Chamada de procedimento ou argumento inválido: 'Mid' /categoria/index.asp, line 22
Abraços a todos !
Cara,
faz um favor... apert ctrl+G
digite 22
mande o que ta escrito na linha que for selecionada.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
