<%@ Language=VBScript %>
<%
Option Explicit
dim conexion, registros
dim sql
set conexion = Server.CreateObject ("ADODB.connection")
%><%
conexion.CursorLocation = 3
conexion.open
set registros = Server.CreateObject ("ADODB.RECORDSET")
registros.CursorLocation = 2
registros.CursorType = 2
registros.LockType = 3
%>
Bolsa de Residuos en la Web
Materiales Peligrosos Recuperables y Residuos Ofertados
Descripción
Cantidad
Características:
<%sql="select * from recicla_afiliado where tipo=1 and activo=1 order by id desc"
registros.Open sql,conexion,1
if not registros.bof and not registros.eof then
do while not registros.eof%>