No muestra un solo registro del listado

PiNxOs
12 de Septiembre del 2005
Tengo un problema, es bastante urgente, hago un listado de unos vehiculos de la base de datos, pero quiero q cuando yo selecciono uno de esos vehiculso, me muestre sus caracteristicas detalladas...pero se me abre la nueva pagina, en la direccion, me coge el numero de bastidor q es el del vehiculo que hge seleccionado, pero en la tabla donde me habria de pintar todas las caracteristicas tecnicas de ese vehiculo no me sale nada. Agradeceria cualquier ayuda, ya que es muy urgente. Os remito el codigo, por si puede ayudar mas o servir a alguien para algo


<html>
<% Bastidor = request.form ("Bastidor") %>
<HEAD>
<TITLE>Merca-Auto
</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<LINK href="Merca-Auto_archivos/deide.css" type=text/css rel=stylesheet>

<BODY>

<%
Set miconexion=Server.CreateObject("ADODB.Connection")
MIconexion.Open "driver={SQL Server};server=PINCHIYO-5C8LDD; database=CONCESIONARIO; uid=sa;pwd="
set conexion=MIconexion.execute("select * from vehiculos where Bastidor like \'" + Bastidor + "\'")
%>


<%While Not conexion.eof %>

<TABLE cellSpacing=0 cellPadding=0 width=730 align=center border=0>
<TBODY>
<TR>
<TD><IMG src="Merca-Auto_archivos/criterio1.gif"></TD>
<TD align=middle><div align="center"><%=conexion("Modelo")%></a></div></TD>
<TD><IMG src="Merca-Auto_archivos/criterio2.gif"></TD></TR>
<TR>
<TD><IMG height=1 src="Merca-Auto_archivos/px.gif" width=7></TD>
<TD><IMG height=1 src="Merca-Auto_archivos/px.gif" width=716></TD>
<TD><IMG height=1 src="Merca-Auto_archivos/px.gif"
width=7></TD></TR></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 width=730 align=center border=0>
<TBODY>
<TR vAlign=top>
<TD align=middle><span class="style6"><%=conexion("Foto")%></span><BR>
<BR>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR align=middle>
<TD></TD>
</TR></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD><IMG src="Merca-Auto_archivos/criterio1.gif"></TD>
<TD class=navegacion noWrap
background=Merca-Auto_archivos/criterio.gif><A
href="http://www.merca-auto.com/informacion.cfm?id=76"><B>Solicitar
ms informacin </B></A></TD>
<TD><IMG
src="Merca-Auto_archivos/criterio2.gif"></TD></TR></TBODY></TABLE></TD>
<TD><IMG height=1 src="Merca-Auto_archivos/px.gif" width=12></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=468 border=0>
<TBODY>
<TR vAlign=top>
<TD width="50%">
<TABLE cellSpacing=0 cellPadding=5 width="95%" border=0>
<TBODY>
<TR>
<TD width="41%" class=datos>Tipo Vehculo:</TD>
<TD width="59%"><span class="style6"><%=conexion("Tipo")%></span></TD>
</TR>
<TR>
<TD class=datos>Marca:</TD>
<TD><span class="style6"><%=conexion("Marca")%></span></TD>
</TR>
<TR>
<TD class=datos>Modelo:</TD>
<TD><span class="style6"><%=conexion("Modelo")%></span></TD>
</TR>
<TR>
<TD class=datos>Combustible:</TD>
<TD><span class="style6"><%=conexion("Alimentacion")%></span></TD>
</TR>
<TR>
<TD class=datos>Cambio:</TD>
<TD><span class="style6"><%=conexion("Traccion")%></span></TD>
</TR>
<TR>
<TD class=datos>Potencia:</TD>
<TD><span class="style6"><%=conexion("Potencia")%></span></TD>
</TR>
<TR>
<TD height="2"></TD>
<TD></TD></TR></TBODY></TABLE></TD>
<TD align=right width="50%">
<TABLE cellSpacing=0 cellPadding=5 width="95%" border=0>
<TBODY>
<TR>
<TD width="48%" class=datos>Puertas:</TD>
<TD width="52%"><span class="style6"><%=conexion("N_Plazas")%></span></TD>
</TR>
<TR>
<TD class=datos>Peso:</TD>
<TD><span class="style6"><%=conexion("Peso")%></span></TD>
</TR>
<TR>
<TD class=datos>Cilindrada:</TD>
<TD><span class="style6"><%=conexion("Cilindrada")%></span></TD>
</TR>
<TR>
<TD class=datos>Plazas:</TD>
<TD><span class="style6"><%=conexion("Tipo")%></span></TD>
</TR>
<TR>
<TD class=datos>Longitud:</TD>
<TD><span class="style6"><%=conexion("Longitud")%></span></TD>
</TR>
<TR>
<TD class=datos>Caja de Cambios:</TD>
<TD><span class="style6"><%=conexion("Caja_Cambios")%></span></TD>
</TR>
<TR>
<TD class=datos>Precio:</TD>
<TD><span class="style6"><%=conexion("Precio")%></span></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD background=Merca-Auto_archivos/separa.gif colSpan=2><IMG
height=9 src="Merca-Auto_archivos/px.gif" width=1></TD></TR>
<TR>
<TD colSpan=2>
<TABLE cellSpacing=0 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD width="21%" vAlign=top class=datos>Equipamiento:</TD>
<TD width="79%"><span class="style6"><%=conexion("Ayudas")%></span></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD background=Merca-Auto_archivos/separa.gif colSpan=2><IMG
height=9 src="Merca-Auto_archivos/px.gif" width=1></TD></TR>
<TR>
<TD colSpan=2>
<TABLE cellSpacing=0 cellPadding=5 width="100%" align=center
border=0>
<TBODY>
<TR vAlign=bottom>
<TD class=datos></TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR><BR>
<TABLE cellSpacing=0 cellPadding=0 width=730 align=center border=0>
<TBODY>
<TR>
<TD height="38">
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD><IMG src="Merca-Auto_archivos/navegacion1.gif"></TD>
<TD class=navegacion noWrap
background=Merca-Auto_archivos/navegacion.gif><A
href="http://www.merca-auto.com/lista.cfm"> Volver al listado</A></TD>
<TD><IMG
src="Merca-Auto_archivos/navegacion2.gif"></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD align=middle> <TABLE border=0 align="right" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD><IMG src="Merca-Auto_archivos/criterio1.gif"></TD>
<TD class=navegacion noWrap
background=Merca-Auto_archivos/criterio.gif><div align="center"><A
href="http://www.merca-auto.com/buscar.cfm"><b>Buscar vehculo</b></A></div></TD>
<TD><IMG
src="Merca-Auto_archivos/criterio2.gif"></TD>
</TR>
</TBODY>
</TABLE>
<div align="right"></div>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>

<%
conexion.MoveNext
Wend
conexion.Close
Set conexion = Nothing
miconexion.Close
Set miconexion = Nothing
%>
</TABLE>
<BR></BODY></HTML>

orion
12 de Septiembre del 2005
Hola, prueba con esto

Saludos

<%
Set miconexion=Server.CreateObject("ADODB.Connection")
MIconexion.Open "driver={SQL Server};server=PINCHIYO-5C8LDD; database=CONCESIONARIO; uid=sa;pwd="
set conexion=MIconexion.execute("select * from vehiculos where Bastidor like \'" + Bastidor + "\'")
%>

<%
'PARTE NUEVA
if not(conexion.eof and conexion.bof) then
conexion.movefirst
else
'Recordset vacio (comprueba la sentencia sql)
end if
'FIN PARTE NUEVA
%>

<%While Not conexion.eof %>

oscar
12 de Septiembre del 2005
hola