|
<% ' 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
set rsFoto = Server.CreateObject("ADODB.Recordset")
rsFoto.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorialcimurri; 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 >> |
"
barraprecsucc = "| << Pagina precedente << | >> Pagina successiva >> |
"
barrasoloprec = "| << Pagina precedente << |
"
'select case (nrRecord)
if nrRecord <= (visualizzati + limitemin) then'² l'ultima pagina
if limitemin = 0 then '² anche la prima
barranav = "" 'nessuna barra di navigazione
elseif limitemin <> 0 then 'non ² anche la prima
barranav = barrasoloprec
end if
elseif nrRecord > visualizzati then'ci sono ancora pagine
if limitemin = 0 then '² la prima pagina
barranav = barrasolosucc
elseif limitemin <> 0 then '² una pagina intermedia
barranav = barraprecsucc
end if
end if
set rsFoto = Server.CreateObject("ADODB.Recordset")
rsFoto.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorialcimurri; option=3; port=3306;"
rsFoto.Source = "Select * from tabImg " & where & "order by IDImg desc, IDNews desc LIMIT " & limitemin & ", " & visualizzati
rsFoto.Open()
%> 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.
<% 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 %>
<%
i = 0
while not rsFoto.EOF %>
|
|
<% rsFoto.movenext()
i = i + 1
if i = 4 then
response.write("
")
i = 0
end if
wend %>
<% response.write(barranav) %>
<% end if %>
|
