Error al crear componente Activex

[haven]

El error que me dá es este:
Error de Microsoft VBScript en tiempo de ejecución error '800a01ad'
El componente ActiveX no puede crear el objeto: 'Scripting.FileSystemObject'

/video2.asp, line 8

Las primeras lineas de código son:
<pre> &lt;%@ LANGUAGE=&quot;JScript&quot; %&gt;
&lt;SCRIPT LANGUAGE=&quot;VBScript&quot; RUNAT=Server&gt;
Response.Write &quot;&lt;html&gt;&lt;head&gt;&lt;title&gt;Disc os Búsqueda de vídeos.&lt;/title&gt;&lt;/head&gt;&quot;
Response.Write &quot;&lt;body bgcolor='#FFFFFF' background=IMAGE/z2.jpg'&gt;&quot;
Response.Write &quot;&lt;p align='center'&gt;&lt;font size='5'&gt;&lt;strong&gt;&quot; &amp; Chr(34) &amp; UCase(Request.QueryString(&quot;video&quot;)) &amp; Chr(34) &amp; &quot;&lt;/strong&gt;&lt;/font&gt;&lt;p&gt;&quot;
Response.Write &quot;&lt;div align='center'&gt;&lt;center&gt;&lt;table border='0' width='1'&gt;&lt;tr&gt;&quot;
Set fvideo = Request.QueryString(&quot;video&quot;)
Set fich = CreateObject(&quot;Scripting.FileSystemObject&quot ;)
Set fichfold = fich.GetFolder(&quot;IMAGE\video&quot;)
Set fichcoll = fichfold.Files
For Each fichcada in fichcoll
'Response.Write fichcada.name
'Response.Write UCase(fvideo)
if UCase(Left(fichcada.name,1)) = UCase(fvideo) Then
Response.Write &quot;&lt;td width='10%'&gt;&lt;img src='IMAGE/video/&quot; &amp; fichcada.name &amp; &quot;' width='70' height='70' alt='imagen'&gt;&lt;/td&gt;&quot;
End If
Next
&lt;/SCRIPT&gt; </pre>

¿Alguien puede ayudarme? :)
Saludos

[Gurrutello]

Tienes registrada la .DLL??
creo que es por eso.
un saludo :)


<a href="http://loencuentras.cjb.net"><img src="http://www.mundofree.com/homedesin/loencuentraslogo.gif" alt="Loencuentras.cjb.net" border="0"></a>

[haven]

Pues acabo de preguntarlo y parece que no esta registrada la dll. Bueno habrá que cambiar la programación. De echo esa programación no la hemos hecho nosotros, sino que tenemos que rediseñar la página web y por supuesto con ello, la programación.
Muchas gracias por la respuesta.
Un saludo

[enygma]

Por que no pruebas a poner

Set fich = Server.CreateObject(&quot;Scripting.FileSystemObje ct&quot;) ?

\_/|\_/\_/|\_/\_/|\_/\_/|\_/\_/|\_/\_/|\_/\_/|\_/\_/|\_/<br>[B]--->> Hector Garzon <<---<br>email: [email protected]<br>\_/|\_/\_/|\_/\_/|\_/\_/|\_/\_/|\_/\_/|\_/\_/|\_/\_/|\_/

[bakanzipp]

ó por ke no la registras:

c:\windows&gt;regsvr32 Nombredll.dll

[haven]

Gracias a todos por las respuestas.
enygma: Ya había probado lo que me dices y me sale el mismo error pero gracias.
bakanzipp: Lo de regitrar la DLL es más dificil, no me lo permiten así que ajo y agua.

Saludos