<%Response.buffer=false%> :: IMPOCALI :: Consulta Items <%DIVISION=Request.QueryString("DIVISION") Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "impocali"%>

Aqui encontraras todos los productos de Importadora Cali. Puedes buscar usando nuestras selecciones o puedes buscar por la Referencia / Descripcion del producto. Si no encuentras lo que buscas, por favor contactanos y nosotros lo buscaremos por Ud.

 
<% If Request.QueryString("DIVISION") <> empty then DIVISION=Request.QueryString("DIVISION") sSQL="execute procedure pr_weblinea('"&DIVISION&"', '01')" set RS = Conn.Execute(sSQL) If RS.eof <> true then Linea = Request.QueryString("Linea") Linea=Replace(Linea, " ", "") %>  <% If Request.QueryString("linea") <> empty then grupo=Request.QueryString("grupo") sSQLGrupo="execute procedure pr_webgrupo('"&DIVISION&"','"&Linea&"', '01')" set RSGrupo = Conn.Execute(sSQLGrupo) If RSGrupo.eof <> true then %>
  <% If Request.QueryString("grupo") <> empty then Subgrupo=Request.QueryString("Subgrupo") sSQLSubGrupo="execute procedure pr_websubgrupo('"&DIVISION&"','"&Linea&"', '"&grupo&"', '01')" set RSSubGrupo= Conn.Execute(sSQLSubGrupo) If RSSubGrupo.eof <> true then %>
 
<% End if End if Else Response.Write "NO se encontraron registro" End if End if%>
Nueva Busqueda
O Introduzca aqui Referencia o Descripcion:

<% If Request.QueryString("Opcion") = "1" then 'Los parámetros del procedure son en su orden subgrupo, linea, division, idioma, ej: 'pr_webconsulta("FA","0104",1,"E"); If Request.QueryString("Subgrupo") <> empty and Request.QueryString("grupo") <> empty and Request.QueryString("Linea") <> empty and Request.QueryString("DIVISION") <> empty then Subgrupo=Request.QueryString("Subgrupo") sSQLwebconsulta="execute procedure pr_webconsulta('"&Subgrupo&"','"&Linea&"','"&DIVISION&"','E')" 'response.write sSQLwebconsulta set RSwebconsulta= Conn.Execute(sSQLwebconsulta) If RSwebconsulta.eof <> true then %> <% EstiloTR="fila3Mini" Do While RSwebconsulta.eof <> true If EstiloTR="fila3Mini" then EstiloTR="fila2Mini" Else EstiloTR="fila3Mini" End if %> <% end if %> <% RSwebconsulta.MoveNext Loop RSwebconsulta.Close %>
Llave: Codigo
Principal:
Descripcion: Marca y
origen:
Multiplos
De:
<%=RSwebconsulta(0)%>    <%=RSwebconsulta(1)%>  <%Response.write RSwebconsulta(2) If RSwebconsulta(10) <> 0 then%> <%=RSwebconsulta(3) & " / " & RSwebconsulta(4)%> <%=(RSwebconsulta(5))%>
<% Else %> Disculpe, No hay datos encontrados en su busqueda, por favor intente con otra seleccion. <% End if End if end if If Request.QueryString("Opcion") = "2" then If Request.QueryString("xValor") <> empty then Subgrupo=Ucase(Request.QueryString("xValor")) 'Subgrupo=Request.QueryString("xValor") Linea=Ucase(Request.QueryString("xValor")) DIVISION=Linea sSQLwebconsulta="execute procedure pr_webconsulta2('"&SubGrupo&"','E')" 'sSQLwebconsulta="execute procedure pr_webconsulta2('',' ','"&DIVISION&"','E')" 'response.write SubGrupo 'response.write sSQLwebconsulta set RSwebconsulta= Conn.Execute(sSQLwebconsulta) ' If RSwebconsulta.eof = true then ' 'response.write "Codigo" ' ' RSwebconsulta.Close ' sSQLwebconsulta="execute procedure pr_webconsulta2('"&SubGrupo&"','E')" ' 'sSQLwebconsulta="execute procedure pr_webconsulta2('','"&Linea&"','','E')" ' ' 'response.write sSQLwebconsulta ' set RSwebconsulta= Conn.Execute(sSQLwebconsulta) ' ' ' End if If RSwebconsulta.eof <> true then %> <% EstiloTR="fila3Mini" Do While RSwebconsulta.eof <> true If EstiloTR="fila3Mini" then EstiloTR="fila2Mini" Else EstiloTR="fila3Mini" End if %> <% end if %> <% RSwebconsulta.MoveNext Loop RSwebconsulta.Close %>
Llave Codigo
Principal
Descripcion Marca y
origen
Multiplos
De.
<%=RSwebconsulta(0)%>    <%=RSwebconsulta(1)%>  <%Response.write RSwebconsulta(2) If RSwebconsulta(10) <> 0 then%> <%=RSwebconsulta(3) & " / " & RSwebconsulta(4)%> <%=formatnumber(RSwebconsulta(5),0)%>
<% Else %> Disculpe, No hay datos encontrados en su busqueda, por favor intente con otra seleccion. <% End if End if End if Conn.Close %>