Inserción de datos
Publicado por DaniDani (2 intervenciones) el 09/07/2007 09:49:13
Hola
Quisiera insertar los datos de un listado de una carpeta pero me los inserta todos en un registro.
Yo hago el listado como dice el ejemplo
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
`nos crea el Objeto FSO
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
`nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath(""))
`nos comienza a listar los archivos
Response.Write "<FONT FACE=Verdana SIZE=2>"
`Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "<B>" & ObjetoCarpeta.Name & "</B>:<BR>"
`busca en todos los archivos que encuentra en dicha carpeta y nos devuelve el nombre
For Each Fichero in ObjetoCarpeta.Files
Response.Write Fichero.Name & "<BR>"
Next
Response.Write "</FONT>"
Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
%>
</BODY>
</HTML>
hasta ahí todo bien, copio todo el listado (son fotos) y quiero introducir los datos en cada registro para así despues poder mostrar las fotos en una pagina.
Pero el problema es que con copiar y pegar me pega todo los datos en un registro.
Como puedo hacer para introducir cada nombre de foto en un registro?
Gracias
Quisiera insertar los datos de un listado de una carpeta pero me los inserta todos en un registro.
Yo hago el listado como dice el ejemplo
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
`nos crea el Objeto FSO
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
`nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath(""))
`nos comienza a listar los archivos
Response.Write "<FONT FACE=Verdana SIZE=2>"
`Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "<B>" & ObjetoCarpeta.Name & "</B>:<BR>"
`busca en todos los archivos que encuentra en dicha carpeta y nos devuelve el nombre
For Each Fichero in ObjetoCarpeta.Files
Response.Write Fichero.Name & "<BR>"
Next
Response.Write "</FONT>"
Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
%>
</BODY>
</HTML>
hasta ahí todo bien, copio todo el listado (son fotos) y quiero introducir los datos en cada registro para así despues poder mostrar las fotos en una pagina.
Pero el problema es que con copiar y pegar me pega todo los datos en un registro.
Como puedo hacer para introducir cada nombre de foto en un registro?
Gracias
Valora esta pregunta
0