<%@ LANGUAGE=VBSCRIPT%>
<% Option Explicit
Dim path, NFiles, NTabella, RipTabella, fs, folder, Preif, Img1, Img2, Img3, Tx1, Tx2, Tx, Tx3, numfile, fileCreate, fileGet, file, files
%>
<html>
<head><title>La Vetrina di Ramazzotto </title>
<body bgcolor="#2E1818" topmargin="5" leftmargin="1" rightmargin="1" bottommargin="5"><%
'conta quanti files ci sono nella cartella Testi
Set fileCreate = CreateObject("Scripting.FileSystemObject")
Set fileGet = fileCreate.GetFolder(Server.MapPath("/vetrina/testi"))
Set files = fileGet.Files
numfile = 0
For Each file in files
numfile = (numfile + 1)
Next
Set fileCreate=Nothing
Set fileGet=Nothing
Set files=Nothing
'conta quanti files ci sono nella cartella Immagini
path=server.mappath("/vetrina/immagini")
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
NFiles=folder.Files.Count
Set fs=Nothing
Set folder=Nothing
'calcola il numero delle righe-tabelle da costruire dividendo il numero dei files presenti nella cartella
' immagini per 3 inoltre calcola il resto es: 5/3=1 con resto di 2 cosi da aggiungere una riga-tabella in piu
NTabella=Nfiles\3
Preif=Nfiles Mod 3
If Preif > 0 Then
NTabella=NTabella+1
End If
%>
<%
' Tx1-2-3 sono il nome dei file di testo per riga e Img1-2-3 per le immagini queste variabili cambiano di+3 ad ogni
'loop cosi da caricare i files giuste per ogni riga es: riga1 = files1-2-3 riga2 = files4-5-6
RipTabella=0
Tx1=1
Tx2=2
Tx3=3
Img1=1
Img2=2
Img3=3
DO UNTIL (RipTabella=NTabella)
%>
<div align="center">
<table border="1" id="table8">
<tr>
<td align="center">
<table border="0" width="200" id="table9" cellspacing="0" cellpadding="0" height="300" bgcolor="#FFFFFF">
<tr>
<td align="center">
<%
'se il numero dei files presenti nella cartella immagini e uguale o maggiore del nome del file da caricare
'esegue l istruzione altrimenti lascia la cella vuota e questo lo ripete con le immagini e con i testi per
'ogni colonna e per ogni riga
If NFiles=>Img1 Then
Response.Write "<img border=""0"" src=""vetrina/immagini/immagine"
& Img1 &".jpg ""width=""200 "" height="" 200"">"
Else
Response.Write""
End If
%>
</td>
</tr>
<tr>
<td valign="top">
<font face="Verdana" size="1">
<%If numfile=>Tx1 Then
Server.Execute("vetrina/testi/testo"&
Tx1&".txt")
Else
Response.Write("")
End If
%>
</font></td>
</tr>
</table>
</td>
<td align="center">
<table border="0" width="200" id="table10" cellspacing="0" cellpadding="0" height="300" bgcolor="#FFFFFF">
<tr>
<td align="center">
<%If NFiles=>Img2 Then
Response.Write "<img border=""0"" src=""vetrina/immagini/immagine"
& Img2 &".jpg ""width=""200 "" height="" 200"">"
Else
Response.Write""
End If
%>
</td>
</tr>
<tr>
<td valign="top">
<font face="Verdana" size="1">
<%If numfile=>Tx2 Then
Server.Execute("vetrina/testi/testo"
&Tx2&".txt")
Else
Response.Write("")
End If
%>
</font></td>
</tr>
</table>
</td>
<td align="center">
<table border="0" width="200" id="table11" cellspacing="0" cellpadding="0" height="300" bgcolor="#FFFFFF">
<tr>
<td align="center">
<%If NFiles=>Img3 Then
Response.Write "<img border=""0"" src=""vetrina/immagini/Immagine"
& Img3 &".jpg ""width=""200 "" height="" 200"">"
Else
Response.Write""
End If
%>
</td>
</tr>
<tr>
<td valign="top">
<font face="Verdana" size="1">
<%If numfile=>Tx3 Then
Server.Execute("vetrina/testi/testo"
&Tx3&".txt")
Else
Response.Write("")
End If
%>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<% RipTabella = RipTabella+1
Img1=Img1+3
Img2=Img2+3
Img3=Img3+3
Tx1=Tx1+3
Tx2=Tx2+3
Tx3=Tx3+3
LOOP
%>
invece per il nome delle stesse mi ritrovo un piccolo problema (vediamo se qualcuno me lo risolve), praticamente il cliente mi aveva chiesto di fargli una pagina dove poteva inserire le foto con il testo quidi ho pensato di creare una pagina asp dove va a contare quanti files (immagini) contiene una determinata cartella e quindi crea una serie di tabelle dove vengono caricate le immagini e i relativi testi che li chiama IMMAGINE1-2 ecc. e TESTO1-2-3.
