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