<%
set Conn=Server.CreateObject("ADODB.Connection")
set RSList=CreateObject("ADODB.Recordset")
Conn.Open "dsn=Turismo;uid=Gestor;pwd=;"
RSList.Open "Select * from Directorio where perfil='Asociaciones sociales';", Conn, 2,3
if not Rslist.Eof then
%>
<%
end if
Rslist.Close
%>
<%
RSList.Open "Select * from Directorio where perfil='Asociaciones profesionales';", Conn, 2,3
if not Rslist.Eof then
%>
<%
end if
Rslist.Close
%>
<%
RSList.Open "Select * from Directorio where perfil='Instituciones académicas';", Conn, 2,3
if not Rslist.Eof then
%>
<%
end if
Rslist.Close
%>
<%
RSList.Open "Select * from Directorio where perfil='Instituciones oficiales';", Conn, 2,3
if not Rslist.Eof then
%>
<%
end if
Rslist.Close
%>
<%
RSList.Open "Select * from Directorio where perfil='Medios de comunicación';", Conn, 2,3
if not Rslist.Eof then
%>
<%
end if
Rslist.Close
%>
|
