Beste allemaal :),

Ik heb hier een flashsite met een contact-formulier. Alleen ik snap niets van het contactformulier. Ik heb eigenlijk de volgende probleempjes:
- Ik zie niet waar ik heb mailadres moet invullen waar de e-mail naartoe moet;
- Wanneer hij verzend krijg ik een nieuwe tab waar in staat dat het bericht is verzonden, dit wil ik eigenlijk niet, of dat hij na een paar seconde terug gaat naar de homepage.

Eerst is hieronder de PHP-code, daaronder is de ASP-code te zien:

PHP Code:
<?
Error_Reporting(E_ALL & ~E_NOTICE);

 while ($request = current($_REQUEST)) {
     if (key($_REQUEST)!='recipient') {
        $pre_array=split ("&777&",  $request);
        $post_vars[key($_REQUEST)][0]=$pre_array[0];
        $post_vars[key($_REQUEST)][1]=$pre_array[1];
    }
    next($_REQUEST);
}



reset($post_vars);


$subject="From ".$post_vars['your_name'][0] ;
$headers= "From: ".$post_vars['your_email'][0] ."\n";
 $headers.='Content-type: text/html; charset=iso-8859-1';
 $message='';
  while ($mess = current($post_vars)) {
      if ((key($post_vars)!="i") && (key($post_vars)!="your_email") && (key($post_vars)!="your_name")) {

         $message.="<strong>".$mess[1]."</strong>&nbsp;&nbsp;&nbsp;".$mess[0]."<br>";
    }
    next($post_vars);
 }

mail($_REQUEST['recipient'], $subject,  "
<html>
<head>
 <title>Contact letter</title>
</head>
<body>
<br>
  ".$message."
</body>
</html>" , $headers);
echo ("Uw bericht is verzonden! Dit venster kunt u sluiten.");

?>
<script>
    resizeTo(300, 300);
</script>
PHP Code:
<%
    for i=1 to 7
         message=Request("message")
    next
         message=message + Request("message")    
        smtpServer = "YourSMTPServer"
        smtpPort = 25
        

        name = Request("Your_Name:")
        Set myMail = CreateObject("CDO.Message") 
        myMail.Subject = "from " & name
        myMail.From = Request("Your_Email:")
        myMail.To = Request("recipient")
        myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></html>"
        myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
        myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort
        myMail.Configuration.Fields.Update 
        myMail.Send
    
%> 
Mocht iemand me via MSN kunnen helpen is dat ook mogelijk en laat maar horen hoe/wat.

Eelco Teuthof