<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = db Set Rs = Server.CreateObject("ADODB.RecordSet") sql = "" sql = sql & " Select a.ID, a.imgtop, a.titulo, a.data, b.imgpq, b.imggd, b.legenda, b.IDgaleria, b.ID, a.creditos, a.dataeng " sql = sql & " FROM galeria AS a, galeriafotos AS b" sql = sql & " WHERE b.IDgaleria = "&validatxt(Request.QueryString("ID"))&" AND b.IDgaleria = a.ID " sql = sql & " ORDER BY b.ID ASC " Rs.Open SQL, Conexao, 3, 3 %> <%=Rs(2)%>
 
 
<% if Cint(request.QueryString("lang")) = 1 Then %> Fotos <%=Rs(9)%> <% else %> Photos <%=Rs(9)%> <% end if %>
 
<% Conexao.Close() Set Conexao = Nothing Set Rs = Nothing %>