Ver Mensaje Individual
  #26 (permalink)  
Antiguo 20/09/2004, 07:10
Atzeneta
 
Fecha de Ingreso: junio-2004
Ubicación: Castellón, España
Mensajes: 98
Antigüedad: 20 años, 5 meses
Puntos: 0
Te mando el código tal y como yo lo haría:

<%
'Aquí recoges el valor del identificador del registro de la moto que tienes en la ficha (Independientemente de que sea en una página nueva con un querystring, el la misma página...)
id_content_ficha=...

'Creamos una conexión a la base de datos si no tenemos la conexión creada anteriormente.
Set oConn = ........

'Buscamos los atributos de la moto y, ya no hace falta almacenarlos en un array, de aquí mismo podemos extraer las cadenas.
sql = "SELECT * FROM ContentAttributeValues WHERE id_content=" & id_content_ficha
Ser obrs = oConn.Execute(sql)
obrs.MoveFirst
I_While = 0
While not obrs.EOF
I_While = I_While + 1
'vamos creando la claúsula FROM.
C_From = C_From & ", ContentAttributeValues as cns_" & I_While
'Vamos creando los filtros de búsqueda
if I_While=1 then
C_Where = " WHERE CONTENT.id_content=cns_" & I_While & ".id_content"
else
C_Where = C_Where & " AND CONTENT.id_content=cns_" & I_While & ".id_content"
end if
C_Where_2 = C_Where_2 & " AND cns_" & I_While & ".attr_value ='" & obrs("attr_value") & "'"
Wend
obrs.Close
Set obrs = Nothing

'Creamos la cadena de sql final.
sql = "SELECT CONTENT.id_content, CONTENT.title FROM CONTENT " & C_From & C_Where & C_Where_2

'En el sql ponemos el filtro para que no nos saque la moto que tenemos en la ficha:

sql = sql & " AND not CONTENT.id_content=" id_content_ficha
.........
.........
.........
%>

A partir de aquí, creo que ya tienes lo que buscabas. Si te da algún error en alguna línea dímelo para ver que es en lo que nos hemos podido equivocar. A veces pasa, al no tener posibilidad de prueba te equivocas en cualquier "chorrada".