 |
| |
|
FOTOGALLERY - ALBUM - |
<%
Set rs_Album = Server.CreateObject("ADODB.Recordset")
sql_Album = "SELECT " & Prefix_Tabelle & "_GALLERIA_ALBUM.*, " & Prefix_Tabelle & "_UTENTI.Cognome, " & Prefix_Tabelle & "_UTENTI.Nome " & _
"FROM " & Prefix_Tabelle & "_GALLERIA_ALBUM " & _
"INNER JOIN " & Prefix_Tabelle & "_UTENTI ON " & Prefix_Tabelle & "_GALLERIA_ALBUM.FK_Utente = " & Prefix_Tabelle & "_UTENTI.ID_Utente " & _
"ORDER BY " & Prefix_Tabelle & "_GALLERIA_ALBUM.Data_Ora DESC"
rs_Album.Open sql_Album, conn_sito_tabelle_host, 3, 3
IF NOT(rs_Album.eof AND rs_Album.bof) THEN
rs_Album.movefirst
Numero_Album = rs_Album.recordcount
FOR K=1 TO Numero_Album
%>
<%
ID_Utente = rs_Album("FK_Utente")
ID_Album = rs_Album("ID_Album")
Nome_Album = UCASE(rs_Album("Nome_Album"))
%>
|
<%=Nome_Album%>
<%=rs_Album("Data_Ora")%> Autore <%=rs_Album("Cognome")%> <%=rs_Album("Nome")%> |
|
<% rs_Album.movenext
NEXT ' Fine LOOP %>
<% ELSE ' IF Recordset non vuoto %>
|
Fotogallery Vuota (solo per utenti registrati) |
<% END IF ' IF Recordset non vuoto
rs_Album.Close
Set rs_Album = Nothing
%>
| |
|
 |
|
|
|
