Foros del Web » Programando para Internet » ASP Clásico »

buscar con asp en db por <=

Estas en el tema de buscar con asp en db por <= en el foro de ASP Clásico en Foros del Web. tengo un problema de como buscar los parametros de "<=" en el campo de precios, les envio todo el asp a ver si me pueden ...
  #1 (permalink)  
Antiguo 25/06/2003, 12:04
 
Fecha de Ingreso: junio-2003
Mensajes: 2
Antigüedad: 21 años
Puntos: 0
buscar con asp en db por <=

tengo un problema de como buscar los parametros de "<=" en el campo de precios, les envio todo el asp a ver si me pueden ayudar, en el campo de "precios", el valor a traer, tiene de ser de <= o en su defecto, hacer un buscador que ne de como resulatdo precios "desde y hasta", no se si fui muy claro.

gracias de antemano


<%
Dim mostrar
Dim cant_paginas
Dim pagina_actual
Dim registro_mostrado
Dim I 'Variable Loop
zona = request.querystring("zona")
amb = request.querystring("amb")
precio = request.querystring("precio")
orden = request.querystring("orden")
alf = request.querystring("alf")
cantidad = request.querystring("cantidad")
if cantidad="5" then
mostrar = 5
elseif cantidad="10" then
mostrar = 10
elseif cantidad="1000" then
mostrar = 1000
end if
if orden = "" then
response.redirect "buscador01.asp"
end if

If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

strsql = "SELECT * FROM casa where UCase(zona) like '%" & UCase(Request("zona")) & "%' AND UCase(amb) like '%" & UCase(Request("amb")) & "%' AND UCase (precio) like '%" & UCase(Request("precio")) & "%' order by "& orden & " "&alf

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("..\..\base\venta.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar


RS.Open strSQL, oConn,3,1
cant_paginas = RS.PageCount

If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
%>
<body text="#666666" link="#666666" vlink="#666666" alink="#666666" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<div align="center">
<%
' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
If cant_paginas = 0 Then%>
</div>
<p class="titulo">Se encontraron <b><font color="#FF0000" size="2">0</font></b><font color="#FF0000">
resultados</font></p>

<ul>
<li class="titulo"><a href="buscador01.asp">Buscar nuevamente</a></font></li>
<li class="titulo"><a href="resultados01.asp?orden=amb<%=amb%>&zona=<%=z ona%>&cantidad=5">Repetir la búsqueda sin restricciones</a></font></li>
</ul>
<div align="center">
<%

Else

RS.AbsolutePage = pagina_actual

%>
</div>
<div align="center">
<center>
<table width="400" border="2" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td bgcolor="#FF6600">&nbsp;&nbsp;<span class="textoblancoGR">Detalles
de CASAS en VENTA</span></td>
</tr>
<tr>
<td><table width="400" height="250" border="0" cellpadding="0" cellspacing="0" id="AutoNumber1" style="border-width:0; border-collapse: collapse">
<tr align="left">
<td width="10" height="10" bgcolor="#009999" class="textoblanco">&nbsp;</td>
<td width="40" height="10" bgcolor="#009999" class="textoblanco">C&oacute;digo</td>
<td width="10" height="10" bgcolor="#009999" class="textoblanco">&nbsp;</td>
<td width="80" height="10" bgcolor="#009999" class="textoblanco">Zona</td>
<td width="10" height="10" bgcolor="#009999" class="textoblanco">&nbsp;</td>
<td width="40" height="10" bgcolor="#009999" class="textoblanco">Tipo</td>
<td width="10" height="10" bgcolor="#009999" class="textoblanco">&nbsp;</td>
<td width="50" height="10" bgcolor="#009999" class="textoblanco">Sup.</td>
<td width="10" height="10" bgcolor="#009999" class="textoblanco">&nbsp;</td>
<td width="20" height="10" bgcolor="#009999" class="textoblanco">Amb.</td>
<td width="10" height="10" bgcolor="#009999" class="textoblanco">&nbsp;</td>
<td width="140" height="10" bgcolor="#009999" class="textoblanco">Foto</td>
</tr>
<%
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
if colorfila = 0 then
color= "#FFFFCC"
colorfila=1
else
color="#F3F3F3"
colorfila=0
end if
%>
<tr>
<td width="10" height="10" align="left" valign="top" class="titulo" >&nbsp;</td>
<td width="60" height="10" align="left" valign="top" class="titulo" ><font color="#000000" size="2"><strong><%=RS("cod")%></strong></font></td>
<td width="10" height="10" align="left" valign="top" class="titulo" >&nbsp;</td>
<td width="80" height="10" align="left" valign="top" class="titulo" ><%=RS("zona")%></td>
<td width="10" align="left" valign="top" class="titulo" >&nbsp;</td>
<td width="40" align="left" valign="top" class="titulo" ><%=RS("tipo")%></td>
<td width="10" align="left" valign="top" class="titulo" >&nbsp;</td>
<td width="50" align="left" valign="top" class="titulo" ><%=RS("sup")%></td>
<td width="10" align="left" valign="top" class="titulo" >&nbsp;</td>
<td width="20" align="left" valign="top" class="titulo" ><%=RS("amb")%></td>
<td width="10" rowspan="2" align="left" valign="top" bgcolor="#009999" class="titulo" >&nbsp;</td>
<td width="140" height="110" rowspan="2" align="center" valign="middle" bgcolor="#333333" class="titulo" ><img src="<%=RS("foto")%>" width="135" height="103" border="0"></td>
</tr>
<tr>
<td width="10" height="100" align="left" valign="top" class="titulo" >
<br> </td>
<td height="100" colspan="9" align="left" valign="top" class="titulo" ><span class="titulo2">Detalles:</span><br>
<%=replace(RS("otros"),chr(10),"<br>")%> <%=RS("otros")%></td>
</tr>
<tr>
<td height="2" colspan="10" align="left" valign="top" bgcolor="#009999" class="titulo" >&nbsp;</td>
<td height="2" colspan="2" align="center" valign="top" bgcolor="#009999" class="textoblancoGR" >Precio
&nbsp;&nbsp;<%=RS("moneda")%>&nbsp;<%=RS("precio") %></td>
</tr>
<tr>
<td height="6" colspan="10" align="left" valign="top" class="titulo" >&nbsp;</td>
<td height="6" colspan="2" align="center" valign="top" bgcolor="#FFFFFF" class="textoblancoGR" >&nbsp;</td>
</tr>
<tr>
<td height="2" align="left" valign="top" bgcolor="#009999" class="titulo" >&nbsp;</td>
<td height="2" align="left" valign="top" bgcolor="#009999" class="textoblanco" >C&oacute;digo</td>
<td height="2" align="left" valign="top" bgcolor="#009999" class="titulo" >&nbsp;</td>
<td height="2" align="left" valign="top" bgcolor="#009999" class="textoblanco" >Zona</td>
<td height="2" align="left" valign="top" bgcolor="#009999" class="titulo" >&nbsp;</td>
<td height="2" align="left" valign="top" bgcolor="#009999" class="textoblanco" >Tipo</td>
<td height="2" align="left" valign="top" bgcolor="#009999" class="titulo" >&nbsp;</td>
<td height="2" align="left" valign="top" bgcolor="#009999" class="textoblanco" >Sup.</td>
<td height="2" align="left" valign="top" bgcolor="#009999" class="titulo" >&nbsp;</td>
<td height="2" align="left" valign="top" bgcolor="#009999" class="textoblanco" >Amb.</td>
<td width="10" height="2" align="left" valign="top" bgcolor="#009999" class="textoblancoGR" >&nbsp;</td>
<td width="140" height="2" align="left" valign="top" bgcolor="#009999" class="textoblanco" >Foto</td>
</tr>
<%
registro_mostrado = registro_mostrado + 1
RS.MoveNext
Loop

End If
%>
</table></td>
</tr>
</table>
</center>
</div>

<div align="center">
<%
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>
</div>
<div align="center"><br>
<font size="2" face="Arial">
<%
If pagina_actual > 1 Then
%>
</font><font size="2"> <a href="resultados01.asp?eje=30&page=<%= pagina_actual - 1 %>&zona=<%=zona%>&amb=<%=amb%>&orden=<%=orden%>&pr ecio=<%=precio%>&cantidad=<%=cantidad%>" class="titulo">
[<b><<</b> anterior ]</a> <font face="Arial">
<%
End If

For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<font color="#FF3300"> <b><%= I %></b></font>
<%
Else
%>
<a href="resultados01.asp?eje=30&page=<%= I %>&zona=<%=zona%>&amb=<%=amb%>&orden=<%=orden%>&pr ecio=<%=precio%>&cantidad=<%=cantidad%>"><%= I %></a>
<%
End If
Next 'I

If pagina_actual < cant_paginas Then
%>
</font> <a href="resultados01.asp?eje=30&page=<%= pagina_actual + 1 %>&zona=<%=zona%>&amb=<%=amb%>&orden=<%=orden%>&pr ecio=<%=precio%>&cantidad=<%=cantidad%>" class="titulo">
[ siguiente <b>>></b>]</a> <font size="2"><br>
</font>
<%
End If
'Fin
  #2 (permalink)  
Antiguo 25/06/2003, 14:36
Avatar de buliwyf  
Fecha de Ingreso: diciembre-2001
Ubicación: Caracas
Mensajes: 221
Antigüedad: 22 años, 5 meses
Puntos: 1
strsql = "SELECT * FROM casa where UCase(zona) like '%" & UCase(Request("zona")) & "%' AND UCase(amb) like '%" & UCase(Request("amb")) & "%' AND UCase (precio)<=" & UCase(Request("precio")) & " order by "& orden & " "&alf
__________________
RTFM antes de preguntar...
  #3 (permalink)  
Antiguo 25/06/2003, 15:12
 
Fecha de Ingreso: junio-2003
Mensajes: 2
Antigüedad: 21 años
Puntos: 0
TE AGRADEZCO, PERO NO FUNCIONA, PROBE CON ESA ALTERNATIBA Y CON BETWEEN Y TAMPOCO.

GRACIAS DE TODOS MODOS
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:12.