|
|
|
|
Altitalia
news and information
<%if not objRecordset.eof then
objRecordset.AbsolutePage = CLng(Session("CurrentPage"))
%>
<%
dim i
For i = 1 To objRecordset.PageSize
if i=1 and request("firstTime")="" then
objRecordset.movefirst
end if
%>
<%=objRecordset("titreEn")%>
<%=objRecordset("contenuEn")%>
|
<%
objRecordset.movenext
if objRecordset.EOF then
exit for
end if
Next%>
<%
if CLng(Session("CurrentPage"))>1 then
response.write "<<< "
end if
for m = 1 to objRecordset.Pagecount
if m = Session("CurrentPage") then
response.write " "& m &""
else
response.write " "& m &""
end if
next
if CLng(Session("CurrentPage"))>>>"
end if
objRecordset.Close
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
else%>
No news
<%end if%>
|
|
 |
 |
| This page relates last information and below, you'll find the last 3rd products. |
<%
sql = " SELECT Article.idArticle, Article.*, theVilles.nomIt AS nom_ville, Agences.nom AS nom_Agence, Quartiers.nomIt as nom_quartier "
sql =sql&" FROM ((Article INNER JOIN Agences ON Article.idAgence = Agences.idAgence) INNER JOIN Quartiers ON Article.idQuartier = Quartiers.idQuartier) INNER JOIN theVilles ON Quartiers.idVille = theVilles.idVille "
sql =sql&" WHERE Article.isTemporaire=0 and isActif=1 and (((Article.isAffaireDuMois)=1) AND ((Article.idQuartier)=Quartiers.idQuartier) AND ((Quartiers.idVille)=theVilles.idVille)) ORDER BY dateEntree DESC; "
stringIdArticle = ""
sqla = "SELECT Article.idArticle from article where Article.isTemporaire=0 and isActif=1 order by dateEntree desc LIMIT 0,3"
set rsa = maconnexion.Execute(sqla)
if not rsa.eof then
rsa.movefirst
do while not rsa.eof
stringIdArticle = stringIdArticle & rsa("idArticle") &","
rsa.movenext
loop
end if
stringIdArticle = left(stringIdArticle,Len(stringIdArticle)-1)
sql = " SELECT Article.idArticle, Article.*, theVilles.nomIt AS nom_ville, Agences.nom AS nom_Agence, Quartiers.nomIt as nom_quartier "
sql =sql&" FROM ((Article INNER JOIN Agences ON Article.idAgence = Agences.idAgence) INNER JOIN Quartiers ON Article.idQuartier = Quartiers.idQuartier) INNER JOIN theVilles ON Quartiers.idVille = theVilles.idVille "
sql =sql&" WHERE Article.idArticle In ("&stringIdArticle&") "
set rs = maconnexion.Execute(sql)
if not rs.eof then
rs.movefirst
do while not rs.eof
if Len(rs("vignette"))>3 then
srcImg = "../images_biens/"& rs("page") &"/"& Left(rs("vignette"),Len(rs("vignette"))-5) &".jpg"
if doExistFile(srcImg)<1 then
srcImg = "../old_files/images/noPhoto_Vignette.gif"
end if
else
srcImg = "../old_files/images/noPhoto_zoom.gif"
end if
desc=Replace(replace(rs("descriptionIt"),"''","'"),chr(10),"
")
%>
"> |
"> ref
: <%=rs("ref")%>
<%=tabType(rs("idtype")-1)%>
(<%=tabTypologie(rs("idtypologie")-1)%>)
<%=rs("nom_ville")%>
|
<%
rs.movenext
loop
end if
%>
|
|
