<%
session.lcid = 1040
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
' Apertura connessione
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/fpdb/Garden.mdb")
' Apertura recordset Offerte
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Conn
RS.CursorType = adOpenForwardOnly
RS.LockType = adLockReadOnly
RS.Source = "SELECT * FROM Offerte WHERE TitoloIng<>'' ORDER BY DataInserimento"
RS.Open
If RS.EOF then
Response.Write "| THERE ARE ANY OFFERS AT THE MOMENT | "
End if
Primo = true
Do until RS.EOF
Id = RS("Id")
' Sistemazione testo
Descrizione = Replace(RS("DescrizioneIng"), CHR(34), """)
Descrizione = Replace(Descrizione, CHR(13), " ")
Data = day(RS("DataInserimento")) & "/" & month(RS("DataInserimento")) & "/" & year(RS("DataInserimento"))
if Primo then
Primo = False
Else
Response.Write "| . | "
End if
if fs.FileExists(Server.MapPath(Application("vroot") & "/writable/Foto" & Id & ".jpg")) = True then
LinkFoto = " "
Else
LinkFoto = ""
End if
Response.Write "OFFER INSERTED ON THE " & Data & "
" & RS("TitoloIng") & " " & LinkFoto & Descrizione & " "
if fs.FileExists(Server.MapPath(Application("vroot") & "/writable/FotoB" & Id & ".jpg")) = True then
Response.write " "
End if
Response.Write "
| "
RS.Movenext
Loop
set fs = nothing
%>
|
Insert here your telephone number, we will call you to show you our offers:
|