'; echo '
Datos Incorrectos o Registro Inexistente.
'; EnviarMailNo($Url,$IP_Mod); } } } else { $F_M = date("Y-m-d H:i:s",time() ); if(getenv(HTTP_X_FORWARDED_FOR)) { $IP_Mod = getenv(HTTP_X_FORWARDED_FOR); } elseif(getenv(HTTP_CLIENT_IP)) { $IP_Mod = getenv(HTTP_CLIENT_IP); } else { $IP_Mod = $REMOTE_ADDR; } // Claves($Pass); $F_M = date("Y-m-d H:i:s",time() ); $cDB = mysql_connect($host,$usuario,$contrasena) or die("No pudo conectarse : " . mysql_error()); $cRs = mysql_select_db($basedatos, $cDB) or die("No pudo seleccionarse la BD."); $sQuery = "update leonline SET Titular='".$Titular."', Url='".$Url."', Coment='".$Coment."', "; $sQuery.= " Pclave='".$Pclave."', Categoria='".$Categoria."', "; $sQuery.= " F_M='".$F_M."', Contacto='".$Contacto."', Correo='".$Correo."', "; $sQuery.= " IP_Mod='".$IP_Mod."', Top='".$Top."', Lista='".$Lista."', Observa='".$Observa."'"; $sQuery.= " where Login='".$ActuLogin."'"; // echo $sQuery; $sQr = mysql_query($sQuery, $cDB) or die("No se pudo realizar la Modificación: " . mysql_error()); // echo '
:'.$sQr.':
'; echo ''; echo '
El registro ' . $Url . ' 

ha sido modificado correctamente. Gracias. 
'; EnviarMail($Url,$IP_Mod); } ?>
Modificación León-line.
Rellene el formulario y pulse enviar.
 Url Url de su Web Site  
 Login Nombre de Usuario (Login)  
 Password Password enviada en el Alta  
             
 Gracias por usar León-line
Modificación León-line. Rellene el formulario y pulse enviar.
 Titular Título de su Web Site  
 Url Url de su Web Site  
 Comentario Explicación del contenio de su Página.  
 Palabras Palabras que el usuario buscará para localizar su dirección.  
 Categoría Categoría de Servicios o Productos de su Página.
 Persona de contacto Persona de contacto en la dirección de correo indicada  
 Dirección de e-mail Dirección electrónica para contactar y poder realizar la baja cuando sea necesario.  
 ¿Desea inscribirse en la Lista de Correo?   Si >   No >
 COMENTARIOS
             
Gracias por utilizar León-line
\n"; $Cabeceras .= "Reply-To: GabineteWeb "; $Para .= "consulte@gabineteweb.com"; // $Para .= ", "; // $Para .= ($Mail); $Asunto = 'Modificación - León-line.'; $Mensaje = '

La dirección: ' . $Url . ', ha sido modificada en León-line desde ' . $IP_Mod . '.

'; mail($Para,$Asunto,$Mensaje,$Cabeceras); } ?> \n"; $Cabeceras .= "Reply-To: GabineteWeb "; $Para .= "consulte@gabineteweb.com"; // $Para .= ", "; // $Para .= ($Mail); $Asunto = 'Modificación BADMAIL - León-line.'; $Mensaje = '

La dirección: ' . $Url . ', NO ha sido modificada en León-line desde ' . $IP_Mod . '.

'; mail($Para,$Asunto,$Mensaje,$Cabeceras); } ?>