<%@ Language=VBScript %> <% op1 = request("emp") 'op1 = 294 Set DataConn = Server.CreateObject("ADODB.Connection") Set Ob_Command = Server.CreateObject("ADODB.Command") DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") Ob_Command.ActiveConnection = DataConn Ob_Command.CommandType = adCmdText Sql = " SELECT * FROM Empresas WHERE IdEmpresa = " & op1 Set Datosemp = Server.CreateObject ("ADODB.RecordSet") Ob_Command.CommandText = Sql Datosemp.Open Ob_Command, , 2 , 3 %> <% Sql = "SELECT grupos.IdGrupo, grupos.DescGrupo FROM Generador, Grupos" Sql = Sql & " WHERE Generador.IDEmpresa = " & op1 Sql = Sql & " AND Grupos.IdGrupo = Generador.idGrupo " Sql = Sql & " GROUP BY grupos.IdGrupo, grupos.DescGrupo ORDER BY grupos.IdGrupo" Set Ob_emp = Server.CreateObject("ADODB.RecordSet") Ob_Command.CommandText = Sql Ob_emp.Open Ob_Command, , 2 , 3 'Consulta para mostrar las categorias Sql = "SELECT Generador.IDEmpresa, Categoria.IdGrupo, Categoria.DescCategoria, Generador.idGrupo, Categoria.IdCategoria, Generador.IdCategoria FROM Generador, Categoria" Sql = Sql & " WHERE Generador.IDEmpresa = " & op1 Sql = Sql & " AND Categoria.IdGrupo = Generador.idGrupo AND Categoria.IdCategoria = Generador.IdCategoria " Sql = Sql & " GROUP BY Generador.IDEmpresa, Categoria.IdGrupo, Categoria.DescCategoria, Generador.idGrupo, Categoria.IdCategoria, Generador.IdCategoria ORDER BY Categoria.IdGrupo" Set Ob_Cate = Server.CreateObject("ADODB.RecordSet") Ob_Command.CommandText = Sql Ob_Cate.Open Ob_Command, , 2 , 3 'Consulta para mostrar las especialidades Sql = "SELECT Generador.IDEmpresa, Especialidad.DescEspecialidad, Generador.IdGrupo, Especialidad.IdEspecialidad, Especialidad.IdCategoria FROM Especialidad, Generador " Sql = Sql & " WHERE Generador.IDEmpresa = " & op1 Sql = Sql & " AND Generador.IDEspecialidad = Especialidad.IDEspecialidad GROUP BY Generador.IDEmpresa, Especialidad.DescEspecialidad, Generador.IdGrupo, Especialidad.IdEspecialidad, Especialidad.IdCategoria ORDER BY Especialidad.IdCategoria, Especialidad.DescEspecialidad" Set Ob_Especia = Server.CreateObject("ADODB.RecordSet") Ob_Command.CommandText = Sql Ob_Especia.Open Ob_Command, , 2 , 3 %>
<%= Datosemp("RazonSocial")%>
Telf: <%=datosemp("telefonos")%>, Fax: <%=datosemp("fax")%>
<%=datosemp("Domicilio")%>
<%=datosemp("cp")%>,
<%= Datosemp("Poblacion")%> <%= Datosemp("Provincia")%> <%= Datosemp("Pais")%> 
" target=_blank><%= Datosemp("web")%>
"><%= Datosemp("Email")%>

<%Do WHILE NOT Ob_emp.EOF %> <%= Ob_emp("DescGrupo")%>
<%DO WHILE not Ob_Cate.eof%> <%if Ob_Cate(1) = Ob_emp(0) then%>
  • <%= Ob_Cate("DescCategoria")%>

  • <%DO WHILE not Ob_Especia.eof%> <%if Ob_cate("IdCategoria") = Ob_Especia("Idcategoria") and Ob_emp("Idgrupo")= Ob_Especia("Idgrupo") then%>    -    <%=Ob_Especia("DescEspecialidad")%>
    <%end if%> <%Ob_Especia.movenext%> <%loop%> <%'if not Especia.eof then%> <%if Ob_Especia.eof <> Ob_especia.bof then%> <%Ob_Especia.Movefirst%> <%end if%>
    <%Ob_Cate.MoveNext%> <%else Ob_Cate.MoveNext end if loop Ob_Cate.MoveFirst%>
    <%Ob_emp.MoveNext%>

    <%loop Ob_emp.MoveFirst%>