stringa da db

[vekicca]

ciao a tutti
ho trovato questo script e sto cercando di adattarlo.. la mia conoscenza di asp è proprio all'inizio e vi chiedo un aiuto..

Avrei bisogno che nello script al posto della parola prova/ (che è una cartella) ci sia il richiamo della stessa dal database <%=(gallery.Fields.Item("cartella").Value)%>/


<%
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("images/prova/"))
Set file3 = file2.Files
For Each file in file3
response.write "<img src='images/prova/"
response.write file.name
response.write "'>"
response.write ""
Next
%>

grazie

[Roby_72]

Hai già aperto il recordset?

cartella = gallery.Fields.Item("cartella").Value

e poi

Set file2 = file1.GetFolder(server.mappath(cartella))

Roby

[vekicca]

si il recordset l'ho aperto, è questo

<%
Dim gallery__MMColParam
gallery__MMColParam = "music"
If (Request("MM_EmptyValue") <> "") Then
gallery__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim gallery
Dim gallery_cmd
Dim gallery_numRows

Set gallery_cmd = Server.CreateObject ("ADODB.Command")
gallery_cmd.ActiveConnection = MM_conn_STRING
gallery_cmd.CommandText = "SELECT * FROM immagini WHERE categoria = ? ORDER BY ID DESC"
gallery_cmd.Prepared = true
gallery_cmd.Parameters.Append gallery_cmd.CreateParameter("param1", 200, 1, 255, gallery__MMColParam) ' adVarChar

Set gallery = gallery_cmd.Execute
gallery_numRows = 0
%>

ho provato come mi hai detto tu ma ho un altro problema

<%
cartella = gallery.Fields.Item("cartella").Value
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(cartella))
Set file3 = file2.Files
For Each file in file3
response.write "<img src='images/prova/"
response.write file.name
response.write "'>"
response.write ""
Next
%>

Microsoft VBScript runtime error '800a004c'

Path not found

/monica/visualizzaa.asp, line 39

la linea corrisponde a Set file2 = file1.GetFolder(server.mappath(cartella))

[Roby_72]

Fatti stampare quella variabile così capisce cosa va a cercare...

Roby

[vekicca]

ho provato anche mettendo

<%
Dim nomecartella
nomecartella = (gallery.Fields.Item("cartella").Value)
%>

e nel codice:

Set file2 = file1.GetFolder(server.mappath("images/") & nomecartella)

ma ho lo stesso problema.. path not found

[Roby_72]

Non hai fatto quello che ti ho detto.
Se non sai dove sta andando a cercare i file non puoi capire l'errore.
E' evidente che il percorso non lo trova, ma vediamo quale secondo lui è il percorso.

Roby

[vekicca]

scusami ma non so come stampare una variabile..

[optime]

urca se lo sai, invece. lo fai miliardi di volte. ti dice niente l'istruzione response.write?

[vekicca]

questo.. ma non so che stringa mettere al posto dei ??? le ho provate tutte...o quasi
Response.Write(???)
Response.End()

[Roby_72]

devi mettere la variabile....

Roby