<%@ Language=VBScript %>
<% Option Explicit %>
Hotel Elvezia - Summer Holiday
<%
public Var(50), Chiave(4), ciclo, RS, prod, sel, conf, coll, collweb, MyConn, PRS, DRS
Chiave(1) = "$loopstart"
Chiave(2) = "$MyVar"
Chiave(3) = "$loopend"
Chiave(4) = ")"
sel = 0
%>
<%
dim file, strDirectory, FSO, s
strDirectory = Server.MapPath(".")
conf = Request.QueryString("periodo")
file = strDirectory & "\last_minute.htm"
Set FSO = CreateObject("Scripting.FileSystemObject")
s = ApriFile(FSO, file)
%>
<%
Function ApriFile(FSO, file)
Dim TextStream, S, t, ct, i, mem, linea(500)
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
ciclo = 1
mem = 0
Set File = FSO.GetFile(file)
Set TextStream = File.OpenAsTextStream(OpenFileForReading)
Do While Not TextStream.AtEndOfStream
t = TextStream.ReadLine
for i = 1 to 3
ct = instr (1, t, Chiave(i))
if ct > 0 then
t = database (t, i)
end if
next
select case ciclo
case 1
response.write t & vbNewLine
case 2
mem = mem + 1
linea(mem) = t
case 3
ciclo = sviluppa(linea, mem)
end select
loop
TextStream.Close
End Function
%>
<%
Function database (t, i)
select case i
case 1
t = "" & vbNewLine
ciclo = 2
case 2
case 3
t = "" & vbNewLine
ciclo = 3
end select
database = t
End Function
%>
<%
Function sviluppa (righe(), m)
dim i, a, h, r, t, l, s, Tav
OpenDataBase
access
i = 2
while i <= m
t = righe(i)
a = instr(1, t, Chiave(2))
Do while a > 0
r = instr(a, t, Chiave(4))
if r = 0 then errore
l = mid(t, a + 7, r - a - 7)
t = mid(t, 1, a - 1) & Var(l) & mid(t, r + 1)
a = instr(a, t, Chiave(2))
Loop
response.write t & vbNewLine
i = i + 1
wend
RS.Close
MyConn.Close
sviluppa = 1
End Function
%>
<%
sub OpenDataBase()
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "elvezia"
set RS = MyConn.Execute("SELECT * FROM LASTMINUTE")
rs.movefirst
If RS.BOF AND RS.EOF Then
errore
end if
end sub
%>
<%
sub access()
dim k
rs.movefirst
for k = 1 to 4
if rs(8) = true then
Var(k) = " Dal " & RS(1) & " - al " & RS(2) & ""
end if
RS.movenext
next
End sub
%>
<%
sub punto (y)
dim i, x, a
a = Var(y)
do
i = instr(a, ".")
if i > 0 then
a = mid(a, 1, i - 1) & mid(a, i + 1)
end if
loop until i = 0
x = len(a)
do
if x > 3 then
a = mid(a, 1, x - 3) & "." & mid(a, x - 2)
end if
x = x - 3
loop until x <= 0
Var(y) = a
end sub
%>
<%
sub errore
%>
<%
end sub
%>