ciao a tutti,
ho questo script:
<%
URL = "http://www.freeasp.it"
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "Get", URL, False
objXMLHTTP.Send
testoHTML = CStr(objXMLHTTP.ResponseStream)
Set xml = Nothing
response.write(testoHTML)
%>
che recupera il codice di una pagina remota, come faccio a verificare che dentra a questa pagina ci sia la parola "miosito", e se NO, stampare a video "pagina senza link"
mi iautate?
grazie
codice:if inStr(testohtml,"miosito")=0 then response.write "pagina senza link" else ..... end if
grazie mille grazie
ho provato cosi ma..
'Estrazione annunci e creazione della tabella con link modifica, cancella e inserisci
Do while not DBrec.EOF
'Recupero il codice della pagina dove è stato inserito mio link
URL = DBrec("sito")
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", URL, false
objXMLHTTP.Send
'Inserisco il codice del sito remoto in una variabile
strPagina = CStr(objXMLHTTP.ResponseText)
Set objXMLHTTP = Nothing
'Verifico esistenza del mio url nel codice del sito remoto
if inStr(strPagina,"www.miosito.net/miosito/") = 0 then
response.write DBrec("nome") & " - " & DBrec("url") & "-> Pagina senza link" & "Manda mail al webmaster"
else
response.write DBrec("nome") & " - " & "-> OK link inserito"
end if
DBrec.MoveNext
Loop
%>
restituisce:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/gestione/A_scambio_verifica_url_scambio.asp, line 50
la riga 50 è l' IF
qualcuno mi aiuta a capire coem mai non gli piace?
ok, adesso sembra tutto ok...
Volevo però chiedervi una cosa, alcune pagine web che contengono il termine cercato, restituiscono false (0), potrebbe dipendere dal fatto che siano presenti le virgolette e quindi mi chiudono la stringa?
ad esempio
stringa = "<html>[b]ciao ciao ciao ciaociao gurda caso il "Mio" sito ha la parola---"
Se cerco parola non la trova..
Come posso ovviare a questo problema secondo voi, ammesso sia questo il problema..
grazie
prova mettendo in lcase(strPagina) nella instr
come?
cosa farebbe..tanto per segnarmelo tra le funzioni nuove che non conosco..
grazie
Io pensavo di convertire tutte le " in ' o adirittura in *, ma non so come protrei fare e se effettivamente è li il problema.
fatto sta che continua a non trovare la mia parola, dentro ad una pagina dove se faccio una ricerca con blocco note, la trova...
lo metto al posto di strpagina, ma a cosa mi serve convertire i carattere ?
questa cosa qui deve dare erroreOriginariamente inviato da videoD
stringa = "<html>[b]ciao ciao ciao ciaociao gurda caso il "Mio" sito ha la parola---"
casomai sarebbe
e in questo caso InStr(stringa,"parola")=65codice:stringa = "<html>[b]ciao ciao ciao ciaociao gurda caso il ""Mio"" sito ha la parola---"
si ok ma il problema è il seguente:
io in una variabile inserisco il codice di tutta una pagina html..Quindi presumo che nella pagina ci siano " che potrebbero chiudermi la strina, forse è questo il motivo del fatto che alcune volte non trova la parola pur essendoci...
Permessi di invio
Rispondi quotando