Verifica URL

[lycia]

Dovrei controllare l'esistenza di alcuni sottodomini di terzo livello che i miei utenti creano automaticamente.
Ho usato lo script qui sotto, ma se il sottodominio non esiste, chiaramente lo script, mi risponde con errore.
Io solitamente uso asp e di xml ci capisco veramente poco: qualcuno può aiutarmi?

 
 'controllo per sottodominio

StrURL = "http:indirizzo da controllare"

Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") 

	objXMLHTTP.Open "GET", StrURL, false 
	objXMLHTTP.Send

	TESTO_PAGINA = objXMLHTTP.Responsetext 

set objxml = Nothing 
set objXMLHTTP = Nothing 

	If InStr(TESTO_PAGINA, "<frameset rows=""*,0"" BORDER=0>") > 0 Then
 
		'ESISTE
	
	Else   

		'NON ESISTE

	End If

[ilgiovo]

Innanzitutto per andare questo script ha bisogno del parser XML installato!
in realtà è molto semplice... si basa tutto sull'oggetto
MSXML2.ServerXMLHTTP. Questo oggetto permette le comunicazioni via HTTP; quindi con il metodo open apri una connessione all'indirizzo strUrl e provi a comunicarci con il send. L'oggetto esegue l'operazione e salva il risultato nella sua proprietà responsetext.
Se l'indirizzo è corretto nel responsetext dovresti avere quindi l'html della pagina specificata nell'indirizzo. Forse quello che non va bene è il test che fai dopo: controlli se nell'html ritornato c'è un frameset... ora non so come sia la struttura delle tue pagine ma con questo test anche se il dominio esistesse ma la pagina non avesse il frameset andrebbe comunque in errore! Prova a farti stampare TESTO_PAGINA prima dell'if e vedi che c'è dentro! Per ulteriori info ti consiglio di andare a vederti il reference dell'oggetto MSXML2 (lo trovi sull'msdn)

Originariamente inviato da lycia

 
 'controllo per sottodominio

StrURL = "http:indirizzo da controllare"

Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") 

	objXMLHTTP.Open "GET", StrURL, false 
	objXMLHTTP.Send

	TESTO_PAGINA = objXMLHTTP.Responsetext 

set objxml = Nothing 
set objXMLHTTP = Nothing 

	If InStr(TESTO_PAGINA, "<frameset rows=""*,0"" BORDER=0>") > 0 Then
 
		'ESISTE
	
	Else   

		'NON ESISTE

	End If