<select>
<%
set cl=createobject("scripting.filesystemobject")
set fuente=cl.GetFolder("unidad:\carpeta_windows\Fonts ")
for each archivofuente in fuente.files
%>
<option><%=mid(archivofuente,instrrev(archivofuent e,"\")+1,instrrev(mid(archivofuente,instrrev(archi vofuente,"\")+1),".")-1)%>
<%next%>
