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

<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM SubCategorias" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%> <%While Not rsConsultaGral.EOF%> <%'INFO%> <%rsConsultaGral.MoveNext Wend %> Sub Categorias Borrar Texto Modificar " onclick="return validar2()"> <%=mid(rsConsultaGral("Texto"),1,50)%>... "> <%End If%> <%If Request.QueryString("var") = "Nuevo" Then%> Nueva SubCategoria ESPAÑOL  Texto : INGLES  Texto :  Servicio : <% sqlServicios = "SELECT * FROM Servicios WHERE SubCategorias = 1" Set rsServicios = Server.CreateObject("ADODB.Recordset") rsServicios.Open sqlServicios,conn %> <% While Not rsServicios.EOF %> "><%=rsServicios("Titulo")%> <% rsServicios.MoveNext Wend %>  Empresas ? : <%If Request.Form("btnGrabar") = "Grabar" Then If Request.Form("empresas") = "on" Then Empresa = 1 Else Empresa = 0 End If insNuevo = " INSERT INTO SubCategorias (idServicios,texto,textoING,empresas) VALUES ('" & Request.Form("slcServicios") & "','" & Request.Form("texto") & "','" & Request.Form("textoING") & "','" & Empresa & "')" Response.Write(insNuevo) conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM SubCategorias WHERE idSubCategoria='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM SubCategorias WHERE idSubCategoria='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %> > Modificar SubCategorias ESPAÑOL  Texto : <%=rsModificar("texto")%> INGLES  Texto : <%=rsModificar("textoing")%>  Servicio : No tiene una SubCategoria Seleccionada <% sqlServicios = "SELECT * FROM Servicios WHERE SubCategorias = 1" Set rsServicios = Server.CreateObject("ADODB.Recordset") rsServicios.Open sqlServicios,conn %> <% While Not rsServicios.EOF %> " <%If rsServicios("idServicios") = rsModificar("idServicios") Then Response.Write("Selected") End If%>><%=rsServicios("Titulo")%> <% rsServicios.MoveNext Wend %>  Empresas ? : > <%If Request.Form("btnActualizar") = "Actualizar" Then If Request.Form("Empresa") = "on" Then Empresa = 1 Else Empresa = 0 End If updActualizar = " UPDATE SubCategorias SET texto ='" & Request.Form("texto") & "', idServicios ='" & Request.Form("slcServicios") & "', textoING ='" & Request.Form("textoING") & "', Empresas = " & Empresa & " WHERE idSubCategoria ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>

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