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

<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM Misiones order by home desc" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%> <%cont = 0 While Not rsConsultaGral.EOF%> <%'INFO%> <%if cont = 0 then%> <%cont=1 else%> <%end if%> <%rsConsultaGral.MoveNext Wend %> Nueva Mision Borrar Titulo Ciudad Pais Fecha Desde Fecha Hasta Modificar " onclick="return validar2()"> <%=rsConsultaGral("Titulo")%> <%=rsConsultaGral("Ciudad")%> <%=rsConsultaGral("Pais")%> <%=day(rsConsultaGral("Desde"))%>/<%=month(rsConsultaGral("Desde"))%>/<%=year(rsConsultaGral("Desde"))%> <%=day(rsConsultaGral("Hasta"))%>/<%=month(rsConsultaGral("Hasta"))%>/<%=year(rsConsultaGral("Hasta"))%> "> " onclick="return validar2()"> <%=rsConsultaGral("Titulo")%> <%=rsConsultaGral("Ciudad")%> <%=rsConsultaGral("Pais")%> <%=day(rsConsultaGral("Desde"))%>/<%=month(rsConsultaGral("Desde"))%>/<%=year(rsConsultaGral("Desde"))%> <%=day(rsConsultaGral("Hasta"))%>/<%=month(rsConsultaGral("Hasta"))%>/<%=year(rsConsultaGral("Hasta"))%> " > <%End If%> <%If Request.QueryString("var") = "Nuevo" Then%> Nueva Mision ESPAÑOL  Titulo : <%=request("Titulo")%>  Texto : <%=request("Gacetilla")%>  Ciudad : ">  Pais : ">  Duracion : ">  Objetivo : <%=request("objetivo")%>  Participantes : <%=request("participantes")%>  Resultados : <%=request("Resultados")%> INGLES  Titulo : <%=request("Tituloing")%>  Texto : <%=request("Gacetillaing")%>  Ciudad : ">  Pais : ">  Duracion : ">  Objetivo : <%=request("objetivoing")%>  Participantes : <%=request("participantesing")%>  Resultados : <%=request("resultadosing")%>  Fecha Desde :(dd/mm/aaaa) ">  Fecha Hasta :(dd/mm/aaaa) ">  Empresa : ">  Clientes : ">  Logo Misión: <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\Misiones" %> 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 %> > Home <%If Request.Form("btnGrabar") = "Grabar" Then Desde = month(Request.Form("Desde"))&"/"&day(Request.Form("Desde"))&"/"&year(Request.Form("Desde")) Hasta = month(Request.Form("Hasta"))&"/"&day(Request.Form("Hasta"))&"/"&year(Request.Form("Hasta")) If Request.Form("home") = "on" Then box = 1 sql="update misiones set home = 0" conn.execute(sql) Else box = 0 End If insNuevo = " INSERT INTO Misiones (Titulo,Logo,Gacetilla,Ciudad,Pais,Desde,Hasta,Duracion,Objetivo,Participantes,Empresa,Clientes,Resultados,Home,Tituloing,Gacetillaing,Ciudading,Paising,Duracioning,Objetivoing,Participantesing,Resultadosing) VALUES ('" & Request.Form("Titulo") & "','" & Request.Form("Logo") & "' ,'" & Request.Form("Gacetilla") & "','" & Request.Form("Ciudad") & "','" & Request.Form("pais") & "','" & Desde & "', '" & Hasta & "' ,'" & Request.Form("Duracion") & "','" & Request.Form("Objetivo") & "','" & Request.Form("Participantes") & "','" & Request.Form("Empresa") & "','" & Request.Form("Clientes") & "','" & Request.Form("Resultados") & "',"&box&",'" & Request.Form("Tituloing") & "','" & Request.Form("Gacetillaing") & "','" & Request.Form("Ciudading") & "','" & Request.Form("paising") & "','" & Request.Form("Duracioning") & "','" & Request.Form("Objetivoing") & "','" & Request.Form("Participantesing") & "','" & Request.Form("Resultadosing") & "')" conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM Misiones WHERE idMision='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM Misiones WHERE idMision='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %> > Modificar Mision ESPAÑOL  Titulo : <%=rsModificar("Titulo")%>  Texto : <%=rsModificar("Gacetilla")%>  Ciudad : ">  Pais : ">  Duracion : ">  Objetivo : <%=rsModificar("Objetivo")%>  Participantes : <%=rsModificar("Participantes")%>  Resultados : <%=rsModificar("Resultados")%> INGLES  Titulo : <%=rsModificar("Tituloing")%>  Texto : <%=rsModificar("Gacetillaing")%>  Ciudad : ">  Pais : ">  Duracion : ">  Objetivo : <%=rsModificar("Objetivoing")%>  Participantes : <%=rsModificar("Participantesing")%>  Resultados : <%=rsModificar("Resultadosing")%>  Desde : (dd/mm/aaaa) /<%=month(rsModificar("Desde"))%>/<%=year(rsModificar("Desde"))%>">  Hasta : (dd/mm/aaaa) /<%=month(rsModificar("Hasta"))%>/<%=year(rsModificar("Hasta"))%>">  Empresa Sponsor: ">  Clientes : ">  Logo : <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\Misiones" %>    Elegir Imagen    <% For I = Dir.Files.Count To 1 Step -1 %> ><%=Dir.files(I).FileName%> <% Next %> > Home <%If Request.Form("btnActualizar") = "Actualizar" Then Desde = month(Request.Form("Desde"))&"/"&day(Request.Form("Desde"))&"/"&year(Request.Form("Desde")) Hasta = month(Request.Form("Hasta"))&"/"&day(Request.Form("Hasta"))&"/"&year(Request.Form("Hasta")) If Request.Form("home") = "on" Then box = 1 sql="update misiones set home = 0" conn.execute(sql) Else box = 0 End If updActualizar = " UPDATE Misiones SET Titulo='" & Request.Form("Titulo") & "',Logo ='" & Request.Form("Logo") & "',Gacetilla ='" & Request.Form("Gacetilla") & "', Ciudad ='" & Request.Form("Ciudad") & "', Desde = '" & Desde & "',Hasta = '" & Hasta & "', Duracion = '" & Request.Form("Duracion") & "', Objetivo = '" & Request.Form("Objetivo") & "', Participantes = '" & Request.Form("Participantes") & "', Empresa = '" & Request.Form("Empresa") & "', Clientes = '" & Request.Form("Clientes") & "', Resultados = '" & Request.Form("Resultados") & "', pais = '" & Request.Form("pais") & "',Tituloing='" & Request.Form("Tituloing") & "',Gacetillaing ='" & Request.Form("Gacetillaing") & "', Ciudading ='" & Request.Form("Ciudading") & "', Duracioning = '" & Request.Form("Duracioning") & "', Objetivoing = '" & Request.Form("Objetivoing") & "', Participantesing = '" & Request.Form("Participantesing") & "', Resultadosing = '" & Request.Form("Resultadosing") & "', paising = '" & Request.Form("paising") & "', home = " & box & " WHERE idMision ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>

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