<%If Session("Login") = "1" Then%>

<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM viewClientesXRubro" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%> <%While Not rsConsultaGral.EOF%> <%'INFO%> <%rsConsultaGral.MoveNext Wend %> Empresas Por Rubro Borrar Cliente Rubro Modificar " onclick="return validar2()"> <%=rsConsultaGral("Nombre")%> <%=rsConsultaGral("Texto")%> "> <%End If%> <%If Request.QueryString("var") = "Nuevo" Then%> Nuevo Cliente x Rubro  Cliente : <% sqlClientes = "SELECT * FROM Clientes" Set rsClientes = Server.CreateObject("ADODB.Recordset") rsClientes.Open sqlClientes,conn %> <% While Not rsClientes.EOF %> "><%=rsClientes("Nombre")%> <% rsClientes.MoveNext Wend %>  Rubro : <% sqlRubros = "SELECT * FROM SubCategorias WHERE Empresas = 1" Set rsRubros = Server.CreateObject("ADODB.Recordset") rsRubros.Open sqlRubros,conn %> <% While Not rsRubros.EOF %> "><%=rsRubros("Texto")%> <% rsRubros.MoveNext Wend %> <%If Request.Form("btnGrabar") = "Grabar" Then insNuevo = " INSERT INTO EmpresasPorRubro (idCliente,idRubro) VALUES ('" & Request.Form("slcCliente") & "','" & Request.Form("slcRubro") & "')" Response.Write(insNuevo) conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM EmpresasPorRubro WHERE id='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM EmpresasPorRubro WHERE id='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %> > Modificar Cliente x Rubro  Cliente : <% sqlClientes = "SELECT * FROM Clientes" Set rsClientes = Server.CreateObject("ADODB.Recordset") rsClientes.Open sqlClientes,conn %> <% While Not rsClientes.EOF %> " <%If rsModificar("idCliente") = rsClientes("idCliente") Then Response.Write("SELECTED")%>><%=rsClientes("Nombre")%> <% rsClientes.MoveNext Wend %>  Rubro : <% sqlRubros = "SELECT * FROM SubCategorias WHERE Empresas = 1" Set rsRubros = Server.CreateObject("ADODB.Recordset") rsRubros.Open sqlRubros,conn %> <% While Not rsRubros.EOF %> " <%If rsModificar("idRubro") = rsRubros("idSubCategoria") Then Response.Write("SELECTED")%>><%=rsRubros("Texto")%> <% rsRubros.MoveNext Wend %> <%If Request.Form("btnActualizar") = "Actualizar" Then updActualizar = " UPDATE EmpresasPorRubro SET idCliente ='" & Request.Form("slcCliente") & "', idRubro ='" & Request.Form("slcRubro") & "' WHERE id ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>

<% Else Response.Redirect("Login.asp") End If %>