Ciao,
ho preparato questo scriptino (che vedete qui in fondo) per estrarre il contenuto html di una pagina qualsiasi... e funziona.
Anzi, funzionava.
Oggi mi ci rimetto sotto per completare la funzione di pulizia del codice html e... sorpresa!
La pagina invece di essere eseguita come succedeva ieri, non si apre.
Si mostra una msg box con scritto:
Alcuni file possono danneggiare il computer. Se le informazioni sul file risultano sospette o se la fonte non è considerata attendibile, non aprire o salvare il file.
Nome file: test.asp
Tipo di file: ASP auto file
Da: localhost

Questo tipo di file potrebbe danneggiare il computer, nel caso in cui contenga codice dannoso.

Aprire il file o salvarlo sul computer?
[Apri][Salva][Annulla][Ulteriori informazioni]

Se faccio apri, si apre il file con il mio editor HTML (DW), nella versione processata dal server (quindi niente codice asp)
Le altre opzioni non meritano commento

Ora, qualcuno riesce a spiegarmi cosa diavolo sta succedendo?!

ciao,
cesare


codice:
<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  ' vecchio oggetto
  ' Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  Set xml = Server.CreateObject("MSXML2.XMLHTTP")
  xml.Open "GET", "http://www.lastampa.it/", False
  xml.Send
	
  ' Specify the content type to tell the browser what to do:
  Response.ContentType = "TEXT"
	
  stringaHTML=xml.responseText
  stringaCleanCesare=replace(cleanHTMLcode(stringaHTML),"","")

response.write stringaCleanCesare
Set xml = Nothing
%>

<%
function cleanHTMLcode(stringa)
  lunghezza=len(stringa)
  for i=1 to lunghezza
  StringaPulita=StringaPulita&mid(stringa,i,1) 		
		
  if mid(stringa,i,1)="<" then 
    HTMLExists=1
  else
    if HTMLExists=0 then StringaPulita=StringaPulita&mid(stringa,i,1
    if mid(stringa,i,1)=">" then HTMLExists=0
  end if
  next
  cleanHTMLcode=StringaPulita
end function
%>