mam otakzu da sa urobit nieco podobne ako dennicek teda newsletter v PHP bez DB ??? dakujem
a ked nie bez DB tak s DB a ci niekto nemate nejaky kod
dakujem
Kód: Vybrať všetko
<center><font class=nadpis>Kniha návštev</font><br><br>
<font size="1"><u>Počiarknuté položky sú povinné!</u></font></center>
<hr color="#00008B" width="100%" align="center"><br>
<form method="post">
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td width=120 class=povinne>Prezývka:</td>
<td><input type="text" name="meno" size="30" value="<?php
if ($meno=="" || $email=="" || $popis==""):
echo $meno;
endif;
?>"></td></tr>
<tr><td width=120 class=povinne>E-mail:</td>
<td><input type="text" name="email" size="30" value="<?
if ($meno=="" || $email=="" || $popis==""):
echo $email;
endif;
?>"></td></tr>
<tr><td width=120 class=nepovinne>Web:</td>
<td><input type="text" name="web" size="30" value="<?
if ($meno=="" || $email=="" || $popis==""):
echo $web;
endif;
?>">
<input type="hidden" name="odeslano" value="ano"></td></tr>
<tr><td valign=top width=120 class=povinne>Text správy:</td>
<td><textarea cols="29" rows="5" name="popis"><?
if ($meno=="" || $email=="" || $popis==""):
echo $popis;
endif;
?></textarea></td></tr>
<tr><td width=120></td>
<td><center><input type="submit" value="Odoslať"> <input type="Reset"
value="Vymazať"></center></td></tr></table></form>
<?
if ($odeslano=="ano"):
if ($meno=="" || $email=="" || $popis==""):
echo "<center><br><font size='1'><u>Musíte vyplniť všetky povinné údaje!<br></u></font></center>";
else:
$name = "<font class=meno>$meno</font><BR>\n";
$e_mail = "<A class=\"odkaz\" HREF=\"mailto:$email\">E-mail: $email</A><BR>\n";
if ($web!=""):
$www = "<A class=odkaz HREF='http://$web'>Web: $web</A><BR>\n";
endif;
$cas = "<font class=cas>" . Date("j. " . "m. " . "Y, " . "H:i:s") . "</font><BR>\n";
$popis2 = NL2BR(HTMLSpecialChars($popis));
$zprava = "<BR><font class=text>$popis2</font><BR><BR><HR
color=\"#00008B\" width='100%' align='center'><BR>\n\n";
$write = StripSlashes($name . $e_mail . $www . $cas . $zprava);
if (File_Exists ("book.dat")):
$fp = FOpen ("book.dat", "r");
$data = FRead ($fp, FileSize("book.dat"));
FClose($fp);
endif;
$fp = FOpen ("book.dat", "w");
FWrite ($fp, $write.$data);
FClose ($fp);
endif;
endif;
?>
<hr width="100%" color="#00008B" align="center"><br>
<?
if (File_Exists ("book.dat")):
$fp = FOpen ("book.dat", "r");
FPassThru($fp);
endif;
?>