09/12/2003, 15:25
|
| | Fecha de Ingreso: diciembre-2003
Mensajes: 5
Antigüedad: 21 años Puntos: 0 | |
mira hise lo que me mencionaste, es decir segui la logica, este es el codigo resultante, pero no me resulta
<%
Dim rs1__varPrecio
rs1__varPrecio = "0"
If (Request.QueryString("precio") <> "") Then
rs1__varPrecio = Request.QueryString("precio")
End If
%>
<%
Dim rs1__varAno
rs1__varAno = "0"
If (Request.QueryString("ano") <> "") Then
rs1__varAno = Request.QueryString("ano")
End If
%>
<%
Dim rs1__varMarca
rs1__varMarca = "0"
If (Request.QueryString("marca") <> "") Then
rs1__varMarca = Request.QueryString("marca")
End If
%>
<%
Dim rs1
Dim rs1_numRows
Dim sql as string
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_info_STRING
sql = "SSELECT puesto, marca, modelo, categoria, ano, cod_precio, precio FROM automotriz WHERE"
If (Request.QueryString("precio") <> "0") then
sql=sql + "AND cod_precio = '" + Replace(rs1__varPrecio, "'", "''")""
End if
If (Request.QueryString("ano") <> "0") then
sql=sql + "AND ano = " + Replace(rs1__varAno, "'", "''")""
End if
If (Request.QueryString("marca") <> "0") then
sql=sql + "AND marca = '" + Replace(rs1__varMarca, "'", "''")""
End if
rs1.Source = sql + "ORDER BY puesto ASC"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
rs1_numRows = 0
%>
por fabor alludenme soy tan solo un novato en esto...
gracias!!!!! |