Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Tbass

Busca não retorna valor ...

Por , em ASP Clássico

Recommended Posts

Tbass    0

Tbass
Postado

Bom Galera, o problema é que quando tento fazer a busca atráves do combo, tipo seleciono o item um ele não busca no meu ID_TIPO.. Se alguêm souber o que estou fazendo errado ou mesmo me indicasse o que devo estudar para solucionar o problema...

Falows...

 

<%

Dim lista,ref,tipin

lista=Request.querystring("lista")

buscado=Request.querystring("buscado")

tipin=Request.querystring("tipin")

 

%>

 

 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>

<BODY class=texto_pagina>

<div align="center">

<table width="360" border="0">

<tr>

<td width="354" height="30" valign="middle" class="texto_pagina"><div align="center">

<%

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 objCon = Server.CreateObject("ADODB.Connection")

objCon.Open strCon

 

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.CursorLocation = 3

objRS.CursorType = 2

objRS.LockType = 1

objRS.CacheSize = RegPorPag

If Request.Form("tipin") = "" Then

strQ = "SELECT* FROM joia WHERE ref LIKE '%"& buscado &"%' or id_tipo='%"+ tipin +"%' ORDER BY id_tipo"

end if

If Request.Form("tipin") = "1" Then

strQ = "SELECT* FROM joia WHERE ref LIKE '%"& buscado &"%' and id_tipo=1;"

end if

If Request.Form("tipin") = "2" Then

strQ = "SELECT* FROM joia WHERE ref LIKE '%"& buscado &"%' and id_tipo=2;"

end if

If Request.Form("tipin") = "3" Then

strQ = "SELECT* FROM joia WHERE ref LIKE '%"& buscado &"%' and id_tipo=3;"

end if

If Request.Form("tipin") = "4" Then

strQ = "SELECT* FROM joia WHERE ref LIKE '%"& buscado &"%' and id_tipo=4;"

end if

If Request.Form("tipin") = "5" Then

strQ = "SELECT* FROM joia WHERE ref LIKE '%"& buscado &"%' and id_tipo=5;"

end if

 

objRS.Open strQ, objCon, , , &H0001

objRS.PageSize = RegPorPag

 

If Not(objRS.EOF) Then

objRS.AbsolutePage = PagAtual

TotPag = objRS.PageCount

%>

Foram encontrados <%= objRS.RecordCount%> registros </div></td>

</tr>

</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como está seu combo???

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito