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

Ayuda con mensaje

Estas en el tema de Ayuda con mensaje en el foro de ASP Clásico en Foros del Web. Hola a todos Tengo el siguiente problema tengo una consulta por medio de 3 combobox lo quiero que haga es que si al consultar con ...
  #1 (permalink)  
Antiguo 06/02/2004, 18:15
Avatar de Cuezaltzin  
Fecha de Ingreso: diciembre-2003
Ubicación: Frente al Monitor
Mensajes: 252
Antigüedad: 20 años, 6 meses
Puntos: 0
Exclamación Ayuda con mensaje

Hola a todos

Tengo el siguiente problema tengo una consulta por medio de 3 combobox lo quiero que haga es que si al consultar con los tres combo no da ningun resultado con esas caracteristicas me mande un error. Mi codigo esta asi:

<%

dim BDDD
dim table
dim SQL1

Marca = Trim(Request.QueryString("Marca"))
Valor1 = Trim(Request.QueryString("Mega"))
Valor2 = Trim(Request.QueryString("Zoom"))

Set BDDD = Server.CreateObject ("ADODB.Connection")
Set table = Server.CreateObject ("ADODB.RecordSet")
BDDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0 ;DATA SOURCE=" + Server.MapPath(".\Productos.mdb"))

sqlWhere = ""

if Marca<>"" and ucase(Marca)<>"CUALQUIERA" then
if sqlWhere <> "" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere & " Marca = '" & Marca & "'"
end if

if Valor1<>"" and ucase(Valor1)<>"CUALQUIERA" then
if sqlWhere <> "" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere & " Valor1 = '" & Valor1 & "'"
end if

if Valor2<>"" and ucase(Valor2)<>"CUALQUIERA" then
if sqlWhere <> "" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere & " Valor2 = '" & Valor2 & "'"
end if

' Finalmente arma el SQl
strSql = "SELECT * FROM Productos WHERE Producto LIKE 'Camaras' AND Publicar=True"


IF sqlWhere <> "" then strSql = strSql & " AND " & sqlWhere

table.ActiveConnection=BDDD
table.Open strSql

Como puedo hacer esto. Por su ayuda mil gracias.
__________________
Hasta la victoria Siempre.
  #2 (permalink)  
Antiguo 06/02/2004, 20:05
Avatar de Gurrutello  
Fecha de Ingreso: enero-2002
Ubicación: Ontario,Toronto [Canada]
Mensajes: 2.017
Antigüedad: 22 años, 4 meses
Puntos: 6
hola
no se si es esto pero bueno creo...
<%
Marca = Trim(Request.QueryString("Marca"))
Valor1 = Trim(Request.QueryString("Mega"))
Valor2 = Trim(Request.QueryString("Zoom"))
if Marca="" or Valor1="" or Valor2="" then
response.redirect"tupagina.asp" ' mandamos a otro lado
'response.write"Tumensaje"
else

al final de tu codigo
end if %>

Saludos
__________________
Un Saludo
www.tutores.org
Asp | Php | Javascript | Perl | Coldfusion | Flash | +- 2000 codigos

Última edición por Gurrutello; 06/02/2004 a las 20:10
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 13:45.