Ciao ANDREA,
lo script demo pubblicato è funzionante così, lo ripubblico togliendo quello che non server:
codice:
<FORM NAME="info" METHOD="post" ACTION="ordine.asp?cartella=<%=request.querystring("cartella")%>&id=<%=rs.fields("id")%>&ordini=<%=request.querystring("ordini")%>&email=<%=rs.fields("email")%>" >
</font>[/b]
<tr>
<td width="147">
<p align="center">
<font face="Tahoma" size="2" color="#FFFFFF">Foto</font></td>
<td width="206">
<p align="center">
<font color="#FFFFFF" face="Tahoma" size="2">Nome
file</font></td>
<td width="60">
<p align="center"><font color="#FFFFFF" face="Tahoma" size="2">
Formato</font></td>
<td width="65">
<p align="center"><font face="Tahoma" size="2" color="#FFFFFF">
Supporto</font></td>
<td width="56">
<p align="center"><font face="Tahoma" size="2" color="#FFFFFF">
Quantità</font></td>
<td width="16">
</td>
</tr>
<%
Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt
' Definisci il percorso della cartella da leggere
strPath = "/public/server/" & request.querystring("cartella") &"/" & request.querystring("ordini") &""
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
%>
<tr>
<td bgcolor="#FFFFFF" width="147">
<p align="center">
/<%=request.querystring("ordini")%>/<%=Response.Write(strFile.name)%>" rel="lightbox">[img]../server/<%=request.querystring([/img]/<%=request.querystring("ordini")%>/<%=Response.Write(strFile.name)%>" height="84"></td>
<td bgcolor="#FFFFFF" width="206"><font size="2" face="Verdana">
<input type="hidden" name="foto" size="31" value="<%=Response.Write(strFile.name)%>"><%=Response.Write(strFile.name)%></font></td>
<td bgcolor="#FFFFFF" width="60">
<p align="center"><select size="1" name="formato">
<option value="10x15">10x15</option>
<option value="12x16" selected>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="65">
<p align="center"><select size="1" name="supporto">
<option value="lucida" selected>lucida</option>
<option value="opaca">opaca</option>
</select>
</td>
<td bgcolor="#FFFFFF" width="56">
<p align="center">
<input type="text" name="quantita" size="4" value="1">
</td>
<td width="16" bgcolor="#FFFFFF">
<p align="center"><a href="cancellaFILE.asp?cartella=<%=request.form("cartella")%><%=request.querystring("cartella")%>&file=<%=Response.Write(strFile.name)%>&ordini=<%=request.querystring("ordini")%>">
[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="Completa l'ordine"></font></p>
</form>
<FORM action="../utenti/areapersonale.asp" method=post >
<p align="center"><input type="submit" value="Torna al tuo menù" ></font></p>
</form>
In pratica questo script elenca tutti i file jpg di una determinata cartella, ad ogni singola immagine è possibile assegnare FORMATO, SUPPORTO, QUANTITA'.
L'elenco può contenere molti file quindi assegnare FORMATO, SUPPORTO, QUANTITA' per ogni singolo file sarebbe troppo macchinoso, può capitare che il FORMATO, SUPPORTO, QUANTITA' da assegnare sia uguale per tutte le immagini, a me serve la possibilità di far assegnare automaticamente a tutte le immagini un FORMATO, SUPPORTO, QUANTITA' in modo dinamico.
Per esempio alla prima immagine imposto il tot FORMATO, il tot SUPPORTO, la tot QUANTITA' e cliccando su un determinato tasto/link assegni in automatico le impostazioni di FORMATO, SUPPORTO, QUANTITA', tipo ASSEGNA FORMATO A TUTTI - ASSEGNA SUPPRTO A TUTTI - ASSEGNA QUANTITA' A TUTTI, spero di essermi spiegato al meglio...
Puoi aiutarmi?
Grazie
G.
Rispondi quotando
