Ten řádek 15 je nějakej divokej...

Zkus vymazat před $email uvozovky a tečku.

mail("krchnak.p@seznam.cz", "123456", $email."<br>IP odesílatele: ".$REMOTE_ADDR."<br>Datum a čas: ".date("d.m.Y H:i", time())."<br><br>".$zprava, "Content-type: text/html; charset=windows-1250\nFrom: WebMail <".$email.">");

//edit: A co má znamenat to echo, že byl mail úspěšně odeslán a teprve pak se snažíš příkazem mail zprávu odeslat? Co když při posílání dojde k chybě? Měl bys tam mít podmínku if (mail ....).