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

<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM Clientes ORDER BY Nombre" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%> <%While Not rsConsultaGral.EOF%> <%'INFO%> <%rsConsultaGral.MoveNext Wend %> Alta Cliente Borrar Cliente Logo URL Modificar " onclick="return validar2()"> <%=rsConsultaGral("nombre")%> <%=rsConsultaGral("logo")%> <%=rsConsultaGral("url")%> " > <%End If%> <%If Request.QueryString("var") = "Nuevo" Then%> Nuevo Cliente ESPAÑOL  cliente : INGLES  Clinete :  Logo : <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\clientes" %> Elegir Imagen <%If Dir.files.Count = 0 Then%> No hay Imagenes para mostrar <%End If%> <% For I = Dir.Files.Count To 1 Step -1 %> <%=Dir.files(I).FileName%> <% Next %>  URL :  Rubro : Seleccione un Rubro <% sqlSubCategorias = "SELECT * FROM SubCategorias WHERE Empresas = 1" Set rsSubCategorias = Server.CreateObject("ADODB.Recordset") rsSubCategorias.Open sqlSubCategorias,conn %> <% While Not rsSubCategorias.EOF %> "><%=rsSubCategorias("Texto")%> <% rsSubCategorias.MoveNext Wend %> <%If Request.Form("btnGrabar") = "Grabar" Then 'insNuevo = " INSERT INTO clientes (logo,nombre,url,NombreIng,idSubCategoria) VALUES ('" & Request.Form("logo") & "','" & Request.Form("nombre") & "','" & Request.Form("url") & "','" & Request.Form("nombreing") & "','" & Request.Form("slcRubro") & "')" insNuevo = " INSERT INTO clientes (logo,nombre,url,NombreIng) VALUES ('" & Request.Form("logo") & "','" & Request.Form("nombre") & "','" & Request.Form("url") & "','" & Request.Form("nombreing") & "')" conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM clientes WHERE idcliente='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM Clientes WHERE idCliente='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %> > Modificar Cliente ESPAÑOL  Cliente : "> INGLES  Cliente : ">  Logo : <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\clientes" %>    Elegir Imagen    <% For I = Dir.Files.Count To 1 Step -1 %> ><%=Dir.files(I).FileName%> <% Next %>  URL : ">  Rubro : No tiene un Rubro Seleccionado <% sqlSubCategoria = "SELECT * FROM SubCategorias WHERE Empresas = 1" Set rsSubCategoria = Server.CreateObject("ADODB.Recordset") rsSubCategoria.Open sqlSubCategoria,conn %> <% While Not rsSubCategoria.EOF %> " <%If rsSubCategoria("idSubCategoria") = rsModificar("idSubCategoria") Then Response.Write("Selected") End If%>><%=rsSubCategoria("Texto")%> <% rsSubCategoria.MoveNext Wend %> <%If Request.Form("btnActualizar") = "Actualizar" Then 'updActualizar = " UPDATE clientes SET Nombre='" & Request.Form("nombre") & "', NombreIng='" & Request.Form("nombreing") & "', Logo ='" & Request.Form("logo") & "', url = '" & Request.Form("url") & "', idSubCategoria = '" & Request.Form("slcSubCategoria") & "' WHERE idcliente ='" & Request.Form("txtId") & "'" updActualizar = " UPDATE clientes SET Nombre='" & Request.Form("nombre") & "', NombreIng='" & Request.Form("nombreing") & "', Logo ='" & Request.Form("logo") & "', url = '" & Request.Form("url") & "' WHERE idcliente ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>

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