djsamer

Valeu meu irmão ...essa parte não vi ainda.

Pois é , se eu não teria verificado no site do fabricante não estaria postando a minha duvida aqui... se você acha que sabe então me mostra como fazer: eis esta o código que eu criei e ele funciona perfeitamente a menos que eu não sei fazer ele inserir no bd mais de um arquivo...:

Eu gostaria de ver um simples script de cadastro com upload de foto, eu uso o ASPSmartUpload porque eu quero estuda-lo, Espero a colaboração de vocês...

por acaso você tem um simples formulario com upload...

Boa tarde meu amigo ... E assim. eu tenho um formulário de orçamento, e esta funcionando perfeitamento. se o cliente não quer orçar postando dentro de todos os campos en não vou ter problema inserindo os dados ...significa que quando ele faz o orçamento on-line os campos vázios e cheios de dados são inseridos mesmo assim nos campos do banco de dados ...e aonde esta o formulário vazio ele não insere nada no banco de dados ...até esta funcionando perfeitamente... Neste código passado eu tenho que listar o que tem nestes campos no meu caso eu preciso listar os campos com registros ignorando os que estão vazios ... tipo assim : pode se que o campo 1 tem registro ai ele lista mais o campo 2 não tem ...então ele ignora ...e assim em diante... no caso deste código ->os campos de orçamento de peças são nomeados como orc_1 até orc_18..... e com este código for i = 1 to 18 %> <% = verificacao("orc_"&i&"") %> quero que lista tipo assim orc_1, orc_2,orc_3 (um abaixo do outro) conforme os registros inseridos ...e ignorando no mesmo tempo os que estão sem dados ou registros.... Agradeço a atenção e desculpa a demora.

tá, e o erro ? dá problem onde ? o q você deseja fazer ? Eu postei errado mais já editei ...

desculpe meu irmão ...já editei o poste

Olá caros amigos...eu estou tendo problemas na listagem de orçamentos ... eu tento listar o pedido de cliente mais na listagem esta dando o seguinte erro ... Asus A7s333 ADODB.Field error '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /novosite/verifica_orcamento.asp, line 0 A tabela se chama orcamento e os campos começam com 'orc_1, orc_2, orc_3 .....até orc_18. o meu codigo e o seguinte ....: <!--#include file="config/conexao.asp"--> <% Dim verificacao Dim codigo Dim sql dim orcamento dim resposta Dim i codigo = request.QueryString("searchFor") Set verificacao = Server.CreateObject("Adodb.recordset") sql = "select * from orcamento where identificador_orcamento like'" & codigo & "' and publicar like('sim')" verificacao.open sql, conexao, 3,3 'Verifica o id do orçamento if verificacao.eof or verificacao.bof then err = 1 resposta = "<b>[<font color='#FF0000'>O ID digitado não esta correto!</font>]</b><br>Verifique se digitou o ID correto<br>Ou<br><b>[<font color='#FF0000'>O seu orçamento ainda não esta publicado</font>]</b><br><br><br><br><br>" end if %> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td align="center" valign="top"> <div align="center" class="story"><% = resposta %></div> </td> </tr> <tr> <td align="left" valign="top"> <div class="story"> <% if err = 0 then while not verificacao.eof for i = 1 to 18 %> <% = verificacao("orc_"&i&"") %> <% if not verificacao.eof then verificacao.movenext else exit for end if next wend end if %> </div> </td> </tr> </table>

Olá Dark eu consegui resolver o problem eu fiz o seguinte : <% If IsNull(Lista("preço")) then preço = "<font color='#FF0000' size='1'>Consulte-nos para mais informações sobre o preço.</font>" Else preço = "<b>Preço :</b>R$"& lista("preço") End If %> <% = preço %> Agora deu certo ...obrigado pela ajuda...

Sim até ai esta tudo certo : no caso eu estou usando inner join também. Sub abrelista codproduto = request.QueryString("departamento") Set lista = server.CreateObject("ADODB.RECORDSET") sql = "Select produtos.*, menu_principal.* from menu_principal inner join produtos on produtos.categoria = menu_principal.menu where menu_principal.id like '" & codproduto & "'order by produtos.id desc" lista.Open sql, conexao, 3, 3 end sub Sub fechalista lista.close set lista = nothing end sub Ate ai esta tudo correto o código esta funcionando corretamente sem erros Ai esta tudo correto ... como eu disse o código esta funcionando corretamente e se quiser pode dar uma olhada www.wtecnology.com.br/novosite porque na verdade eu estou trabalhando com ele ON-line

Sim você tem razão meu irmão o meu problema e o seguinte... Quando não tem preço do produto na tabela "preço" ele deve listar a seguinte mensagem Ex: "consulte-nos" mais se existe um preço verdadeiro na tabela "preço" ai ele deve me mostrar o valor do produto, no caso Lista("preço") e a variavél para listar os preços de todos os produtos neste script Variavél = lista tabela = preço e isso que esta me deixando louco, eu não sou profissional mais eu estou tentando ser , o script que você me passou ia dar erro com certeza porque não existe tabela "preço"... porque apartir da tabela preço que estou pegando os R$ ... Forte abraço;

tá vendo no nome, no IF, e o nome na hora de mostrar? Estao diferentes, né? então, você compara uma variavel e manda mostrar outra.. isso ta certo? Pois, a variavel do IF pode conter valor.. mas a variavel a ser mostrada pode estar vazia.. já que são variaveis diferentes.. Dá uma olhada nisso.. pode ser este o problema Abraços Bom ...o If lista("preços") = "" then ... no caso e inexistente no banco de dados conforme isso pode dar erro na página ou terei que criar este variável. Obrigado

Tentei usar a outra função também não deu certo ele listou a palavra preço sem preço nenhum : <form name="listar" action="produtos.asp" method="post"> <% if lista.eof or lista.bof then Response.Write("<div align='center' class='story'><b>Desculpe-nos!!!<br>O departamento solicitado ainda esta sem dados.</b></div><div align='center' class='story'>Por favor, verifica este departamento mais tarde</div>") else iPageSize = 5 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If lista.Pagesize = iPageSize if not lista.eof then lista.cachesize = iPageSize iPageCount = lista.PageCount end if If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 lista.AbsolutePage = iPageCurrent iRecordsShown = 0 %> <%while not lista.eof and iRecordsShown < iPageSize%> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" valign="top" height="110"> <table width="100%" height="110" align="left" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" valign="top" width="100" height="110"><a href="detalhando_produto.asp?product_cod=<%=lista("product_cod")%>"><img src="http://www.wtecnology.com.br/produtos/<%=lista("imagemp")%>.gif" border="0" width="90" height="90"></a></td> <td align="left" valign="top" width="320" height="100"><font class="story"><b>Produto : </b>&nbsp;<%=lista("produto")%><br><b>Fabricante/Distribuidor : </b>&nbsp;<a href="<%=lista("urlfabricante")%>" target="_new"><%=lista("fabricante")%></a><br><b>Garantia : </b>&nbsp;<%=lista("garantia")%><br> <% preço = lista("preço") If IsEmpty(preço) Then Response.Write("Consulte-nos") End If If Not IsEmpty(preço) Then Response.Write "Preço: " & preço End If %> <br><%=lista("avaliacao")%></font><br><p align="right"><a href="detalhando_produto.asp?product_cod=<%=lista("product_cod")%>"><img src="http://www.wtecnology.com.br/gif/detalhe.gif" border="0"></a>&nbsp;&nbsp;</p></td> </tr> <tr> <td colspan="2" align="center" valign="top"><hr align="center" width="100%" color="#FFCC00"></td> </tr> </table> </td> </tr> </table> <% iRecordsShown = iRecordsShown + 1 lista.MoveNext Wend%> <% If iPageCurrent <> 1 Then%> <a href="produtos.asp?departamento=<% = codproduto %>&page=<%= iPageCurrent - 1 %>"><img src="images/preview.png" border="0" align="absmiddle"></a> <% End If if iPageCount>1 then for i=1 to iPageCount if i=iPageCurrent then%> <font size="1" color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<b><%=i%></b>&nbsp;</font> <%Else%> <font size="1" color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<a href="produtos.asp?departamento=<% = codproduto %>&page=<%=i%>"><%=i%></a>&nbsp;</font> <%end if%> <%next End if If iPageCurrent < iPageCount Then%> <a href="produtos.asp?departamento=<% = codproduto %>&page=<%= iPageCurrent + 1 %>"><img src="images/next.png" border="0" align="absmiddle"></a> <%End If%> <% End If %> </form> Aqui o código inserido : <% preço = lista("preço") If IsEmpty(preço) Then Response.Write("Consulte-nos") End If If Not IsEmpty(preço) Then Response.Write "Preço: " & preço End If %> Ta meio chato esse código.

veja se funciona Eu tentei fazer a tua idea mais deu na mesma ...ele lista os preços existente mais aonde que não tem preço :fica vazio:

Onde as palavras em azul nunca mudam, pois são codigo asp mesmo. O restante pode variar, conforme sua condição, e o que será feito para aquela condição. Obrigado por ter me respondido tão rápido. que na verdade eu usei a seguinte função: <% If lista("preços") = "" then Response.write("Consulte-nos") else response.write("<b>Preço</b>:R$" & lista("preço") & "") end if %> Mais ai não deu certo, ele listou os preços e aonde que não tem preço ele não listou nada apenas ficou assim :Preço:R$ Vazio sem o reponse.write que eu solicitei ...