<%@ 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
%>