Ir para conteúdo
Fórum Script Brasil
  • 0

Checkbox


smez

Pergunta

Bom pessoal tenho um checkbox em uma busca, como que eu faço para quando o usuario clicar no checkbox ele mostrar somente os produtos que estiver em estoque (acima de 0) e quando ele clicar denovo que e para desmarcar o checkbox ele mostra todos os produtos (com estoque 0 ou não)

<%Const RegPorPag = 15
VarPagMax = 10
estoque = replace(replace(request.form("estoque"),chr(39),"''"),"--","")
        
                                      
If Request.QueryString("PagAtual") = "" Then
  PagAtual = 1
  NumPagMax = VarPagMax
Else
  NumPagMax = CInt(Request.QueryString("NumPagMax"))
  PagAtual = CInt(Request.QueryString("PagAtual"))
  Select Case Request.QueryString("Submit")
    Case "Anterior" : PagAtual = PagAtual - 1
    Case "Proxima" : PagAtual = PagAtual + 1
    Case "Menos" : NumPagMax = NumPagMax - VarPagMax
    Case "Mais" : NumPagMax = NumPagMax + VarPagMax
    Case Else : PagAtual = CInt(Request.QueryString("Submit"))
  End Select
  If NumPagMax < PagAtual then
    NumPagMax = NumPagMax + VarPagMax
  End If
  If NumPagMax - (VarPagMax - 1) > PagAtual then
    NumPagMax = NumPagMax - VarPagMax
  End If
End If

Set rs = CreateObject("ADODB.Recordset")
Set rs.activeconnection = abredb
rs.CursorLocation = 3
rs.CursorType = 2
rs.LockType = 1
rs.CacheSize = RegPorPag
strQ = "SELECT * FROM Produtos"

    If Trim(Request("string_busca")) <> "" Then
        If Trim(Request("campo_busca")) <> "" Then
            strQ = strQ & " Where " & Trim(Request("busca")) & " LIKE '%" & Trim(Request("busca")) & "%'"
        Else
            strQ = strQ & " Where 1 <> 1"
            strQ = strQ & " Or nome_produto LIKE '%" & Trim(Request("busca")) & "%'"
            strQ = strQ & " Or quantidade_produto LIKE '%" & Trim(Request("busca")) & "%'"
            strQ = strQ & " Or preco_unitario_vista LIKE '%" & Trim(Request("busca")) & "%'"
            strQ = strQ & " Or fornecedor LIKE '%" & Trim(Request("busca")) & "%'"
        End If
     End If
     
     If Trim(Request.QueryString("Ordem")) <> "" Then
         strQ = strQ & " ORDER BY " & Request.QueryString("Ordem")
    End If
            rs.Open strQ
            rs.PageSize = RegPorPag
            
            Set rs_indice = CreateObject("ADODB.RecordSet")
            Set rs_indice.ActiveConnection = abredb
            rs_indice.CursorLocation = 2
            rs_indice.CursorType = 0
            rs_indice.LockType = 2
            strQ_indice = "SELECT * FROM Produtos WHERE 1 <> 1"
            rs_indice.Open strQ_indice
            indice = ""
            For Each item In rs_indice.Fields
                If item.properties("IsAutoIncrement") = True Then
                    indice = item.name
                    Exit For
                End If
            Next
            rs_indice.Close
            Set rs_indice = Nothing
            Set strQ_indice = Nothing
%>
<input name="estoque" type="checkbox" id="estoque2" value="estoque">

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Voce pode usar com parametro o value do checkbox, se for vazio então é zero e estiver marcado vai ter estoque

Então andreia estou fazendo assim

e não esta dando certo

<%

Set rs = CreateObject("ADODB.Recordset")

Set rs.activeconnection = abredb

rs.CursorLocation = 3

rs.CursorType = 2

rs.LockType = 1

rs.CacheSize = RegPorPag

strQ = "SELECT * FROM Produtos"

If Trim(Request("string_busca")) <> "" Then

If Trim(Request("campo_busca")) <> "" Then

If Trim(Request("estoque")) <> "" Then

strQ = strQ & " Where " & Trim(Request("busca")) & " LIKE '%" & Trim(Request("busca")) & "%' AND quantidade_produto > 0"

Else

strQ = strQ & " Where 1 <> 1"

strQ = strQ & " Or nome_produto LIKE '%" & Trim(Request("busca")) & "%'"

strQ = strQ & " Or quantidade_produto LIKE '%" & Trim(Request("busca")) & "%'"

strQ = strQ & " Or preco_unitario_vista LIKE '%" & Trim(Request("busca")) & "%'"

strQ = strQ & " Or fornecedor LIKE '%" & Trim(Request("busca")) & "%'"

End If

End If

End If

If Trim(Request.QueryString("Ordem")) <> "" Then

strQ = strQ & " ORDER BY " & Request.QueryString("Ordem")

End If%>

<input name="estoque" type="checkbox" id="estoque2" value="<%Request.ServerVariables("URL")%>?" onclick="jump(this.value,'')">

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...