![]()
![]()
![]()
Eccomi.
Qualche piccola modifica per adattarlo alle mie esigenze, ma và tutto alla grande, ovviamente come dicevi ho fatto una pagina tipo miapagina.asp
E son riuscito con semplicità a fare ciò che credevo un imprsa impossibile.
Grazie ancora per l'aiuto.![]()
![]()
![]()
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="93%" border="1">
<tr>
<td width="25">[img]images/punto.gif[/img]</td>
<td><font color="#0099FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">ALPINISMO</font></td>
<td><%
dir="/calendario_sezioni/Alpinismo/"
nam="Calendario"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("/calendario_sezioni/Alpinismo/"))
Set file3 = file2.Files
For Each file in file3
response.write "<A HREF='"
response.write dir
response.write file.name
response.write "'><center>"
response.write nam
response.write "</center></A>
"
Next
%> </td>
<td><%
dir1="/appuntamenti_sezioni/Alpinismo/"
nam1="Clicca Quì!"
Set file4 = CreateObject("Scripting.FileSystemObject")
Set file5 = file4.GetFolder(server.mappath("/appuntamenti_sezioni/Alpinismo/"))
Set file6 = file5.Files
For Each file in file6
response.write "<A HREF='"
response.write dir1
response.write file.name
response.write "'><center>"
response.write nam1
response.write "</center></A>
"
Next
%> </td>

Rispondi quotando