<% var_buscar=Request.Form("buscar") Dim sRowColor Dim objDB Dim objRS Dim sDBName Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=andesimportdsn; UID=; PWD=;" Set objRS = objDB.Execute("SELECT DISTINCT producto.producto, producto.dproducto FROM producto WHERE Mid(Producto.producto,1,Len(Ucase(trim('"& var_buscar &"'))))=UCase(Trim('"& var_buscar &"'))") Response.Write("") Response.Write("") Response.Write("") Response.Write("") %> Buscar producto - Andesimport

 

Desea seguir Buscado SI

 

<% If objRS.EOF Then Response.Write("No se encontro campo coincidente") objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing Response.End End If %> <% Do While Not objRS.EOF %>

"> <% =objRS("producto") %> <% objRS.MoveNext Loop objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing %>




Derechos reservados por Andesimport Ltda.
General Gonzalez Balcarce # 2041, Comuna Santiago de Chile.
Fono - Fax : (2) 56-6834510 /
Cod.Postal : 6513015
email : andes@andesimport.cl o sitio web www.andesimport.cl