%@ 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"%>
<%If registros("logo")<>"" then
aliniacion_var=" align='center'"%>
|
">
|
<%
End If
%>
|
<%=registros("empresa")%>
|
|
|
<%sql="Select actividad from ciec_actividad where id='"®istros("ID_actividad")&"'"
registros2.open sql,conexion,1%>
|
|
| <%=registros2("actividad")%> - <%=registros("objetivo")%>
|
<%registros2.close%>
<%
End If
%>
|
<%
Case "2"
%>
<%
If registros("logo")<>"" then
aliniacion_var=" align='center'"
%>
|
" align="left">
|
<%
End If
%>
|
<%=registros("empresa")%>
|
|
|
|
|
<%sql="Select actividad from ciec_actividad where id='"®istros("ID_actividad")&"'"
registros2.open sql,conexion,1%>
| <%=registros2("actividad")%> - <%=registros("objetivo")%>
|
<%registros2.close%>
<%
End If
%>
|
<%Case else%>
|
|
<%=registros("empresa")%>
|
<%If trim(registros("actividad"))<>"" then %>
|
Actividad:
<%=registros("actividad")%>
|
<%End If %>
<%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%>