|
<%
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.ConnectionString = Application("oConBolsaOcasion_ConnectionString")
cn.Open
sqlselect = "SELECT IdDemanda, MarcaEqDe, ModEqDe, FechaDe FROM Demandas WHERE HacerVisibleDe=true ORDER BY IdDemanda DESC"
rs.Open sqlselect, cn
while not rs.EOF
%>
|
|
<%
rs.MoveNext
wend
%>