Puedes ir a http://www.motorpoint.com/newage/gui...mpracoches.asp Selecciona AUDI y modelo A3....aparecera otra pagina que esta en http://www.motorpoint.com/newage/gui.../resulguia.asp y se sale todas las listas de distintos modelos de Audi A3...
Al seleccionar un modelo de AUDI A3, por ejemplo: A3 1.6 Attraction 3p tipt, y se verá el siguiente página con detalle el mismo modelo AUDI con fotos....
Ves la parte abajo que está por debajo de SERVICIOS, VER LOS RIVALES este está dando informacion hacia la parte derecha...ver la imagen ejemplo:
El mio caso que quiero hacer el link desde VER LOS RIVALES para abrir la nueva ventana individual en http://www.motorpoint.com/newage/gui...ueba/rival.asp y para que aparecezca exactamente igual que en la parte derecha de la misma imagen. Y los he copiado el mismo código de ASP!!!!
Aunque no aparecen los listados de rivales en la ventana individual y dicen que no se han encontrados los rivales y esto porque?
Puedes mirar los codigos de ASP en archivo rival.asp
<%
Dim oConn, rs, SQL ' Declaro la variable
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
%>
<html>
<head>
<title>Rivales</title>
</head>
<body>
<font color="#00CC00">
MÁS BARATO
</font> |
<font color="#FF0000">
MÁS CARO
</font>
<br>
<br>
<%
marca=request("marcain")
modelo=request("modeloin")
tipo=request("tipoin")
combus=request("combusin")
desde=request("desdein")
hasta=request("hastain")
podesde=request("podesdein")
pohasta=request("pohastain")
oConn.Open "DSN=motorpoint.com.nuevos2"
SQL="SELECT * FROM NUEVOS WHERE (Combustible LIKE '%" +combusb+ "%') AND (Tipo LIKE '%" +tipob+ "%') AND (Potencia > "& CLng(potencia1)-20 &") AND (Potencia < "& CLng(potencia2)+20 &") ORDER BY Marca, Precio DESC;"
rs.Open SQL, oConn
If rs.BOF then
%>
<font size="1" color="#005BC4">
No se han encontrado rivales que cumplan los criterios:
<strong>DISTINTA MARCA, IGUAL SEGMENTO, TIPO Y COMBUSTIBLE, POTENCIA</strong>
+20 -20
</font>
<%
end if
do until rs.EOF
%>
<%
if rs.Fields("Marca")=Session("Marca") then
%>
<%
else
%>
<%
if rs.Fields("Precio")<Session("Precio") then
%>
<font size="1" color="#00CC00">
<%
else
%>
<%
end if
%>
<%
=rs.Fields("Marca")
%>
<a href="pruebaguia.asp?regin=<%=rs.Fields("Id")%>">
<%
=rs.Fields("version")
%></a>
</font>
<br>
<%
end if
%>
<%
rs.MoveNext
loop
rs.Close
oConn.Close
%>
</font>
</div>
</body>
</html>
