hoe kan ik deze code combineren in flash?:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>NIEUWSBRIEF</title>
<style type="text/css">
<!--
body { margin: 0px; font-family: Tahoma; font-size: 8pt; color: #FFFFFF; }
table.menu { font-family: Tahoma; font-size: 8pt; background-color: #DDDDDD; text-align: center; border: 2px #000000 solid; }
table.list { font-family: Tahoma; font-size: 10pt; color: #000000; }
table { font-family: Tahoma; font-size: 8pt; color: #000000; }
tr.info { font-family: Tahoma; font-size: 10pt; color: #000000; font-weight: bold; }
input { font-family: Tahoma; font-size: 8pt; color: #000000; background-color: #999999; border: 1px; border-color: #ffffff; }
textarea { font-family: Tahoma; font-size: 9pt; color: #000000; background-color: #999999; border: 1px; border-color: #ffffff; cols: 50; }
-->
</style>
</head>
<body bgcolor="#999999">
<?php
##############################################
# NIEUWSBRIEF SYSTEEM v1.0 #
##############################################
# #
# nieuwsbrief systeem + admin #
# admin = URL?admin=wachtwoord #
# Met afmeld link zoals het hoort #
# volgens de wet in nederland. #
# vragen? webmaster@watbenje.nl #
# voor gebruik wel graag linkje naar #
# WWW.WATBENJE.NL #
##############################################
$vars=explode(",","admin,send,subject,message,email,action");
foreach($vars as $v){
if ($HTTP_GET_VARS[$v]!=""){$$v=$HTTP_GET_VARS[$v];}
if ($HTTP_POST_VARS[$v]!=""){$$v=$HTTP_POST_VARS[$v];}
}
# wachtwoord voor de administratie sectie! ADMIN SECTIE OPVRAAGBAAR MET: ?admin=wachtwoord
$pass="hier je wachtwoord!!";
# URL naar het bestand voor de afmeld link in bevestiging
$lokatie="http://www.watbenje.nl/nieuwsbrief/index.php";
# database voor emailadressen
$database="emailadressen.php";
# van adres, nieuwsbriefnaam
$nieuwsbriefnaam="nieuws@watbenje.nl";
# client reply email adres
$clientreply="webmaster@watbenje.nl";
# block email domeinen
$blockdomein = "watbenje.nl";
# dubbel ingevoerd
$dubbelemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>$email is al eerder opgegeven!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# niks ingevoerd
$geenemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Wij hebben geen email adres ontvangen!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# foutief ingevoerd
$onjuistemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Sorry, maar dit \"$email\" is een incorrect emailadres!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# eigen domein
$eigendomeinemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Geblokkeerd domein!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# aanmeldings bericht
$aanmeldingemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"thanks\">
<p align=\"center\"><font color=\"#FFFFFF\"><b>Bedankt voor het aanmelden, er is een bevestigings email naar u toegestuurd!</b></font></div></td>
</tr>
</table>
</center>
</div>";
# Email handtekening
$handtekening = "Met vriendelijke groet,
Webmaster
www.watbenje.nl
mailto:webmaster@watbenje.nl";
# autoreplybericht
$autoreplybericht = "Beste lezer,
U bent aangemeld bij onze nieuwsbrief.
U zult van ons maandelijks een digitale nieuwsbrief ontvangen.
We hebben het volgende emailadres ontvangen: $email
Moch u ongewenst te zijn aangemeld dan kunt zich onderaan dit bericht afmelden.
Wij hebben het doel om u van de laaste actualiteiten op de hoogte te houden.
$handtekening";
# verwijderemail uit bestand
$verwijderemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"thanks\"><p align=\"center\"><font color=\"#FFFFFF\"><b>We hebben uw emailadres verwijderd uit onze database!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# verwijderemail error
$foutverwijderemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Sorry, we kunnen $email niet terugvinden in onze database!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
if (!file_exists($database)) {
$newfile = fopen($database,"w+");
fclose($newfile);
}
$newfile = fopen($database,"r");
$content = fread($newfile, filesize($database));
fclose($newfile);
$content=stripslashes($content);
$out="";
$lines = explode("%",$content);
foreach($lines as $ontvanger){
if ($ontvanger != $email){$out .= "%".$ontvanger;}
else{$found=1;}
}
if ($action=="sign"){
if ($found==1 or $email=="" or !checkmail($email) or preg_match("/".$blockdomein."/",$email)){
if ($email==""){echo $geenemail;}
else if ($found==1){echo $dubbelemail;}
else if (!checkmail($email)){echo $onjuistemail;}
else if (preg_match("/".$blockdomein."/",$email)){echo $eigendomeinemail;}
$disp="yes";
}
else {
$disp="no";
$newfile = fopen($database,"a+");
$add = "%".$email;
fwrite($newfile, $add);
fclose($newfile);
// $hash = md5('hash'.$email); UITGESCHAKELD (md5 Hash Emailadressen)
echo $aanmeldingemail;
mail ($email,"Aanmelding!",$autoreplybericht."\n\n\nIk wil me afmelden!\n$lokatie?action=delete&email=".$email,"From: Nieuwsbrief<$nieuwsbriefnaam>\nReply-To: $clientreply\n");
$submailheaders = "From: Nieuwsbrief<$nieuwsbriefnaam>\n";
$submailheaders .= "Reply-To: $clientreply\n";
}
}
if ($action=="delete"){
$disp="no";
if ($found == 1){
$newfile = fopen($database,"w+");
fwrite($newfile, $out);
fclose($newfile);
echo $verwijderemail;
$disp="no";
}
if ($found != 1){
echo $foutverwijderemail;
$disp="YES";
}
}
if ($admin == $pass){
if ($send != "yes" && $send != "test"){
print'<br><br><div align="center">
<center>
<form method="post"><input type="hidden" name=admin value='.$pass.' /><input type="hidden" name="send" value="yes">
<table border="1" cellpadding="0" cellspacing="0" width="39%" height="230" bordercolorlight="#000000" bordercolordark="#000000">
<tr>
<td width="100%" colspan="2" height="16" bgcolor="#666666">
<p align="center"><b>NIEUWSBRIEF</b></td>
</tr>
<tr>
<td width="14%" height="21" bgcolor="#C0C0C0"> Van naam:</td>
<td width="86%" height="21" bgcolor="#808080"> Nieuwsbrief</td>
</tr>
<tr>
<td width="14%" height="21" bgcolor="#C0C0C0"> Van adres:</td>
<td width="86%" height="21" bgcolor="#808080"> nieuwsbrief@watbenje.nl</td>
</tr>
<tr>
<td width="14%" height="25" bgcolor="#C0C0C0"> Onderwerp:</td>
<td width="86%" height="25" bgcolor="#808080"> <input type="text" class="input" name="subject" size="45"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="7" bgcolor="#666666"></td>
</tr>
<tr>
<td width="14%" height="127" bgcolor="#808080"> Bericht:</td>
<td width="86%" height="127" bgcolor="#808080"><textarea cols="50" rows="10" class="input" wrap="virtual" name="message"></textarea></td>
</tr>
<tr>
<td width="100%" colspan="2" height="1" bgcolor="#666666"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="34" bgcolor="#C0C0C0"><center><input type="reset" value="Wissen" /> <input type="submit" value="Verstuur nieuwsbrief" /></center></td>
</tr>
</table>
</form>
</center>
</div>
';
}
$mailheaders = "From: Nieuwsbrief<$nieuwsbriefnaam>\n";
$mailheaders .= "Reply-To:$clientreply\n";
$mailheaders .= "Content-Type: text/html; charset=iso-8859-1\n"; // HTML MIMEMAILS
if ($send == "yes"){
$message="".stripslashes($message);
$subject=stripslashes($subject);
// $hash = md5('hash'.$ontvanger); UITGESCHAKELD (md5 Hash Emailadressen)
$lines = explode("%",$content);
foreach ($lines as $ontvanger){mail ($ontvanger,$subject,$message."\n$handtekening\n\n\nIk wil me afmelden!\n$lokatie?action=delete&email=".$ontvanger,"From: Nieuwsbrief<$nieuwsbriefnaam>\nReply-To: $clientreply\n");}
print "<b>The following email has been sent!</b>";
print "<pre>$mailheaders\n$subject\n$message</pre>";
}
}
if ($admin != $pass && $disp != "no"){
print'
<br><br><div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="30%" height="83">
<tr>
<td width="100%" bgcolor="#333333" height="21">
<p align="center"><b><font color="#C0C0C0">N i e u w s b r i e f</font></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#666666" height="62"><form method="post"><center>
<font color="#C0C0C0"> Email adres: <input type="text" name="email" class="inputsmall" value="" size="30" />
<br> <input type="radio" name="action" value="sign" checked="checked" />Aanmelden
<input type="radio" name="action" value="delete" />Afmelden
<input type="submit" value="Verstuur" />
</font>
</center></form> </td>
</tr>
</table>
</center>
</div>';
print '<center><font size="1">copyright: <a href="http://www.watbenje.nl">www.watbenje.nl</a>!</font></center>';
}
function checkmail($string){
return preg_match("/^[^\s()<>@,;:\"\/\[\]?=]+@\w[\w-]*(\.\w[\w-]*)*\.[a-z]{2,}$/i",$string);
}
?>
</body>
</html>