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

<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM links" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%> <%While Not rsConsultaGral.EOF%> <%'INFO%> <%rsConsultaGral.MoveNext Wend %> Links Borrar Links Modificar " onclick="return validar2()"> <%=mid(rsConsultaGral("Texto"),1,50)%>... "> <%End If%> <%If Request.QueryString("var") = "Nuevo" Then%> <%sql="select max(posicion) as maximo from servicios" set rs=conn.execute(sql)%> LInks ESPAÑOL  Texto :  URL : INGLES  Texto :  URL : <%If Request.Form("btnGrabar") = "Grabar" Then insNuevo = " INSERT INTO links (texto,textoing,url,urling) VALUES ('" & Request.Form("texto") & "','" & Request.Form("textoing") & "','" & request("url") & "','" & request("urling") & "')" Response.Write(insNuevo) conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM links WHERE idlink='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM links WHERE idlink='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %> > "> Modificar Links ESPAÑOL  Texto : ">  URL : "> INGLES  Texto : ">  URL : "> <%If Request.Form("btnActualizar") = "Actualizar" Then updActualizar = " UPDATE links SET texto ='" & Request.Form("texto") & "', textoing ='" & Request.Form("textoing") & "', url ='" & Request.Form("url") & "', urling ='" & Request.Form("urling") & "' WHERE idlink ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>

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