<%@ 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
<%dim texto_var,total_var
texto_var=request("texto_txt")
if request("texto_txt")<>"" then
sql = "Select count(*) as total from recicla_afiliado where (empresa LIKE '%"&trim(texto_var)&"%' or grupo LIKE '%"&trim(texto_var)&"%' or codigo LIKE '%"&trim(texto_var)&"%' or densidad LIKE '%"&trim(texto_var)&"%' or volumen LIKE '%"&trim(texto_var)&"%' or caracteristicas LIKE '%"&trim(texto_var)&"%' or peligrosidad LIKE '%"&trim(texto_var)&"%') and activo=1"
registros.open sql,conexion,1
total_var=0
total_var=cint(registros("total"))
registros.close
sql = "select * from recicla_afiliado where (empresa LIKE '%"&trim(texto_var)&"%' or grupo LIKE '%"&trim(texto_var)&"%' or codigo LIKE '%"&trim(texto_var)&"%' or densidad LIKE '%"&trim(texto_var)&"%' or volumen LIKE '%"&trim(texto_var)&"%' or caracteristicas LIKE '%"&trim(texto_var)&"%' or peligrosidad LIKE '%"&trim(texto_var)&"%') and activo=1 order by fecha desc, hora desc"
registros.open sql,conexion,1%>
<%registros.movenext
loop
registros.close
dim total_var2
sql = "Select count(*) as total from recicla_directorio where (empresa LIKE '%"&trim(texto_var)&"%' or direccion LIKE '%"&trim(texto_var)&"%' or telefono LIKE '%"&trim(texto_var)&"%' or objetivo LIKE '%"&trim(texto_var)&"%')"
registros.open sql,conexion,1
total_var2=0
total_var2=cint(registros("total"))
registros.close
sql = "select * from recicla_directorio where (empresa LIKE '%"&trim(texto_var)&"%' or direccion LIKE '%"&trim(texto_var)&"%' or telefono LIKE '%"&trim(texto_var)&"%' or objetivo LIKE '%"&trim(texto_var)&"%') order by empresa"
registros.open sql,conexion,1
do while not registros.eof%>
<%registros.movenext
loop
registros.close
dim total_var16
dim total_carpetas,i,num,m
dim cadena_final,posicion,vocal
dim indice_arreglo,indice_arreglo_2
dim cadena1,fso,f,fc,f1,a,tipo_archivo
dim b,archivo2,controlador,archivo
dim bandera,controlador2,archivof
dim fecha_archivo,fecha_archivo_var
dim cddd,lll,j,total1,vinculo_tex
dim dir_tex,fecha_actual,fecha_pag
dim arreglo_carpetas()
sql="select count(*) as numeros from recicla_carpetas"
registros.Open sql,conexion
if not registros.EOF and not registros.BOF then
total_carpetas=registros("numeros")
redim arreglo_carpetas(total_carpetas)
i=1
registros.Close
sql="select * from recicla_carpetas"
registros.Open sql,conexion
do while not registros.EOF
arreglo_carpetas(i)=registros("nombre")
i=i+1
registros.MoveNext
loop
end if
registros.Close
num=len(texto_var)
dim vocales
vocales=1
dim caracter
redim permutado(1)
permutado(1)=texto_var
dim arreglo()
redim arreglo(1000)
dim arreglo_vinculos()
redim arreglo_vinculos(1000,5)
indice_arreglo=1
indice_arreglo=cint(indice_arreglo)
indice_arreglo_2=1
dim titulo_var
dim resumen_var
cadena1=server.mappath("/recicla/")
Set fso = server.CreateObject("Scripting.FileSystemObject")
Set f = fso.getfolder (cadena1)
Set fc = f.files
for i=1 to 1000
arreglo(i)=""
next
indice_arreglo=1
For Each f1 in fc
a=f1.name
tipo_archivo="htm"
b=instr(1,a,tipo_archivo,1)
if b >= 1 then
arreglo(indice_arreglo)=a
indice_arreglo=indice_arreglo+1
end if
tipo_archivo="asp"
b=instr(1,a,tipo_archivo,1)
if b >= 1 then
arreglo(indice_arreglo)=a
indice_arreglo=indice_arreglo+1
end if
Next
for i=1 to indice_arreglo-1
archivo2=""
archivo2=server.mappath("/recicla/")+"\"+ cstr(arreglo(i))
set controlador = server.CreateObject ("Scripting.FileSystemObject")
set archivo = controlador.OpenTextFile(archivo2,1,0)
bandera=false
set controlador2 = server.CreateObject ("Scripting.FileSystemObject")
set archivof = controlador2.GetFile (archivo2)
fecha_archivo = archivof.datecreated
fecha_archivo_var = cstr(fecha_archivo)
cddd=""
do while not archivo.AtEndOfStream and not bandera
a=archivo.readline
lll=len(a)-36
if ucase(left(a,34)) = "
