Controler que le lien existe

Bonjour

je suis en train de créer un annuaire avec tout plein de lien, et quand les personnes s'inscrivent, j'aimerais que cela teste si le lien existe, afin qu'il puisse le corriger s'il faut!

j'ai donc commencer mais il affiche une erreur

Code :

dim SiteATester

SiteATester = "http://n'importe_quel_site"

strPath = Server.MapPath(Server.URLEncode(SiteATester))
Set objFSO = Server.Createobject("Scripting.FileSystemObject")
Set objOpenFile = objFSO.OpenTextFile(strPath, 1)


Et l'erreur :
Objet Server erreur 'ASP 0177 : 800a0035'

Échec de Server.CreateObject

/admin/vnc.asp, ligne 20

Opération terminée avec succès.

La ligne 20 c'est : Set objOpenFile = objFSO.OpenTextFile(strPath, 1)

avez-vous une idée????

tu ne peux pas faire de FSO sur un site web cette méthode est uniquement pour les fichiers du disque dur

une des seul méthode serai d'avoir le composant aspHttp et de faire un requete http dans ton ASP pour tester si le site est disponible. s'il n'est tu redireque sinon tu affiches une page d'erreur



-------------------------------
Réponse au message :
-------------------------------

Bonjour

je suis en train de créer un annuaire avec tout plein de lien, et quand les personnes s'inscrivent, j'aimerais que cela teste si le lien existe, afin qu'il puisse le corriger s'il faut!

j'ai donc commencer mais il affiche une erreur

Code :

dim SiteATester

SiteATester = "http://n'importe_quel_site"

strPath = Server.MapPath(Server.URLEncode(SiteATester))
Set objFSO = Server.Createobject("Scripting.FileSystemObject")
Set objOpenFile = objFSO.OpenTextFile(strPath, 1)


Et l'erreur :
Objet Server erreur 'ASP 0177 : 800a0035'

Échec de Server.CreateObject

/admin/vnc.asp, ligne 20

Opération terminée avec succès.

La ligne 20 c'est : Set objOpenFile = objFSO.OpenTextFile(strPath, 1)

avez-vous une idée????