<%@ $Language=JScript /* PARA COLORES PHP */ %><% include("../includes/DB_Conectar.php"); include("../includes/inc_auth.php"); include("../includes/funciones.php"); //aca proceso las posibilidades if($id!="" && $accion=="Actualizar") { //actualizo $mailFecEnviar = $mailFecEnviarAnio."-".$mailFecEnviarMes."-".$mailFecEnviarDia; $squpdate = "update Mailer set mailTo='$mailTo',mailFrom='$mailFrom',mailSubject='$mailSubject',mailBody='$mailBody',mailFecReg='$condate',mailFecEnviar='$mailFecEnviar',mailActivo='$mailActivo',mailEnviado='$mailEnviado',mailAutor='$usradID',mtID='$mtID' where mailID = '$id'"; $qrupdate = $conn->execute($squpdate); $msje="Los datos fueron actualizados"; } if($accion=="Guardar") { //aca guardo $mailFecEnviar = $mailFecEnviarAnio."-".$mailFecEnviarMes."-".$mailFecEnviarDia; //este es para que guarde $sqinsert ="insert into Mailer (mailTo,mailFrom,mailSubject,mailBody,mailFecReg,mailFecEnviar,mailActivo,mailAutor,mtID) " ." values ('$mailTo','$mailFrom','$mailSubject','$mailBody','$condate','$mailFecEnviar','$mailActivo','$usradID','$mtID')"; $qrinsert = $conn->execute($sqinsert); $msje="Los datos fueron guardados correctamente"; } /*if($id!="" && $accion=="Borrar") { $squp = "update upcAcciones set accActiva='N' where accID = '$id' and accActiva='S' "; $qrup = $conn->execute($squp); unset($id); }*/ %> <%=$I_administration%> <% include("menu.php"); %>
<%if($msje!=""){%> <%}%>

Edicion de Newsletters

<%=$msje%>
  <% if($id) { $sql = "select * from Mailer where mailID = '$id' "; $rs = $conn->execute($sql); $id = $rs->field(mailID); //los campos $mailFecEnviar1 = substr($rs->field(mailFecEnviar),0,10); $FecEnviarDia = substr($mailFecEnviar1,8,2); $FecEnviarMes = substr($mailFecEnviar1,5,2); $FecEnviarAnio = substr($mailFecEnviar1,0,4); $mailTo1 = $rs->field(mailTo); $mailFrom1 = $rs->field(mailFrom); $mailSubject1 = $rs->field(mailSubject); $mailBody1 = $rs->field(mailBody); $mailActivo1 = $rs->field(mailActivo); $mailEnviado1 = $rs->field(mailEnviado); $mtID1 = $rs->field(mtID); }else{ $mailTo1 = "mail"; $mailFrom1 = "news@aero-vip.com.ar"; $mailSubject1 = "Novedades"; $ejeID = 0; $mailFecEnviar1 = substr($condate,0,10); $FecEnviarDia = substr($mailFecEnviar1,8,2); $FecEnviarMes = substr($mailFecEnviar1,5,2); $FecEnviarAnio = substr($mailFecEnviar1,0,4); } %>
<% $admABMLink=substr($SCRIPT_NAME,strrpos($SCRIPT_NAME,"/")+1); $sql="select B.permTipo from segAdminABM A, segAdminSeguridadABM B where A.admABMID=B.admABMID and A.admABMLink='$admABMLink' and B.usradID='$usradID'"; $rsperm=$conn->execute($sql); if($rsperm->field(permTipo)=="A"){ %> <%}else if($rsperm->field(permTipo)=="C"){%> <%if($mailActivo1){echo "";}else{echo "";}%> <%}%> <% if($id) { %> <% } %>
 
De
 
Asunto
 
Cuerpo del Mensaje             Aplicar Template
<%=$mailBody1%>
 
Fecha de Envío
- -   dd-mm-yyyy
 
Activo
<%if($mailActivo1=='S'){echo $I_yes;}else{echo $I_no;}%>
 
Enviado
 
Tipo de Mail


<%if($id!=""){ %> <%}else{ %> <%}%>