Ir para conteúdo
Fórum Script Brasil

djsamer

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    16

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por djsamer

  5. Ajuda Na Listagem De Orçamento

    em ASP

    Postado

    Me passa o q você quer fazer, pois a lógica ta meio confusa aquele contador até 18 no meio do looping, explica melhor ai.

    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.

  6. Ajuda Na Listagem De Orçamento

    em ASP

    Postado

    <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>

    tá, e o erro ? dá problem onde ? o q você deseja fazer ?

    Eu postei errado mais já editei ...

  8. Ajuda Na Listagem De Orçamento

    em ASP

    Postado

    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>

  10. Ajuda Na Listagem De Preços De Um Banco De Dados

    em ASP

    Postado

    amigo, vamos por partes então, para entender.

    veja os passos, para mostrar registros vindos de um banco de dados.

    1- conectar ao banco

    2- criar o sql, que faz SELECT no banco

    3- Setar o recordset, para armazenar o resultado do select do banco

    4- criar um loop, para mostrar todos os dados encontrados no select no banco

    você fez todos esses passos?

    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

    Pois, ao meu entender, quando você diz:

    lista("campo")

    lista = variavel setada para receber o resultado do select do banco

    ("campo") nome do campo da tabela, onde foi feito o select

    seu codigo é assim?

    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

    smile.gif

  11. Ajuda Na Listagem De Preços De Um Banco De Dados

    em ASP

    Postado

    não entendi o que você quis dizer..

    eu indiquei um possível problema, porque você esta fazendo o IF com uma variavel, mas esta mostrando outra variavel abaixo.

    Seu codigo deve fazer isso mesmo? ou isso é mesmo um erro?

    eu imagino que no IF, deva ter o mesmo campo que você quer mostrar.. ou seja: 

    If lista("preço") = "" then
    Mas, isso você tem que ver no seu codigo quais campos são usados, e para que são usados.. eu, daqui, sem conhecer nada do seu sistema, não tenho como dizer o que é, ou o que não é.. Certo?
    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;

  12. Ajuda Na Listagem De Preços De Um Banco De Dados

    em ASP

    Postado

    tem alguma coisa fora de sincronia aqui então..

    veja aqui:

    <%

    If lista("preços") = "" then

    Response.write("Consulte-nos")

    else

    response.write("<b>Preço</b>:R$" & lista("preço") & "")

    end if

    %>

    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

  13. Ajuda Na Listagem De Preços De Um Banco De Dados

    em ASP

    Postado

    Tentei usar a outra função também não deu certo ele listou a palavra preço sem preço nenhum sad.gif :

    	<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.

  15. Ajuda Na Listagem De Preços De Um Banco De Dados

    em ASP

    Postado

    Bem, em que parte do codigo, você deseja fazer o que?

    Creio que você deverá usar o IF, para resolver isso aí..

    Mas, não entendi o que quer fazer.

    O if, funciona basicamente assim:

    If condição = verdadeiro then

    response.write "Coloque alguma mensagem de erro, ou outro comando aqui"

    End If

    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 ...

  16. Ajuda Na Listagem De Preços De Um Banco De Dados

    em ASP

    Postado · Editado por dark0

    Olá meus amigos.

    Este e o meu prmeiro poste aqui neste maravilhoso fórum, eu estou tendo o seguinte problema;

    eu estou listando produtos numa página asp so que no banco de dados aonde existe a tabela de preços existe campos sem valor de preço nenhum, vasio;agora como eu faço para listar uma mensagem tipo (consulte-nos) quando o script não encontra preço dentro do campo vazio eu vou estar listando o código, ele esta funcionando prefeitamente só que eu não consegui até agora resolver este pequeno problema, o script que esta ai lista tudo normal e aonde não tem preço simplismente não lista nada.

    para dar uma olhada visita o seguinte site: http://www.wtecnology.com.br/novosite

    o código e:

    <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>

    <% 'A listagem do preço %>

    <b>Preço :<font color="#990000">R$</b><% = lista("preço") %></font>

    <% 'termino da listagem do preço %>

    <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>

    Editado: Formate seus textos usando as TAGS QUOTE e CODE para citações e trechos de códigos! Isso Facilita a Leitura!

×
×
  • Criar Novo...