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

<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM Staff ORDER BY Nombre" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%> <%While Not rsConsultaGral.EOF%> <%'INFO%> <%rsConsultaGral.MoveNext Wend %> Incorporar persona al Staff Borrar Nombre Cargo E-mail Modificar " onclick="return validar2()"> <%=rsConsultaGral("nombre")%> <%=rsConsultaGral("Cargo")%> <%=rsConsultaGral("email")%> " > <%End If%> <%If Request.QueryString("var") = "Nuevo" Then%> Nuevo persona del Staff  Nombre : ESPAÑOL  Cargo :  Descripción : INGLES  Cargo :  Descripción :  E-mail :  Foto : <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\Staff" %> 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 %> <%If Request.Form("btnGrabar") = "Grabar" Then insNuevo = " INSERT INTO Staff (nombre,Cargo,texto,email,foto,cargoing,textoing) VALUES ('" & Request.Form("nombre") & "','" & Request.Form("cargo") & "','" & Request.Form("texto") & "','" & Request.Form("email") & "','" & Request.Form("foto") & "','" & Request.Form("cargoing") & "','" & Request.Form("textoing") & "')" conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM Staff WHERE idstaff='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM staff WHERE idstaff='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %> > Modificar  Nombre : "> ESPAÑOL  Cargo : ">  Descripción : <%=rsModificar("texto")%> INGLES  Cargo : ">  Descripción : <%=rsModificar("textoing")%>  E-mail : ">  Foto : <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\Staff" %>    Elegir Imagen    <% For I = Dir.Files.Count To 1 Step -1 %> ><%=Dir.files(I).FileName%> <% Next %> <%If Request.Form("btnActualizar") = "Actualizar" Then updActualizar = " UPDATE Staff SET Nombre='" & Request.Form("nombre") & "', cargo ='" & Request.Form("cargo") & "', texto = '" & Request.Form("texto") & "', email = '" & Request.Form("email") & "', foto = '" & Request.Form("foto") & "', cargoing = '" & Request.Form("cargoing") & "', textoing = '" & Request.Form("textoing") & "' WHERE idstaff ='" & Request.Form("txtId") & "'" 'Response.Write(updactualizar) conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>

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