<%@ Language=VBScript %> <% Option Explicit dim conexion,registros,sql,id_var,mes,texto2_var,i,largo,caracter,status_var,registros2,aliniacion_var set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") set registros2 = Server.CreateObject ("ADODB.RECORDSET") %> Click para imprimir

 
Directorio <%sql="Select * from ciec_directorio where (objetivo LIKE '%"&trim(request("texto"))&"%' or empresa LIKE '%"&trim(request("texto"))&"%' or contacto LIKE '%"&trim(request("texto"))&"%' or direccion LIKE '%"&trim(request("texto"))&"%' or email LIKE '%"&trim(request("texto"))&"%' or web LIKE '%"&trim(request("texto"))&"%' or sector LIKE '%"&trim(request("texto"))&"%' or area LIKE '%"&trim(request("texto"))&"%' or telefono LIKE '%"&trim(request("texto"))&"%' or catalogo LIKE '%"&trim(request("texto"))&"%') and camaras='1' order by status, empresa" registros.open sql,conexion,1%>
 
<%if not registros.eof and not registros.bof then%>
<%status_var= registros("status") Select case status_var Case "1"%>
<%sql="Select actividad from ciec_actividad where id='"®istros("ID_actividad")&"'" registros2.open sql,conexion,1%> <%registros2.close%> <% End If %>
<%If registros("logo")<>"" then aliniacion_var=" align='center'"%> <% End If %>

">

<%=registros("empresa")%>

Actividad:  
<%=registros2("actividad")%> - <%=registros("objetivo")%>
<% Case "2" %>

<%sql="Select actividad from ciec_actividad where id='"®istros("ID_actividad")&"'" registros2.open sql,conexion,1%> <%registros2.close%> <% End If %>
<% If registros("logo")<>"" then aliniacion_var=" align='center'" %> <% End If %>

" align="left">

<%=registros("empresa")%>

Actividad  
<%=registros2("actividad")%> - <%=registros("objetivo")%>
<%Case else%> <%If trim(registros("actividad"))<>"" then %> <%End If %>

<%=registros("empresa")%>

Actividad: <%=registros("actividad")%>
<%End Select%>

<%else%> <%end if%>
 
 

Tomado de www.ciec.org.ve - Si desea mas información escribanos a info@ciec.org.ve

<%registros.close set registros = Nothing conexion.close set conexion = Nothing%>