Buscar en una base de datos (E-Commerce)

[bakanzipp]

cambia esto

Código:

if instr(Request.Form("busqueda"),"/") Then
Busqueda=Split(Replace(Request.Form("busqueda"),"'","''")," ")
vector = split(Busqueda,"/")
response.write ubound(vector) 'LINEA 18 
response.end

por esto

Código:

Busqueda=Replace(Request.Form("busqueda"),"'","''")
vector = split(Busqueda,"/")
response.write ubound(vector) 
response.end