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

<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM Partners ORDER BY Nombre" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%> <%While Not rsConsultaGral.EOF%> <%'INFO%> <%rsConsultaGral.MoveNext Wend %> Alta Partners Borrar Partners Logo URL Modificar " onclick="return validar2()"> <%=rsConsultaGral("nombre")%> <%=rsConsultaGral("logo")%> <%=rsConsultaGral("url")%> " > <%End If%> <%If Request.QueryString("var") = "Nuevo" Then%> Nuevo Partners ESPAÑOL  Partners : INGLES  Clinete :  Texto :  Logo : <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\Partners" %> 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 : <%If Request.Form("btnGrabar") = "Grabar" Then insNuevo = " INSERT INTO Partners (texto,logo,nombre,url,NombreIng) VALUES ('" & Request.Form("texto") & "','" & 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 Partners WHERE idPartners='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM Partners WHERE idPartners='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %> > Modificar Partners ESPAÑOL  Partners : "> INGLES  Partners : ">  Texto : ">  Logo : <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\Partners" %>    Elegir Imagen    <% For I = Dir.Files.Count To 1 Step -1 %> ><%=Dir.files(I).FileName%> <% Next %>  URL : "> <%If Request.Form("btnActualizar") = "Actualizar" Then updActualizar = " UPDATE Partners SET Nombre='" & Request.Form("nombre") & "', texto='" & Request.Form("texto") & "', NombreIng='" & Request.Form("nombreing") & "', Logo ='" & Request.Form("logo") & "', url = '" & Request.Form("url") & "' WHERE idPartners ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>

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