Novato ayuda urgente

Hola,

Primero que nada... al colocar "URGENTE" posiblemente muchas personas no te
contestarán, ya que es visto de mal forma, porque nadie está obligado a
contestarte

Te recomiendo que vas las reglas de los grupos de noticias:
http://perso.wanadoo.es/rubenvigon/foro/

Sobre tu consulta:
Cuando tengas objetos de por medio, deberías colocarlos con un "Set"...
ejemplo:

opcion=Request.QueryString("opcion")
fsoForReading = 1

if (opcion=1) then

Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile (Server.MapPath("test2.txt"),
fsoForReading)
texto=objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

else
Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile (Server.MapPath("test1.txt"),
fsoForReading)
texto=objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
end if


Saludos,
Jhonny Vargas P. [MS MVP]
Santiago de Chile


"alejandro" wrote in message
news:0a9701c3c3ef$6a035830$

Hola tengo este facil codigo, que en teoria no deberia
fallar..

opcion=Request.QueryString("opcion")
fsoForReading = 1

if (opcion=1) then

objFSO = Server.CreateObject
("Scripting.FileSystemObject")
objTextStream = objFSO.OpenTextFile
(Server.MapPath("test2.txt"), fsoForReading)
texto=objTextStream.ReadAll
objTextStream = Nothing
objTextStream.Close
objFSO = Nothing

else
objFSO = Server.CreateObject
("Scripting.FileSystemObject")
objTextStream = objFSO.OpenTextFile
(Server.MapPath("test1.txt"), fsoForReading)
texto=objTextStream.ReadAll
objTextStream = Nothing
objTextStream.Close
objFSO = Nothing
end if


el caso es que me da un: Object doesn't support this
property or method: 'objFSO'

Cual es la razon, por favor...
Gracias.
Alejandro