contenuto cartella tramite db

[daviduccio86]

Buon anno!!!

sono alcuni giorni che ci penso ma non riesco a trovare una soluzione al quesito:

"come visualizzare il contenuto in immagini di una directory la quale mi viene ricavata da un campo presente nel db".

Il Database news, oltre hai canonici id, data, titolo,... contiene anche il campo nomecartellaftp.

Ora vorrei, se fosse possibile, utilizzare quel campo per estrarre tutte i file jpg contenuti in cartella indica dal campo.

In pratica ho la mia pagina della notizia in modalità dettagliata quindi solo lei dovrei aprire un link alla pagina delle gallery o fare un iframe.
Ovviamente la gallery non è di 5/6 fotografie ma in media oltre le 10-15.

Qualcuno può aiutarmi?

[optime]

una volta che hai il nome della cartella puoi leggerne il contenuto con FSO

[daviduccio86]

Grazie, per il suggerimento, anche navigando in internet ho trovato vari script già pronti per visualizzare i file contenuti nella cartella ma la devo impostare sempre da codice, vorrei invece impostare la directory tramite db

Avendo, ad esempio questo codice, come implementarlo?

<% 

Dim objFso, objFolder, objFiles, strFolder, strFile 
strPath = "Indirizzo Cartella tramite campo db " 

Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

For Each strFile in objFiles
Response.Write("[*]" & strFile.name &" - " & strFile.Size & "") 
Next 

Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing 

%>

[optime]

duccio, ti stai perdendo in un bicchier d'acqua.

sei proprio sicuro di non saper sostituire a questa riga

strPath = "Indirizzo Cartella tramite campo db "

qualcosa del tipo

strPath = rs("path")

???

dai che ce la fai

[daviduccio86]

effettivamente ragionando:

<%
  
    Dim sc, cn, rs, id 
    sc = ""
    sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
    sc = sc & Server.MapPath("../mdb-database/database")

    Set cn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")

    cn.Open sc

    id = Request.QueryString("id")    
    rs.Open "SELECT * FROM news WHERE id LIKE " + id, cn, 1
  
  
%>

<% 

Dim objFso, objFolder, objFiles, strFolder, strFile 
strPath = Rs("cartellaftp")

Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

For Each strFile in objFiles
Response.Write("[*]" & strFile.name &" - " & strFile.Size & "") 
Next 

Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing 

%>

Ma viene restituito l'errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.
riferito alla linea 20 ovvero:

rs.Open "SELECT * FROM news WHERE id LIKE " + id, cn, 1

[optime]

----------------------------------------------------
impariamo a fare un po' di debug

invece di

rs.Open "SELECT * FROM news WHERE id LIKE " + id, cn, 1

metti

Sql="SELECT * FROM news WHERE id LIKE " + id
Response.Write "maGGica SQL...: " & sql
Response.Flush
rs.Open Sql, cn, 1

poi posta quello che viene a video
----------------------------------------------------

[daviduccio86]

maGGica SQL...: ????

[daviduccio86]

Ho copiato e tolto

id = Request.QueryString("id")    
Sql="SELECT * FROM news WHERE id LIKE " + id
rs.Open Sql, cn, 1

e appare

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/news/allegati.asp, line 21

[optime]

copiato e tolto. ottimo. uno ti suggerisce e tu fai di testa tua

[daviduccio86]

mi non mi convinceva il fatto del R.W del Sql con quel "maGGica"

mentre il Response.Flush

non so a che cosa serva...