Ver Mensaje Individual
  #3 (permalink)  
Antiguo 09/12/2003, 15:25
individuo_YO?
 
Fecha de Ingreso: diciembre-2003
Mensajes: 5
Antigüedad: 20 años, 5 meses
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!!!!!