<%@ 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 dim numero, NumeroBanner, banner randomize numero=3 NumeroBanner=int((rnd*numero)+1) Select case NumeroBanner case 1 banner="recicla_bp_hidrolab.swf" case 2 banner="recicla_bp_diana.swf" case 3 banner="recicla_bp_filtrona.swf" End select %> RECICLA - directorio

 

<%If request("texto")<>"" then dim texto_var, total_var, status_var dim aliniacion_var texto_var=request("texto") sql="Select count(*) as total from recicla_vista_directorio where actividad LIKE '%"&trim(texto_var)&"%' or empresa LIKE '%"&trim(texto_var)&"%' or direccion LIKE '%"&trim(texto_var)&"%' or email LIKE '%"&trim(texto_var)&"%' or web LIKE '%"&trim(texto_var)&"%' or sector LIKE '%"&trim(texto_var)&"%' or telefono LIKE '%"&trim(texto_var)&"%' or catalogo LIKE '%"&trim(texto_var)&"%'" registros.open sql,conexion,1 total_var=0 total_var=cint(registros("total")) registros.Close() sql="Select * from recicla_vista_directorio where actividad LIKE '%"&trim(texto_var)&"%' or empresa LIKE '%"&trim(texto_var)&"%' or direccion LIKE '%"&trim(texto_var)&"%' or email LIKE '%"&trim(texto_var)&"%' or web LIKE '%"&trim(texto_var)&"%' or sector LIKE '%"&trim(texto_var)&"%' or telefono LIKE '%"&trim(texto_var)&"%' or catalogo LIKE '%"&trim(texto_var)&"%' ORDER BY status, empresa" registros.open sql,conexion,1%> <%else%>

Por orden alfabético:

A B  C D  E F  G H  I J  K L  M N  O P  Q R  S T  U V  W X  Y Z
 


Publicidad

<%end if%>