Foto - [27/10/2005] - Evento teste
Local: teste
Descrição: testando festa
Foto: ? (ai não consigo)
olha o código na página:
todas.asp
e aqui a parte onde irá mostrar a quantidade de fotos: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 rsfotos=Server.CreateObject("ADODB.Recordset")
rsfotos.Open "select * From tbl_eventos order by id desc", Conex, 3,3
rsfotos2.Open "select count AS Total From tbl_fotos,tbl_eventos order by id desc", Conex, 3,3
rsfotos.PageSize=9
If rsfotos.EOF Then
response.write "Não existem registros para exibição..."
Else
rsfotos.AbsolutePage = Cint(n_page)
contador=0
While not rsfotos.EOF AND contador < rsfotos.PageSize
Set rsMostraFoto = Conex.Execute("select top 5 * from tbl_fotos where EventoID=" & rsFotos("ID"))
sFoto = rsMostraFoto("Foto")
rsMostraFoto.Close
Set rsMostraFoto = Nothing
%>
<%
if session("total") = "" then
response.write ""& rsFotos2("total")
else
response.write ""& session("total")
end if
%>
Acho que esqueci de dizer que meu banco de dados tem a tbl_eventos e tbl_fotos onde a tabela eventos são gravados as festas e a tbl_fotos onde são armazenadas as fotos com os campos FotoID e EventoID.
Da uma forcinha ae galera...
Edição feita por: Operador, 28/10/2005, 17:43.