hallo,
ich habe ein XML Datei die für ein Kontakt Formular da ist, die muss mit bestimmte Paramente ausgefüllt werden was ich leider nicht klappt, weil ich mir nicht sicher bin was ich alles eintragen muss.
es gibt noch eine contact.php und eine contact.asp die tu ich mal auch da zu.
Code:
<?xml version="1.0" encoding="utf-8"?>
<!--
Please read this information to learn how to set up the contact form integrated
into the template.
This readme file explains in details the meaning of the settings that can be
done in the fcContactFormConfiguration.xml configuration file.
It is recommended for you to use an XML editor to make changes to this file
because it’s less possible to make an error in the markup which can cause to
a not working contact form.
-->
<contactFormConfiguration>
<!--
An e-mail address which will be used to receive messages from your contact form.
You can specify several e-mail addresses separating them with a comma.
For example: first_email@domain.com, second_email@domain.com, third@domain.com
-->
<emailTo>your_email@domain.com</emailTo>
<!--
A server script type which will process sending e-mails. It depends on your
hosting and in the current version of the contact form it is allowed to use
two types: php (Apache, PHP Hosting); asp (IIS web server, ASP).
-->
<serverProcessorType>php</serverProcessorType>
<!--
A name of the script file which process sending e-mails on your server (without
extension). The name contact is used by default.
-->
<serverProcessorFileName>contact</serverProcessorFileName>
<!--
Text showing to the user when the form is submitted without any errors.
-->
<messageSentText>thank you for your message.</messageSentText>
<!--
Text showing in case the form is not submitted because of a server error.
-->
<messageSentFailedText>sorry, your message couldn't be sent</messageSentFailedText>
<!--
Text your visitor will see while waiting till the processing is over.
-->
<formProcessingText>processing...</formProcessingText>
<!--
Your SMTP server (for ASP only).
-->
<smtpServer>localhost</smtpServer>
<!--
Your SMTP port (for ASP only).
-->
<smtpPort>25</smtpPort>
<!--
Set whether to send the message as a plain text (true) or as HTML (false).
-->
<plainText>false</plainText>
<!--
ID of the input field (in the structure XML file) to use for the “from: ”
or “sender: ” label in your e-mail client.
-->
<emailFromSource>1</emailFromSource>
<!--
Subject of the e-mails that will be sent through this contact form or ID of
the input field (in the structure XML file) to use for the “subject: ” label
in your e-mail client.
-->
<subjectSource>Contact Form from your site</subjectSource>
</contactFormConfiguration>
PHP-Code:
<?php
$mail_body = '';
//-----------------Getting data sent by flash---------------------
foreach ($_POST as $key => $value){
if ($key != 'mail_to' && $key != 'smtp_server' && $key != 'smtp_port' && $key != 'mail_from' && $key != 'mail_subject' && $key != 'plain_text'){
$mail_body .= '<b>'.str_replace('_',' ',$key).'</b>:<br/>';
$mail_body .= ''.stripslashes($value).'<br/>';
}
}
//-----------------------------------------------------------------
$message = '<html><body>'.$mail_body.'</body></html>'; // mail body
//------------if plain text is set to true removing html tags------
if ($_POST['plain_text']=='true') {
$message = str_replace('<br/>',"\r\n", $message);
$message = strip_tags($message);
//------------------------------------------------------------------
} else {
//----otherwise composing message headers---------------------------
$headers = 'MIME-Version: 1.0' . "\r\n";
$headers .= 'Content-type: text/html; charset=iso-8859-1' . "\r\n";
//------------------------------------------------------------------
}
//------------setting conf data-------------------------------------
$to = $_POST['mail_to'];
$from = $_POST['mail_from'];
$subject = $_POST['mail_subject'];
$smtp_server = $_POST['smtp_server'];
$smtp_port = $_POST['smtp_port'];
//------------------------------------------------------------------
//---------setting header info--------------------------------------
$headers .= 'From: ' .$from. "\r\n";
//------------------------------------------------------------------
if (mail($to, $subject, $message, $headers)){ // sending mail
print('<serverResponse><mail>1</mail></serverResponse>');
} else {
print('<serverResponse><mail>0</mail></serverResponse>');
}
?>
Code:
<%
'----function that removes html tags-----------
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
'---------------------------------------------
'------defining script vars-------------------
Dim mailObj, mailCfg, myBody, fld
Dim RegEx
set RegEx = New RegExp
'--------------------------------------------
'------getting data sent by flash (filtering configuration data)------------
For Each fld in Request.Form
If Request.Form(fld) <> "" and _
fld <> "mail_to" and _
fld <> "smtp_server" and _
fld <> "smtp_port" and _
fld <> "plain_text" and _
fld <> "mail_from" and _
fld <> "mail_subject" Then
myBody = myBody & vbCRLF & " <b>" & fld & "</b> :<br/> " & Trim(Request.Form(fld)) & "<br/>"
End If
Next
'---------------------------------------------------------------------------
'----------setting conf data------------------------------------------------
On Error Resume Next
Set myMail = CreateObject("CDO.Message")
myMail.Subject = Request.Form("mail_subject")
myMail.From =Request.Form("mail_from")
myMail.To = Request.Form("mail_to")
'--------if plain text is set to true removing html---------------------------------------
if Request.Form("plain_text") = "true" then
myMail.TextBody = RemoveHTML(myBody)
'-------otherwise composing message body--------------------------------------------------
else myMail.HTMLBody = "<html><body>" & myBody & "</body></html>"
end if
'----------setting configuration params for smtp----------------------------------------------------------------------------------
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Request.Form("smtp_server")
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Request.Form("smtp_port")
myMail.Configuration.Fields.Update
'---------------------------------------------------------------------------------------------------------------------------------
myMail.Send '---------------sending message
If Err = 0 Then
Response.Write("&mail=1") 'if there the message is sent return 1 to flash
Else
Response.Write("&mail=0") 'otherwise return 0
End If
%> 
01-03-2011, 11:20
Ähnliche Themen 
Linear-Darstellung
