<% IF IsNumeric(Request("idAlbum"))=False THEN Response.redirect("foto.asp") vPage="foto.asp" 'Apro RecordSet SET RS = Server.CreateObject("ADODB.Recordset") StrSql="SELECT * FROM Album WHERE idAlbum=" & Request("idAlbum") & " and Visibile=1" 'Apertura Recorset RS.Open StrSql, CN, 1 IF RS.Eof=True OR RS.Bof=True THEN Response.redirect("foto.asp") ELSE Album=RS.Fields("Album") Descrizione=RS.Fields("Descrizione") END IF vTitle=Album vDescription=Album & " - Foto Gallery NCC Roma, Noleggio con Conducente Roma." RS.Close %> <%=Album%> /<%=vPage%>"> /images/<%=Application("LogoFace")%>"> /<%=vPage%>">

<%=Album%>


<%=Application("LineColor")%>;"> <%IF IsNull(Descrizione)=False THEN%>
<%Response.write Descrizione%>
<%END IF%>
<%StrSql="SELECT * FROM Foto WHERE idAlbum=" & Request("idAlbum") 'Apertura Recorset RS.Open StrSql, CN, 1 IF RS.Eof=True OR RS.Bof=True THEN%>



Non sono presenti foto per l'album <%=Request("Album")%>.






<%ELSE%>
<%DO While NOT RS.EOF%> ">" data-gallery="first-gallery" alt="<%=RS.Fields("Descrizione")%>"> <%RS.MoveNext LOOP%>
<%END IF RS.Close%>
Torna alla Gallery Torna alla Gallery







Torna SU
<%SET RS=Nothing CN.Close SET CN=Nothing%>