Leggere contenuto directory e creare codice

[gianlu73]

Salve vorrei leggere il contenuto di varie cartelle e fin qua non è un problema.

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("path/"))

path = ("path/")
For Each objFile in objFolder.Files

response.write (objFile.name)

Next
Set objFolder = Nothing
Set objFSO = Nothing %>

A questo punto però vorrei creare un pezzo di codice che contenga i nomi dei files che ho ricavato.
Inseriti in hyperlink.

Ad esempio. Se nella cartella trovo file1.jpg file.fpg e file3.jpg... il mio codice dovrebbe essere:

<a href="path/file1.jpg"><img src="path/file1.jpg" ></a>
<a href="path/file2.jpg"><img src="path/file1.jpg" ></a>
<a href="path/file3.jpg"><img src="path/file1.jpg" ></a>

Il mio problema è come sempre concatenare le varie stringhe.

ho fatto così...

response.write ("<a href=" &(path)&(objFile.name) & ">" & (objFile.name) & "</a><br>")

e risulta <a href="path/file1.jpg">file1.jpg</a><br>

Ma mi manca la parte si img src da inserire prima del </a>, ho problemi con i doppi apici..

Inoltre posso fare in modo che nella pagina ASP non vengano stampati i link ottenuti e quindi

file1.jpg
file2.jpg
file3.jpg

ma tutte la stringe in modo che possa selezionarle e copiarle?

<a href="path/file1.jpg">file1.jpg</a><br>
<a href="path/file1.jpg">file2.jpg</a><br>
<a href="path/file1.jpg">file3.jpg</a><br>

Qualcuno può indicarmi la sintassi.
Grazie mille.

[gianlu73]

Risolto grazie:

path = ("ciccio/")
For Each objFile in objFolder.Files

mystr = "<a href=" &(path)&(objFile.name) & "> <img src=" &(path)&"thumbs/"&(objFile.name) & "> </a><br>"
response.write(server.htmlencode(mystr)&"<br>")