devo recuperare nome foto, dimensione, tipo, ecc da una cartella (public) con delle foto dentro.
e fin qui ok...
quello che devo fare io però, è leggere da db quali foto vedere...
cioè io ho 10 foto nella cartella, leggo da db una tabella che mi dice che ne devo vedere solo tre (per varie ragioni..) e di loro vedere gli attributi..
per ora sono così:
strPath = Server.MapPath("\public") & "\"
Dim objFSO, objFolder, objFile
Set objFSO = server.createobject("scripting.filesystemobject")
Set objFolder = objFSO.getfolder(strpath)
'query per sapere quali foto vedere
set rs = server.CreateObject ("ADODB.Recordset")
rs_sql = "SELECT * FROM mostre_foto WHERE id_mostra = '1'"
rs.Open rs_sql,Session("conn")
For Each objFile in objFolder.Files
Response.Write "<table border=0 width='90%'>"
Response.Write "<tr align='center'>"
Response.Write "<td align=left class=table width='80%'>"
Response.Write "<font color='#000080' size='2' face='Tahoma'>"
Response.Write "[img]..\public\" & rs.fields("foto") & "[/img]
"
Response.Write "[b]Nome:b>" & objfile.nome "[b]Data :b>"&objFile.DateCreated& "
Response.Write "<div>Dimensione:" & objfile.size & "</div><div>Tipo file:" & objFile.type & "</div>"
Response.Write "</font>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Next
set objfolder = Nothing
set objfso = nothing
Rispondi quotando
