Ricardo Amancio

Tentei select distinct nomecategoria, imagem from trabalhos; Continua retornando o mesmo resultado. estou a quase 20 dias batendo cabeça nisso. e agora estou pedindo ajuda. devo estar errando na lógica deste trecho do cod. mas não sei como resolver: <%while not Recordset1.EOF dim var var=(Recordset1.Fields.Item("nomecategoria").Value) response.Write(var)%><br><br> <%while not Recordset2.EOF If var = (Recordset2.Fields.Item("nomecategoria").Value) then%> <img src="<%= (Recordset2.Fields.Item("imagem").Value) %>"> <%End If Recordset2.movenext%> <%wend%> <br><br> <%Recordset1.movenext wend%>

Meus amigos estou tentando agrupar o resultado de uma pesquisa. Tenho a seguinta tabela "trabalhos" campos: id, nomecategoria, imgem onde no campo categoria posso ter dados repetidos. ex: Tabela "trabalhos" id nomecategoria imagem 01 nome1 img1 02 nome1 img2 03 nome1 img3 04 nome2 img4 05 nome2 img5 Resultado em tela de veria ser assim nome1 img1 img2 img3 nome2 img4 img5 _______________________________________________________________ Estou tentando da seguinte forma (sem conseguir resolver o problema) que me retorna assim (só mostra a imagem do primeiro nome listado): nome1 img1 img2 img3 nome2 _________________________________________________________________ MEU CÓDIGO "LISTAGEM.ASP" <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/conecta.asp" --> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_conecta_STRING Recordset1.Source = "SELECT trabalhos.nomecategoria FROM trabalhos GROUP BY trabalhos.nomecategoria;" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_conecta_STRING Recordset2.Source = "SELECT trabalhos.imagem, trabalhos.nomecategoria FROM trabalhos;" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <%while not Recordset1.EOF dim var var=(Recordset1.Fields.Item("nomecategoria").Value) response.Write(var)%><br><br> <%while not Recordset2.EOF If var = (Recordset2.Fields.Item("nomecategoria").Value) then%> <img src="<%= (Recordset2.Fields.Item("imagem").Value) %>"> <%End If Recordset2.movenext%> <%wend%> <br><br> <%Recordset1.movenext wend%> <% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> ________________________________________________________________________ POR FAVOR ME AJUDEM

Boa tarde meus amigos. Continuei quebrando a cabeça e consegui resolver meu problema. Vou colocar aqui código de exclusão para vocês, quem sabe pode ser útil para alguém. _______________________________________________________________________________ EXCLUI2.ASP '(AQUI ESTÁ O CÓDIGO QUE EXCLUI OS ARQUIVOS NO SERVIDOR E OS REGISTROS DO MDB - FUNCIONANDO) <% DIM conexao, rs, str, id ARRcodAltera = trim(request("delete")) '-- pega todos IDs selecionados Set objFS = Server.CreateObject("Scripting.FileSystemObject") if len(ARRcodAltera) > 0 then '-- se há conteudo na variavel id = split(ARRcodAltera,",") '-- pega a listagem de IDs separados por virgula e cria matriz url_conexao = Server.MapPath("bd/banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao for i = 0 to ubound(id) '-- para cada item da matriz '-- selecionar titulo do arquivo set rs = conexao.Execute("select imagem from portifolio where cod="&id(i)) titulo = rs(0) arquivo = "C:\inetpub\wwwroot\foxgraf\"&titulo If objFS.FileExists(arquivo) Then '-- se o arquivo existe apaga o arquivo da pasta e o registro no BD objFS.DeleteFile(arquivo) conexao.Execute("DELETE * FROM portifolio WHERE cod=" & id(i)) response.write "<br>Operação efetuada com Sucesso!<br><br>Você será redirecionado em 3 segundos." response.write "<meta http-equiv='refresh' content='3; url=excluir_registro.asp'/>" else end if next else response.write "<br>Nenhum registro está selecionado.<br><br>Selecione os registros que deseja excluir.<br><br>Você será redirecionado em 5 segundos." response.write "<meta http-equiv='refresh' content='5; url=excluir_registro.asp'/>" end if Set objFS = Nothing %> _______________________________________________________________________________ Bom galera de qualquer forma valeu pelos que leram e estavam vendo como me ajudar. Espero um dia também poder ser útil. Valeu a dica andreia_sp. realmente o "call " estava chamando uma função ou Sub qua não existia. Então tirei e coloquei as linhas de conexão ali. valeu. Acho que agora tenho que pedir para fechar o tópico. então galera que cuida do bom andamento do forum.... FECHA AI pra mim... obrigado

Boa tarde para todos.. Eu peguei uma dica que mostra como apagar vários arquivos e seus respectivos registros em um MDB. Mas não estou conseguindo por par funcionar. Para que todos possam ver o que fiz até agora vou listar os códigos. _______________________________________________________________________________ ESTE É O ERRO QUE ESTÁ DANDO (A LINHA 15 ESTÁ EM DESTAQUE (NEGRITO/VERMELHO) NO CÓDIGO) Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: 'abreconexao' /foxgraf/exclui2.asp, line 15 _______________________________________________________________________________ CONECTA.ASP '(AQUI ESTÁ A STRING DE CONECÇÃO COM O MDB) <% Dim MM_conecta_STRING MM_conecta_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\foxgraf\bd\banco.mdb" %> _______________________________________________________________________________ EXCLUIR_REGISTRO.ASP '(AQUI ESTÁ O FORM PARA SELEÇÃO DOS REGISTROS)) <%@LANGUAGE="VBSCRIPT"%> <!-- #include file = "Connections/conecta.asp" --> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_conecta_STRING Recordset1.Source = "SELECT * FROM portifolio" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <script language="JavaScript" type="text/JavaScript"> function selecionartodos(){ for (i=0;i<form1.length;i++){ if (form1.elements.checked==false){ form1.elements.checked=true; } else { form1.elements.checked=false; } } } </script> <form name="form1" action="exclui2.asp" method="post"> <table width="758" border="0" align="center" bordercolor="#000000"> <tr> <td width="45"><div align="center"><a href="java script: selecionartodos();"> Todos</a> </div></td> <td width="112"><div align="center">Código</div></td> <td width="118"><div align="center">Peça</div></td> <td width="147"><div align="center">Descrição</div></td> <td width="242"><div align="center">Imagem</div></td> <td width="68"><div align="center"> <input type="submit" name="Submit" value="Apagar"> </div></td> </tr> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <tr> <td><div align="center"> <input name="delete" type="checkbox" id="delete2" value="<%=(Recordset1.Fields.Item("cod").Value)%>"> </div></td> <td><%=(Recordset1.Fields.Item("cod").Value)%></td> <td><%=(Recordset1.Fields.Item("peca").Value)%></td> <td><%=(Recordset1.Fields.Item("descricao").Value)%></td> <td><%=(Recordset1.Fields.Item("imagem").Value)%></td> <td><div align="center"></div></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> </table> </form> _______________________________________________________________________________ EXCLUI2.ASP '(AQUI ESTÁ O CÓDIGO QUE DEVERIA RECUPERAR O CHECKBOX E EXCLUIR OS ARQUIVOS NO SERVIDOR E OS REGISTROS DO MDB) <%@ Language=VBScript%> <!--#include file="Connections/conecta.asp" --> <% DIM conexaodb, rs, str, id ARRcodAltera = trim(request("delete")) '-- pega todos IDs selecionados Set objFS = Server.CreateObject("Scripting.FileSystemObject") if len(ARRcodAltera) > 0 then '-- se há conteudo na variavel id = split(ARRcodAltera,",") '-- pega a listagem de IDs separados por virgula e cria matriz call abreconexao for i = 0 to ubound(id) '-- para cada item da matriz '-- selecionar titulo do arquivo set rs = conexaodb.Execute("select imagem from portifolio where cod="&id(i)) titulo = rs(0) arquivo = "C:\inetpub\wwwroot\foxgraf\"&titulo If objFS.FileExists(arquivo) Then '-- se o arquivo existe apaga o arquivo da pasta e o registro no BD objFS.DeleteFile(arquivo) conexaodb.Execute("DELETE * FROM portifolio WHERE cod=" & id(i)) msg = msg & "<br>- " & titulo & " excluido (" & arquivo & ")" else msg = msg & "<br>- " & titulo & " não encontrado (" & arquivo & ")" end if next else msg = "Nenhum arquivo selecionado." end if Set objFS = Nothing %> _______________________________________________________________________________

Substitui conforme foi dito e funcionou perfeitamente Vou fazer mais alguma implementações e se der algum problema volto a buscar a ajuda de vocês. Se eu puder ajudar em algo, com certeza o farei. Valeu

A parte do Mail.Host é isso mesmo, já fiz teste com aspmail e funcionou normal. E quanto aos campos nenhum deles vem preenchido pro meu email. O arquivo fc_enviar pega os dados do form do fale_conosco, envia pra mim e redireciona pro fc_confirmacao que manda um email de confirmação pro email que o visitante preenche no form do fale_conosco. Pelo visto o erro de envio é proveniente do erro de captura dos dados. Mas não sei o porque de não estar capturando os dados