pagina del form
codice:
<table border="0" width="515" cellspacing="1" id="table2">
<FORM action="ord.asp?CARTELLA=<%=request.querystring("nomecartella")%>" method=POST>
<tr>
<td width="228"><font color="#FFFFFF" face="Tahoma" size="2">Nome
file</font></td>
<td width="81">
<p align="center"><font color="#FFFFFF" face="Tahoma" size="2">
Formato</font></td>
<td width="102">
<p align="center"><font face="Tahoma" size="2" color="#FFFFFF">
Supporto</font></td>
<td width="70">
<p align="center"><font face="Tahoma" size="2" color="#FFFFFF">
Quantità</font></td>
<td width="18"></td>
</tr>
</table>
</div>
<font size="2" face="Tahoma"><div align="center">
<table border="1" width="515" id="table1" bordercolor="#FFFFFF" bordercolorlight="#C0C0C0">
<%
Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt
' Definisci il percorso della cartella da leggere
strPath = "/public/cartella/" & request.querystring("nomecartella") &""
strExt = ".JPG"
Set objFso = Server.createObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files
for each strFile in objFiles
if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then
%>
</font>
<tr>
<td bgcolor="#FFFFFF" width="225"><font size="2" face="Verdana"><a href="../cartella/<%=request.querystring("nomecartella")%>/<%=Response.Write(strFile.name)%>" rel="lightbox">
<input type="hidden" name="foto" size="31" value="<%=Response.Write(strFile.name)%>"><%=Response.Write(strFile.name)%></a></font></td>
<td bgcolor="#FFFFFF" width="75">
<p align="center"><select size="1" name="formato">
<option value="10x15">10x15</option>
<option value="12x16">12x16</option>
<option value="13x18">13x18</option>
<option value="15x20">15x20</option>
<option value="20x30">20x30</option>
<option value="30x40">30x40</option>
<option value="35x50">35x50</option>
<option value="50x70">50x70</option>
</select></td>
<td bgcolor="#FFFFFF" width="101">
<p align="center"><select size="1" name="supporto">
<option value="lucida">lucida</option>
<option value="opaca">opaca</option>
</select></td>
<td bgcolor="#FFFFFF" width="64">
<input type="text" name="quantita" size="8"></td>
<td width="15" bgcolor="#FFFFFF">
<p align="center"><a href="cancellaFILEgallery2.asp?cartella=<%=request.querystring("nomecartella")%>&file=<%=Response.Write(strFile.name)%>">
[img]../images/delete.png[/img]</a></td>
<%
end if
Next
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing
%> </tr>
</table>
</div>
<p align="center">
<p align="center"><input type="submit" value="Invia" ></font></p>
</form>
Mentre questa è la pagina di output
codice:
<table border="0" width="515" cellspacing="1" id="table2">
<tr>
<td width="228"><font color="#FFFFFF" face="Tahoma" size="2">Nome
file</font></td>
<td width="81">
<p align="center"><font color="#FFFFFF" face="Tahoma" size="2">
Formato</font></td>
<td width="102">
<p align="center"><font face="Tahoma" size="2" color="#FFFFFF">
Supporto</font></td>
<td width="70">
<p align="center"><font face="Tahoma" size="2" color="#FFFFFF">
Quantità</font></td>
</tr>
</table>
</div>
<font size="2" face="Tahoma"><div align="center">
<table border="1" width="515" id="table1" bordercolor="#FFFFFF" bordercolorlight="#C0C0C0">
</font>
<tr><%
For Each Item In Request.Form
Response.Write Request.Form(Item)
Next
%>
<td bgcolor="#FFFFFF" width="225"><font size="2" face="Verdana">
<%=request.form("foto")%></font></td>
<td bgcolor="#FFFFFF" width="75">
<p align="center"><%=request.form("formato")%></td>
<td bgcolor="#FFFFFF" width="101">
<p align="center"><%=request.form("supporto")%></td>
<td bgcolor="#FFFFFF" width="64">
<%=request.form("quantita")%></td>
</tr>
</table>
Grazie per l'aiuto....
G.