No bd é o seguinte:
Cadastro primeiro o evento e depois na página de cadastrar as fotos escolho o evento e gravo as fotos.
Na tabela tbl_eventos tem apenas o ID dos eventos e na tbl_fotos tem o FotoID que é da foto e o EventoID que é gravado o numero do evento tal naquele campo.
tentei adaptar e agora só aparece o numero 4 em todas e e não está certo, pq apenas 1 dos eventos tem 4 fotos o que fiz errado?
n_page=request("n_page")
If n_page="" Then n_page = 1
Caminho="DBQ=" & Server.MapPath("/coberturas/baladas/bd/bd_baladas.mdb")
Set Conex=Server.CreateObject("ADODB.Connection")
Conex.Open Caminho & ";Driver={Microsoft Access Driver (*.mdb)}","",""
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * From tbl_eventos ORDER By ID Desc"
Set rs = Conex.Execute(SQL)
If Not rs.EOF Then
Set rs1 = Server.CreateObject("ADODB.RecordSet")
SQL1 = "Select Count(*) As Total From tbl_fotos where EventoID =" & rs("ID")
Set rs1 = Conex.Execute(SQL1)
rs.PageSize=9
If rs.EOF Then
response.write "Não existem registros para exibição..."
Else
rs.AbsolutePage = Cint(n_page)
contador=0
While not rs.EOF AND contador < rs.PageSize
Set rsMostraFoto = Conex.Execute("select top 5 * from tbl_fotos where EventoID=" & rs("ID"))
sFoto = rsMostraFoto("Foto")
rsMostraFoto.Close
Set rsMostraFoto = Nothing
%>
<%=rs("nome")%> - <%=rs1("total")%>
Edição feita por: Operador, 30/10/2005, 09:49.