<%@LANGUAGE="VBSCRIPT"%>
<%
function bimagenes (id)
Set r_img = Server.CreateObject("ADODB.Recordset")
r_img.ActiveConnection = MM_bd_STRING
r_img.Source = "SELECT * FROM tblautosveguetaCochesImagenes WHERE idcoches= " & id & " ORDER BY orden"
r_img.CursorType = 0
r_img.CursorLocation = 2
r_img.LockType = 1
r_img.Open()
if not r_img.EOF then
bimagenes= r_img("imagenampliada")
else
bimagenes= "ndvista.jpg"
end if
r_img.Close()
Set r_img = Nothing
end function
%>
<%
Dim r_ptop20
Dim r_ptop20_numRows
Set r_ptop20 = Server.CreateObject("ADODB.Recordset")
r_ptop20.ActiveConnection = MM_bd_STRING
r_ptop20.Source = "SELECT * FROM tblautosveguetaCochesTop20, tblautosveguetaCoches as C WHERE C.id= coche ORDER BY prioridad ASC"
r_ptop20.CursorType = 0
r_ptop20.CursorLocation = 2
r_ptop20.LockType = 1
r_ptop20.Open()
r_ptop20_numRows = 0
%>
.::Autos Vegueta::.
