Selecionar apenas um registro da tabela

E ae galera..

Seguinte Tenho 3 tabelas, Imoveis, ImoGalerias, ImoGaleriasFotos e quero mostrar na página inicial uma foto da seguinte galeria.

Daí fiz esse código:

<%Set rstGeral = Server.CreateObject("ADODB.RecordSet")rstGeral.Open "SELECT Imoveis.*, ImoGaleriasFotos.Imagem01 FROM Imoveis INNER JOIN ImoGaleriasFotos ON Imoveis.Galeria = ImoGaleriasFotos.Galeria WHERE Imoveis.Exibir = 1 ORDER BY Imoveis.Codigo;", conn While Not rstGeral.EOF Response.Write("<tr>") intCont = 0 While Not rstGeral.EOF And intCont < 3 intImovelCodigo = rstGeral("Codigo")%> <td width="33%" valign="top"> <div id="coluna"><center> <div id="imagem<%=intImovelCodigo%>"><img src="<%=rstGeral("Imagem01")%>" border="0" /></div><br /> <span class="titulo"><%=rstGeral("Chamada")%></span> <br /><br /> <span class="desc"><%If Len(rstGeral("Texto")) > 50 Then Response.Write Mid(rstGeral("Texto"),1,50) & "..." Else Response.Write rstGeral("Texto") %></span><br /><br /> <span class="mais"><a class="mais" href="Imoveis.asp?imo=<%=intImovelCodigo%>">Mais Detalhes <span>»</span></a></span> </center></div> </td><% rstGeral.MoveNext() intCont = intCont + 1 Wend If Not rstGeral.EOF Then Response.Write("</tr>") Wend If intCont > 0 And intCont < 3 Then While intCont < 3 Response.Write("<td width=""33%""> </td>") intCont = intCont + 1 Wend End If	Response.Write("</table>")	rstGeral.Close()%>

Só que por exemplo eu quero q o select selecione o imovel 1 que tem a galeria 1 e depois vai na tabela imogaleriasfotos e selecione apenas uma foto para mostrar na página inicial. Consegui fazer isto mas ao invés de selecionar apenas uma foto ele duplica e aparece o mesmo imovel X vezes mais com fotos diferentes.

Veja o imóvel Casa em condomínio fechado é o mesmo mais com imagens diferentes: www.mgimoveis.net

Desde já agradeço.