Jump to content
Fórum Script Brasil
  • 0

Checkbox


smez
 Share

Question

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 to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.4k
×
×
  • Create New...