<%@LANGUAGE="VBSCRIPT"%> <% conn.open(vConexao) vSQl="select * from ftevento order by ftevento_data desc" Set RS = conn.execute(vSQL) if RS.eof then response.write("Nenhuma Foto Encontrada") end if%> Untitled Document <%Response.Write "
" contar = 0 Do while not RS.eof If contar = 3 Then Response.Write "" End If If contar <> 3 Then Response.Write "" End If imagem="cadastros/"&RS("ftevento_foto") If RS.eof then exit do Response.Write "" contar = contar +1 RS.MoveNext If RS.eof then exit do imagem="cadastros/"&RS("ftevento_foto") Response.Write "" contar = contar + 1 RS.MoveNext If RS.eof then exit do imagem="cadastros/"&RS("ftevento_foto") Response.Write "" contar = contar + 1 RS.MoveNext Loop Response.Write "

"&RS("ftevento_descricao")&"
"&RS("ftevento_descricao")&"
"&RS("ftevento_descricao")&"
" %>

<%=request.QueryString("msg")%>
Voltar a home