<% ' se request("ID") Ï valorizzato, allora diventa la gallery dell'incontro
if request("ID") <> "" then
where = "WHERE IDNews = " & request("ID") & " and publ = 'y'"
else
where = "WHERE publ = 'y'"
end if
if request("unpubl") = "y" and Session("Loggaterrimo") = true then
where = "WHERE publ = 'n'"
end if
set rsFoto = Server.CreateObject("ADODB.Recordset")
rsFoto.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorial07; option=3; port=3306;"
rsFoto.Source = "Select * from tabImg " & where
rsFoto.CursorLocation = 3
rsFoto.Open()
nrRecord = rsFoto.RecordCount
rsFoto.Close()
set rsFoto = nothing
if request("ID") <> "" then
collegamento = "&ID=" & request("ID")
end if
visualizzati = 16
if request("next") = "" then
limitemin = 0
elseif request("next") <> "" then
limitemin = request("next")
visualizzati = 16
end if
barrasolosucc = ">> Pagina successiva >> << Pagina precedente << | >> Pagina successiva >> << Pagina precedente <<
Photo Gallery
<% if request("publ") = "y" and Session("Loggaterrimo") = "" then %>
La tua immagine Ï stata inviata agli amministratori, che
valuteranno se pubblicarla appena possibile. Grazie per il tuo
contributo.
Visualizza immagini non pubblicate
<% end if %>
Se vuoi pubblicare le tue fotografie, segui questo link <% if rsFoto.BOF and rsFoto.EOF then %>
Non ci sono immagini in gallery
<% else %>" target="_blank"> <% = rsFoto.Fields.Item("Dida").Value %> <% if Session("Loggaterrimo") = true then %> " class="marcatori">Modifica " class="marcatori">Cancella <% end if %> |
<% rsFoto.movenext()
i = i + 1
if i = 4 then
response.write("