%@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 " 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 %>