|
<%
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.ConnectionString = Application("oConBolsaOcasion_ConnectionString")
cn.Open
sqlselect = "SELECT IdOferta, MarcaEqOf, ModEqOf, FechaOf, ImagenOf FROM Ofertas WHERE HacerVisibleOf=true ORDER BY IdOferta DESC"
rs.Open sqlselect, cn
while not rs.EOF
%>
<%if not isnull(rs("ImagenOf")) then%>
&marca=<%=rs("MarcaEqOf")%>&model=<%=rs("ModEqOf")%>',450,550)">
" width="50" border="0">
<%end if%>
|
|
|
<%
rs.MoveNext
wend
%>