Mandar Postales.-

[URSU]

hola
Estoy queriendo hacer una pequeña aplicacion que me mande postales animadas, el inconveniente que tngo en que no se como genero el htm o sea el link quele voya apasar al destinatario.-
Gracias a todos

[elunicoNEO]

en http://www.webservicio.com se ofrece este servicio o en http://www.cgispy.com pero este ultimo esta en ingles
http://www.postaleslatinas.com/formulario.htm
o este ultimo pero no te da opcion a escoger o subir tus imagenes.

[KRYZTO]

Este es un codigo en php

Código:

<?PHp
global $postal, $musica, $texto, $fondo, $nombreremite, $emailremite, $nombredestino, $emaildestino, $mensaje, $tipo, $tamano, $stamp;

      if (empty ($nombredestino))

           die("<h1>No se especifico un Nombre de Destino</h1>\n $fin");

      if (empty ($emaildestino))

           die("<h1>No se especifico su dirección de E-mail enviar</h1>\n $fin");

      if ((!ereg(".+\@.+\..+", $emaildestino)) || (!ereg("^[[email protected]]+$", $emaildestino)))

           die ("<h1>No es una dirección de e-mail de destino valida</h1>\n");

      if (empty ($nombreremite))

           die("<h1>No se especifico un Nombre del Remitente</h1>\n $fin");

      if (empty ($emailremite))

           die("<h1>No se especifico un E-mail del Remitente</h1>\n $fin");

      if ((!ereg(".+\@.+\..+", $emailremite)) || (!ereg("^[[email protected]]+$", $emailremite)))

           die ("<h1>No es una dirección de e-mail de remitente valida</h1>\n $fin");



// Inician variables para los dias.



    $dia  = date("j");

    $mes  = date("m");

    $anio = date("Y");

    $dia0 = mktime(0,0,0,$mes,$dia,$anio);

    $dia1 = mktime(0,0,0,$mes,$dia,$anio) + 86400;

    $dia2 = mktime(0,0,0,$mes,$dia,$anio) + 172800;

    $dia3 = mktime(0,0,0,$mes,$dia,$anio) + 259200;

    $dia4 = mktime(0,0,0,$mes,$dia,$anio) + 345600;

    $dia5 = mktime(0,0,0,$mes,$dia,$anio) + 432000;

    $dia6 = mktime(0,0,0,$mes,$dia,$anio) + 518400;

    $dia7 = mktime(0,0,0,$mes,$dia,$anio) + 604800;

    $dia8 = mktime(0,0,0,$mes,$dia,$anio) + 691200;

    $dia9 = mktime(0,0,0,$mes,$dia,$anio) + 777600;

    $dia10 = mktime(0,0,0,$mes,$dia,$anio) + 864000;

    $dia11 = mktime(0,0,0,$mes,$dia,$anio) + 950400;

    $dia12 = mktime(0,0,0,$mes,$dia,$anio) + 1036800;

    $dia13 = mktime(0,0,0,$mes,$dia,$anio) + 1123200;

    $dia14 = mktime(0,0,0,$mes,$dia,$anio) + 1209600;
Continua>>  

[KRYZTO]

$fecha15 = getdate($dia15);

$impr0 = $fecha0["mday"] . " - " . $fecha0["mon"] . " - " . $fecha0["year"];

$impr1 = $fecha1["mday"] . " - " . $fecha1["mon"] . " - " . $fecha1["year"];

$impr2 = $fecha2["mday"] . " - " . $fecha2["mon"] . " - " . $fecha2["year"];

$impr3 = $fecha3["mday"] . " - " . $fecha3["mon"] . " - " . $fecha3["year"];

$impr4 = $fecha4["mday"] . " - " . $fecha4["mon"] . " - " . $fecha4["year"];

$impr5 = $fecha5["mday"] . " - " . $fecha5["mon"] . " - " . $fecha5["year"];

$impr6 = $fecha6["mday"] . " - " . $fecha6["mon"] . " - " . $fecha6["year"];

$impr7 = $fecha7["mday"] . " - " . $fecha7["mon"] . " - " . $fecha7["year"];

$impr8 = $fecha8["mday"] . " - " . $fecha8["mon"] . " - " . $fecha8["year"];

$impr9 = $fecha9["mday"] . " - " . $fecha9["mon"] . " - " . $fecha9["year"];

$impr10 = $fecha10["mday"] . " - " . $fecha10["mon"] . " - " . $fecha10["year"];

$impr11 = $fecha11["mday"] . " - " . $fecha11["mon"] . " - " . $fecha11["year"];

$impr12 = $fecha12["mday"] . " - " . $fecha12["mon"] . " - " . $fecha12["year"];

$impr13 = $fecha13["mday"] . " - " . $fecha13["mon"] . " - " . $fecha13["year"];

$impr14 = $fecha14["mday"] . " - " . $fecha14["mon"] . " - " . $fecha14["year"];

$impr15 = $fecha15["mday"] . " - " . $fecha15["mon"] . " - " . $fecha15["year"];





?>

FIN