11 maggio 2004 alle 15:29:05

<?php
if (get_magic_quotes_GPC() ) {
$fnStripMagicQuotes = create_function('&$mData, $fnSelf', 'if (is_array($mData)) foreach ($mData as $mKey=>$mValue) $fnSelf($mData[$mKey], $fnSelf); '.
'else $mData = stripslashes($mData);');
$fnStripMagicQuotes($_POST,$fnStripMagicQuotes);
}
$to = $_POST["to"];
$from = $_POST["from"];
$subject = $_POST["subject"];
$body = $_POST["body"];
mail ($to, $subject, $body, "From: $from
");
echo 'mail inviata con successo';
?>

Function SendMail(sSender, sRecipient, sSubject, sText, bHTML)
Dim oDom, ret, sMail, bOk, sMailPage

sMailPage = "http://vostroaccount.altervista.org/inviamail.php"
sMail = ""

sMail = sMail & "from=" & Server.URLEncode(sSender)
sMail = sMail & "&to=" & Server.URLEncode(sRecipient)
sMail = sMail & "&subject=" & Server.URLEncode(sSubject)
sMail = sMail & "&body=" & Server.URLEncode(sText)

Set oDom = Server.CreateObject("MSXML2.XMLHTTP")

'use POST method
oDom.open "POST", sMailPage, False

oDom.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oDom.send sMail
ret = oDom.responseText

If instr(ret, "mail inviata con successo") > 0 Then
bOk = true
Else
bOk = false
End If

Set oDom = Nothing

SendMail = bOk
End Function