Galleria fotografica
Le immagini della RGS
<%
IDCARTELLA="2980"
if Linguaggio = 2 then
tornagalleria="back to the image gallery"
else
tornagalleria="torna alla galleria delle immagini"
end if
SQLQuery = "SELECT a.id, a.szimagealt, a.szTitle AS sztitle, b.szDir + a.szURL AS szurl, a.nGroup AS ngroup, a.nPriority AS npriority, c.szTitle AS sztitleBIG, b.szDir + c.szURL AS szurlBIG, "
SQLQuery = SQLQuery & " c.nGroup AS ngroupBIG, c.nPriority AS npriorityBIG "
SQLQuery = SQLQuery & " FROM Documents a INNER JOIN "
SQLQuery = SQLQuery & " Dirs b ON a.lNumDir = b.ID LEFT OUTER JOIN "
SQLQuery = SQLQuery & " Documents c ON b.ID = c.lNumDir AND a.nGroup + 100 = c.nGroup AND a.nPriority = c.nPriority "
SQLQuery = SQLQuery & " WHERE (a.lNumDir = (SELECT id FROM dirs "
SQLQuery = SQLQuery & " WHERE lnumfather = " & IDCARTELLA & " AND npriority = 1 AND ngroup = 250)) AND (a.nGroup BETWEEN 2 AND 16 OR "
SQLQuery = SQLQuery & " a.nGroup BETWEEN 18 AND 20 OR a.nGroup BETWEEN 25 AND 29 OR a.nGroup BETWEEN 80 AND 98) "
SQLQuery = SQLQuery & " ORDER BY a.nGroup, a.nPriority "
Set RSRnews = Server.CreateObject("ADODB.Recordset")
RSRnews.Open SQLQuery, OBJdbConnectionRGS, 1, 3
primo =0
if not RSRnews.eof then
%>
<% end if
RSRnews.close
set RSRnews = nothing
%>
<% do while not RSRnews.eof
titolo = RSRnews("sztitle")
url = RSRnews("szurl")
posizione = RSRnews("ngroup")
livello = RSRnews("npriority")
idfoto = RSRnews("id")
alt = RSRnews("szimagealt")
if livello = 1 then
if primo > 0 then%>
<%end if %>
<%=titolo%>
<%else%>
<%end if
primo = primo +1
RSRnews.movenext
loop%>