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

Muchas Gracias por tu respuesta, resolvio todos mis
problemas. Ok, tendre en cuenta lo que me comentas sobre
las reglas del foro, disculpame...

Gracias otra vez,
Alejandro

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

.

No te preocupes... fueron solo comentarios que espero no lo tomes mal...

Cualquier cosa nos consultas o ayudas...


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


"Alejandro" wrote in message
news:019c01c3c487$0fde45c0$
Muchas Gracias por tu respuesta, resolvio todos mis
problemas. Ok, tendre en cuenta lo que me comentas sobre
las reglas del foro, disculpame...

Gracias otra vez,
Alejandro

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

.