Delia
02 de Diciembre del 2003

Hola!!
Necesito un asp que pueda insertar imagenes en un numero cualquiera dependiendo el que este en la base de datos, me han sugerido que con un for pero no se exactemente como seria el codigo en html o asp, ayudame por favor. gracias

max_the_vill
02 de Diciembre del 2003

SI PUDIERAS ESPECIFICAR UN POCO MAS TU DUDA TE PODRÍA AYUDAR

Mig23
02 de Diciembre del 2003

strPath = carpeta
response.Write strpath
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
'Set objFolder = objFSO.GetFolder((strPath))
'response.Write objfolder&""

set colFicheros = objFolder.Files


'Recorremos la colección de ficheros (objetos File)
%>
<table border=1 align=center ID="Table6">
<%
for each fichero in colFicheros
Ruta1 = objfolder&""&fichero.name
ruta= strPath & fichero.name

'response.Write fichero.name
'response.Write Ruta
response.Write ("<TR>")
response.Write "<td><input type=checkbox name=box1 value=""" & Ruta1 & """>"& fichero.name &"<a href=""agrandado.asp?ruta=" & ruta & """ target=""_blank""><IMG width=128 height=96 SRC= """& ruta &""" BORDER=1></a></td>"

'Response.write "<img width=80 src=""file.asp?ID=" & fichero.name & """>"

'if fichero.Name="pruebas.txt" then
' 'Abro el fichero para lectura (ForReading)
' set oFichero = fichero.<B>OpenAsTextStream</B>(1)
' 'Leo todo el fichero a una variable
' sContenido = oFichero.<B>ReadAll</B>
' 'Cierro el fichero
' oFichero.<B>Close</B>
' set oFichero = nothing
'end if

next 'fichero
%>
</table>
<%
set colFicheros = nothing
set oCarpeta = nothing
set FSO = nothing
%>