ASP - Componente ActiveX No puede crear objeto scripting

Al usar el objeto filesystemobject me da este error.

El código mas o menos es:

Function CargaForm()

Dim fso, CD, ts, opc, i, s, UND
Const ForReading = 1

opc=document.Formulario.Elements(0).value

Set fso = CreateObject("Scripting.FileSystemObject")
Set CD = CreateObject("Scripting.FileSystemObject")

UND="directorio"

Select Case (opc)
Case 0
Set ts = fso.OpenTextFile(UND & "/ruta/archivo.extension", ForReading)
.
.
.
Cual puede ser el problema????

Saludos y gracias.

P.D.

tengo que decir que este html lo tengo en un cd y le pongo la unidad d: y la lee perfectamente.El problema lo estoy teniendo cuando esto lo quiero subir a un ftp y la ruta ya no es d: si no la url del ftp.

No creo que sea tan facil como poner la ruta nada mas. Checa este enlace
http://benmeg.com/code/asp/ftp.asp.html