dati restituiti in una select

[djjunior]

Salve è possibile avere restituiti i dati tramite una select invece di averli elencati solo testo da questo script?

 Dim objFso, objFolder, objSubFolders, strFolder, strSubFolder 
strPath = "PhotoGallery/PhotoGallery/" 

Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objSubFolders = objFolder.SubFolders 

For Each strSubFolder in objSubFolders 
Response.Write(strSubFolder.name & "
") 
Next 

Set objFso = Nothing 
Set objFolder = Nothing 
Set objSubFolders = Nothing

Grazie
G.