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

<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM Qsomos" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%> <%While Not rsConsultaGral.EOF%> <%'INFO%> <%rsConsultaGral.MoveNext Wend %> Quienes Somos Borrar Titulo Texto Posición Modificar " onclick="return validar2()"> <%=rsConsultaGral("Titulo")%> <%=mid(rsConsultaGral("Texto"),1,50)%>... <%=rsConsultaGral("Posicion")%> " > <%End If%> <%If Request.QueryString("var") = "Nuevo" Then%> <%sql="select max(posicion) as maximo from Qsomos" set rs=conn.execute(sql)%> Nuevo texto en la posicion <%=rs("maximo")+1%> ESPAÑOL  Titulo :  Texto : INGLES  Titulo :  Texto :  Posición en la pagina : "> <%If Request.Form("btnGrabar") = "Grabar" Then if request("posicion") = "" then posicion = 0 else posicion = request("posicion") end if insNuevo = " INSERT INTO Qsomos (titulo,texto,posicion,tituloing,textoing) VALUES ('" & Request.Form("titulo") & "','" & Request.Form("texto") & "'," & posicion & ",'" & Request.Form("tituloing") & "','" & Request.Form("textoing") & "')" conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM Qsomos WHERE idQsomos='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM Qsomos WHERE idqsomos='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %> > Modificar Cliente ESPAÑOL  Titulo : ">  Texto : <%=rsModificar("texto")%> INGLES  Titulo : ">  Texto : <%=rsModificar("textoing")%>  Posición en la pagina : "> <%If Request.Form("btnActualizar") = "Actualizar" Then if request("posicion") = "" then posicion = 0 else posicion = request("posicion") end if updActualizar = " UPDATE Qsomos SET titulo='" & Request.Form("titulo") & "', texto ='" & Request.Form("texto") & "', posicion = " & posicion & " ,tituloing='" & Request.Form("tituloing") & "', textoing ='" & Request.Form("textoing") & "' WHERE idQsomos ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>

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