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

<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM eventos 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 %> Nuevo Evento Borrar Titulo Fecha Duración Modificar " onclick="return validar2()"> <%=rsConsultaGral("Titulo")%> <%=day(rsConsultaGral("fecha"))%>/<%=month(rsConsultaGral("fecha"))%>/<%=year(rsConsultaGral("fecha"))%> <%=rsConsultaGral("Duracion")%> " > " onclick="return validar2()"> <%=rsConsultaGral("Titulo")%> <%=day(rsConsultaGral("fecha"))%>/<%=month(rsConsultaGral("fecha"))%>/<%=year(rsConsultaGral("fecha"))%> <%=rsConsultaGral("Duracion")%> " > <%End If%> <%If Request.QueryString("var") = "Nuevo" Then%> Nuevo Evento ESPAÑOL  Titulo :  Ciudad :  Pais :  Duración :  Texto :  Resultados : INGLES  Titulo :  Ciudad :  Pais :  Duración :  Texto :  Resultados :  Fecha :(dd/mm/aaaaa)  Participantes :  Clientes :  Logo : <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\eventos" %> 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 fecha = month(Request.Form("fecha"))&"/"&day(Request.Form("fecha"))&"/"&year(Request.Form("fecha")) If Request.Form("home") = "on" Then box = 1 sql="update eventos set home = 0" conn.execute(sql) Else box = 0 End If insNuevo = " INSERT INTO eventos (Titulo,pais,ciudad,fecha,duracion,objetivo,participantes,clientes,resultados,home,logo,tituloing,ciudading,paising,duracioning,objetivoing,resultadosing) VALUES ('" & Request.Form("titulo") & "','" & Request.Form("pais") & "' ,'" & Request.Form("ciudad") & "' , '" & fecha & "' ,'" & Request.Form("duracion") & "','" & Request.Form("objetivo") & "','" & Request.Form("participantes") & "','" & Request.Form("Clientes") & "','" & Request.Form("resultados") & "',"&box&",'" & Request.Form("logo") & "','" & Request.Form("tituloing") & "','" & Request.Form("ciudading") & "','" & Request.Form("paising") & "','" & Request.Form("duracioning") & "','" & Request.Form("objetivoing") & "','" & Request.Form("resultadosing") & "')" conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM eventos WHERE idevento='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM eventos WHERE idevento='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %> > Modificar Evento ESPAÑOL  Titulo : ">  Pais : ">  Ciudad : ">  Duración : ">  Texto : <%=rsModificar("Objetivo")%>  Resultados : <%=rsModificar("resultados")%> INGLES  Titulo : ">  Pais : ">  Ciudad : ">  Duración : ">  Texto : <%=rsModificar("Objetivoing")%>  Resultados : <%=rsModificar("resultadosing")%>  Fecha : (dd/mm/aaaaa) /<%=month(rsModificar("Fecha"))%>/<%=year(rsModificar("Fecha"))%>">  Participantes : ">  Clientes : ">  Logo : <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\eventos" %>    Elegir Imagen    <% For I = Dir.Files.Count To 1 Step -1 %> ><%=Dir.files(I).FileName%> <% Next %> > Home <%If Request.Form("btnActualizar") = "Actualizar" Then fecha = month(Request.Form("fecha"))&"/"&day(Request.Form("fecha"))&"/"&year(Request.Form("fecha")) If Request.Form("home") = "on" Then box = 1 sql="update eventos set home = 0" conn.execute(sql) Else box = 0 End If updActualizar = " UPDATE eventos SET Titulo='" & Request.Form("titulo") & "', pais ='" & Request.Form("pais") & "', ciudad ='" & Request.Form("ciudad") & "', fecha = '" & fecha & "', duracion = '" & Request.Form("duracion") & "', objetivo = '" & Request.Form("objetivos") & "', participantes = '" & Request.Form("participantes") & "', Clientes = '" & Request.Form("Clientes") & "', resultados = '" & Request.Form("resultados") & "', Logo = '" & Request.Form("logo") & "', home = " & box & ", Tituloing='" & Request.Form("tituloing") & "', paising ='" & Request.Form("paising") & "', ciudading ='" & Request.Form("ciudading") & "', duracioning = '" & Request.Form("duracioning") & "', objetivoing = '" & Request.Form("objetivosing") & "', resultadosing = '" & Request.Form("resultadosing") & "' WHERE idevento ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>

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