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


<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM oficinas" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%>

<%While Not rsConsultaGral.EOF%> <%'INFO%> <%rsConsultaGral.MoveNext Wend %>
Oficinas
Borrar Titulo Texto Modificar
" onclick="return validar2()"> <%=rsConsultaGral("Titulo")%> <%=mid(rsConsultaGral("Texto"),1,50)%> " >
<%End If%> <%If Request.QueryString("var") = "Nuevo" Then%>


Nueva Oficina
ESPAÑOL
 Titulo :
 Texto :
 E-Mail :
INGLES
 Titulo :
 Texto :
 E-Mail :
<%If Request.Form("btnGrabar") = "Grabar" Then insNuevo = " INSERT INTO oficinas (titulo,texto,email,tituloing,textoing,emailing) VALUES ('" & Request.Form("titulo") & "','" & Request.Form("texto") & "','" & Request.Form("email") & "','" & Request.Form("tituloing") & "','" & Request.Form("textoing") & "','" & Request.Form("emailing") & "')" Response.Write(insNuevo) conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM oficinas WHERE idoficinas='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM oficinas WHERE idoficinas='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %>
>

Modificar Oficina
ESPAÑOL
 Titulo : ">
 Texto :
 E-Mali : ">
INGLES
 Titulo : ">
 Texto :
 E-Mali : ">
<%If Request.Form("btnActualizar") = "Actualizar" Then updActualizar = " UPDATE oficinas SET texto ='" & Request.Form("texto") & "',titulo ='" & Request.Form("titulo") & "',email ='" & Request.Form("email") & "', textoing ='" & Request.Form("textoing") & "',tituloing ='" & Request.Form("tituloing") & "',emailing ='" & Request.Form("emailing") & "' WHERE idoficinas ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>
<% Else Response.Redirect("Login.asp") End If %>