Rafael Spilki

no lugar de response.write rs ("imagem") coloque: %> <img src='/images/<%response.write rs ("imagem")%>' width="160" border="0"/> <% []'s Rafael Spilki

Para exibir a imagem use: <img src='diretoriodaimagem/pastadaimagem/<%=rs("FotoM") %>' width="160" border="0" /> sacou? []'s Rafael Spilki

Certamente existem outros caminhos... entendo que com ajax da pra fazer coisas bem legais nesse sentido aí... lá na sala de ajax tem inclusive um tópico pendurado da andreia que é muito bom! Quanto ao erro que deu, é que eu não tinha visto... mas está usando objetos recordsets de outras querys para fazer determinados selects... nesse caso eles tem que estar dentro dos loops... se não realmente não funciona... foi mal... mas na pressa me passei! Terias que derepente reestudar aí a logica do seu sistema... além de ajax tb é possível o fazer funcionar por aqui... o caminho é esse mesmo... Eu não entendi ainda muito bem a sua logica... talvés se você comentasse o codigo com as suas pretensões eu pudesse lhe ajudar mais, ok? []'s Rafael Spilki

uhm... rateei aqui uma coisinha... da forma abaixo não deverá ocorrer esse erro... veja como fica... compare os codigos e compare as diferenças entre um e outro... desta forma poderá traçar parâmtros ate acertar sua app... call abre_conexao sqlcat = "select id_categoria, nome from categorias order by nome desc" set rsP = conexao.execute(sqlcat) sqlcat1 = "select id_categoria, nome from categorias where id_Categoriapai = "&rsP("id_Categoria")&"" set rsF = conexao.execute(sqlcat1) sqlcat2=" select id_categoria, nome from categorias where id_Categoriapai = "&rsF("id_Categoria")&"" set rsN = conexao.execute(sqlcat1) do while not rsP.eof response.write("Categoria: "& rsP("nome")) response.write"<br><br>" do while not rsF.eof response.write("Subcategorias: "& rsF("nome")) response.write"<br><br>" do while not rsN.eof response.write("Subcategorias: "& rsN("nome")) response.write"<br><br>" rsN.movenext() loop rsF.movenext() loop rsP.movenext() loop%> []'s Rafael Spilki

você vai mandar apenas a url da pagina... o cliente vai recer a pagina completa... sacou? como se fosse uma newsletter! []'s Rafael Spilki

Marcelo, boa tarde. O que eu vi é o seguinte: você tem dois select dentro de um loop, de fato, um desses selects está dentro de dois loops... Talvés você devesse começar esse codigo com os select fora dos loops e ir ajeitando do começo... vendo o que acontece quando você posiciona determinado select dentro de determinado loop, sacou? mas... pelo que você especificou eu tentaria da forma abaixo, que pelo que eu vi deve resolver seu problema... mas caso não resolva, faça isso que eu mencionei acima, ok? call abre_conexao sqlcat = "select id_categoria, nome from categorias order by nome desc" set rsP = conexao.execute(sqlcat) do while not rsP.eof response.write("Categoria: "& rsP("nome")) response.write"<br><br>" sqlcat1 = "select id_categoria, nome from categorias where id_Categoriapai = "&rsP("id_Categoria")&"" set rsF = conexao.execute(sqlcat1) response.write("Subcategorias: "& rsF("nome")) response.write"<br><br>" sqlcat2=" select id_categoria, nome from categorias where id_Categoriapai = "&rsF("id_Categoria")&"" set rsN = conexao.execute(sqlcat1) response.write("Subcategorias: "& rsN("nome")) response.write"<br><br>" rsP.movenext() loop%> Não esqueça de postar aqui os resutlado, ok? E fica a vontade para voltar com outras dúvidas! []'s Rafael Spilki

aham! Legal... mas não esquece que o tuto é do Bareta, ok? Cara pra acessar outra tabela do banco, uma forma bem fácil e tranquila é criar um outro select, tipo: sql1 = "SELECT TOP 6 * FROM nome_da_outra_tabela" Set rs1 = objConn.Execute(sql1) Só na esqueça de declarar os novos objetos: sql1 e rs1 lá na dim! tá lembrado? na hora de resgatar os dados desta outra tabela, você pode criar uma nova condição de loop usando o while ou se for apenas um dado que lhe enteressa sem o while: 'começo do loop while not rs1.eof response.write rs1("nome do seu campo do bd") 'fim do loop rs1.movenext wend '... 'lá no final do caso, fecha porta e limpa a casa rs1.close set rs1=nothing sacou? agora é dar umas brincadas aí e ir vendo o que acontece... vais apanhar um pouquinho no início mas é normal, não esquenta a cabeça... e qualquer dúvida posta aí! []'s Rafael Spilki

Tipo, constrói o e-mail como se fosse um página html normal, sobe ela pro server e manda apenas o link dela por e-mail, como se fosse uma newsletter, o que acha? deve facilitar, só não sei se satisfaz a sua necessidade aí... []'s Rafael Spilki

cara eu testei aqui e funcionou legal... seus debugs estão certinhos tb... acho que você esta esquecendo de setar o nome do campo: <% 'declarando objetos dim sql, objConn, rs SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb" sql = "SELECT TOP 6 * FROM produtos" Set rs = objConn.Execute(sql) 'numero de colunas col=5 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while not rs.eof response.write rs("nome do seu campo do bd") 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %> o nome do banco você seta aqui: response.write rs("nome do seu campo do bd") depois é so personalizar... []'s Rafael Spilki

mais um teste: <% 'declarando objetos dim sql, objConn, rs SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb" sql = "SELECT * FROM produtos" Set rs = objConn.Execute(sql) 'numero de colunas col=5 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while no rs.eof response.write rs("campo") 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %> não esqueça tb de sempre setar a varivel do campo a ser impresso aqui: response.write rs("campo") []'s Rafael Spilki

Ronaldo, bom dia. Tem uma serie de links a respeito disso no próprio google, fazermos um modelo aqui seria apenas mais uma repetição... acho mais interessante que você de uma estudada nos links e modelos que estou te mandando e depois você poste dúvidas específicas, ou mensagens de erro, ok? http://www.superasp.com.br/forum_respostas...,5&id=13567 http://scriptbrasil.com.br/forum/index.php?showtopic=83494 http://www.juliobattisti.com.br/FORUM/foru...s.asp?TID=11003 Sucesso... []'s Rafael Spilki

estranho... da novamente um debug nessa nova instrução do select, da mesma forma que fizemos antes e posta aqui os resultados! []'s Rafael Spilki

faça um teste assim: <% 'declarando objetos dim sql, objConn, rs sql = "SELECT TOP 6 * FROM produtos" SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb" Set rs = objConn.Execute(sql) 'numero de colunas col=5 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while no rs.eof response.write rs("campo") 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %> []'s Rafael Spilki

Tem certeza de quem tem coisas cadastradas no Banco de Dados? Se sim, de um debug no seu select desta forma: response.write sql response.end 'exatamente antes da linha abaixo! Set rs = objConn.Execute(sql) []'s Rafael Spilki

esse erro qwue deu aí é q você não declarou os objetos... repare agora a primeira linha do se codigo e verás como fazer isso: <% 'declarando objetos dim sql, objConn, rs sql = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])" SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb" Set rs = objConn.Execute(sql) 'numero de colunas col=5 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while no rs.eof response.write rs("campo") 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %> sacou? tenta assim e posta os resultados! []'s Rafael Spilki

Tem que especificar os objetos no início de seu codigo: dim conn, rs, sql entre outros, ok? []'s Rafael Spilki

Norivan, parabéns. Muito completo e extremamente explicativo. Tenho aqui alguns materiais bem bacanas que eu poderia disponibilizar... algumas coisas tb sobre metatags, mas tb sobre sitemaps, alexa e analytics que acho que tb são importantes conhecimentos... O que você acha? Posso postar por aqui tb? Ou derepente te mando por e-mail e você compila junto com o seu material? Mais uma vez parabéns. []'s Rafael Spilki

Ju, não tens como montar o e-mail em um otro arquivo html e o mandar como se fosse uma newsletter adicionando apenas a url? []'s Rafael Spilki

Só dica mesmo, legal pela sua iniciativa e valeu o retorno... Então, existem várias formas de abrir a conexão... na verdade todas no final das contas são iguais... abrem a conexão... essa que fizemos aqui juntos é uma boa forma, lembra? sql = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])" SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\site.com.br\banco\loja.mdb" Set rs = objConn.Execute(sql) é isso aí... qualquer coisa posta aí... []'s Rafael Spilki

Oi Ronaldo, bom dia. Amigo, pra lhe ajudar posso indicar um ótimo script de paginação, já pronto, muito bom e totalmente comentado... segue o link: https://www.scriptbrasil.com.br/download/codigo/5221/ havendo dúvidas poste aqui, ok? []'s Rafael Spilki

Marcelo, bom dia... Cheque os seus whiles, deve estar acontecendo alguma coisa por ali... lembre-se que cada while vai fazer com que uma ação percorra os registros do bd até que esta ação esteja "satisfeita" ok? este erro q você postou é bastante característico deste procedimento. []'s Rafael Spilki

Oi Thiago, bom dia. Aqui o certo seria não apresentar mensagens de erro amigáveis, porque desta forma poderemos conhecer as mensagens de erros e lhe ajudar a solucionar o problema ok? quanto a funcionar em algumas máquinas e outras não, realmente é um pouco estranho, mas não é completamente anormal... Preciso saber por exemplo: Quais os navegadores (versões) que tem em cada máquina, se tem firewall ou antivirus, enfim... várias coisas que podem influenciar na navegabilidade ou execução da sua app... Certifica-te de obedecer os passos do tudo abaixo, e aparecendo mensagens de erro ou novas dúvidas, por favor, poste aqui ok? http://scriptbrasil.com.br/forum/index.php?showtopic=68614 []'s Rafael Spilki

Daí Legionariors, beleza? Hum, apenas uma dica: taí o tipo de coisa que você poderia testar das duas formas e ver o que acontece... afinal os testes são uma otima forma de aprender... ok? O dia ontem foi realmente muito corrido, mas esse tuto do Bareta diz tudo, e certamente é melhor e mais completo do que o esboço que eu iria lhe fazer... Vamos a resposta: se você não abrir a conexão com um banco de dados, vai fazer o select do que? Lembre-se sempre que o select é o que você ira selecionar de um banco de dados, por isso antes você sempre tera que ter o objeto conexão tb ok? qualquer dúvida poste aí... mas acho que o correto seria postar em um novo tópico, visto que esse: "Caminho do Servidor" já foi corrigido, ok? []'s Rafael Spilki

Bixo... ta corrido pra caramba aqui... não cosegui esboçar nada... mas na sequencia posto um scriptzinho aqui pra você.. não vai ser prontão... mas pelo menos um bom começo eu posso te mandar... até mais... []'s Rafael Spilki

Ju, que linha é essa? 296? []'s