Tenho este codigo da minha galeria de Fotos, ele funciona perfeitamente, porém eu estou tentando colocar um campo com o titulo da galeria, mas não estou tendo sucesso, pois toda vez que coloco ele se duplica juntamente com a galeria... Alguém pode me ajudar?
<%
Dim objRs, x, strquantidade, data
data = request.QueryString("data")
Set objRS = Server.CreateObject("Adodb.recordset")
call Abreconexao
strquantidade = request.querystring("quantia")
session("quantia") = strquantidade
if session("quantia") = "" then
objrs.pagesize = 40
End if
objRs.open "Select * From galeria where data = '"&data&"' order by id" , Objconn, 3, 3
while NOT objRs.EOF
%>
<a href=<%=objrs("Foto")%> class="highslide" onclick="return hs.expand(this)"> <img src=<%=objrs("Minifoto")%> alt="AS"
title="Clique sobre a imagem para amplia-la" /></a>
<div class="highslide-caption"> <%=objrs("Evento")%> </div>
<span style="line-height:25%; margin-top:0; margin-bottom:0;">
<%
if x mod 3 = 0 then
end if
x = x + 1
ObjRs.movenext
wend
%>
