السلام عليكم
صنعت سكربت سينتهي انشاء الله اذا ساعدتموني و هو لارسال رسالة الى جميع من مشتركين بالقائمة البريدية و المشكلة تكمن
ان الرسالة تضهر فيها ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ استفهام و لا اعلم لمذا
هذه هي صفحة ارسال الرسائل
عملت ترميز باللغة العربية دون فائدة
كود PHP:
<%@ Language=VBScript CodePage = "1256"%>
<%
Name_Cooky=Request.cookies("Name")
If Name_Cooky="" Then
response.redirect ("admin.asp")
End If
%>
<%
' write by Mr. Vong Sokharoit
' change to address of your own SMTP server
strHost = "mail.bahrainmath.com"
%>
<html dir="rtl">
<head>
<meta http-equiv="Content-Language" content="ar-sa">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<TITLE>AspEmail: Database.asp</TITLE>
</head>
<%
' connect to the MS Access database in the same directory
strDbPath = Server.MapPath(".") & "\users.mdb"
ConnectStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strDbPath
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "users1", ConnectStr, 2, 3
If Request("Send") <> "" Then
' send email to all users
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "hesabnet@hotmail.com"
Mail.FromName = "رياضيات"
Mail.Subject = Request("Subject")
Mail.Body = Request("Body")
' read address from DB and put them in the BCC field
While not rs.EOF
Mail.AddBcc rs("email"), rs("name")
rs.MoveNext
Wend
' finally: send message
Mail.Send
Response.Redirect "success.htm"
Else
End If
%>
<BODY BGCOLOR="#FFFFFF">
<h2 align="center">ارسل رسالة لجميع من بقاعدة
البيانات</h2>
<h3> </h3>
<div align="left"> </div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="400" id="AutoNumber1">
<tr>
<td>
<SCRIPT language="JavaScript">
<!-- Hide from older browsers
//Check the enquiry form is filled in correctly
function CheckForm () {
//Check for Sender Address
if (document.frmEnquiry.Subject.value==""){
alert("رجاءا ادخل العنوان");
document.frmEnquiry.Subject.focus();
return false;
}
//Check for a Sender's Name
if (document.frmEnquiry.Body.value==""){
alert("رجاءا اكتب الرسالة");
document.frmEnquiry.Body.focus();
return false;
}
return true;
}
//-->
</script>
<form method="post" name="frmEnquiry" onSubmit="return CheckForm();" action="txtmail.asp">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="400" id="AutoNumber2">
<tr>
<td width="100" align="right">
<p style="margin-right: 3" align="right"><b><font face="Verdana" size="3">العنوان:</font></b>
</td>
<td>
<p align="right">
<input type=TEXT name="Subject" size="58">
</p>
</td>
</tr>
<tr>
<td valign="top" width="100" align="right">
<p style="margin-right: 3" align="right">
</td>
<td>
<p align="right"> </p>
</td>
</tr>
<tr>
<td valign="top" width="100" align="right">
<p style="margin-right: 3" align="right"><b><font face="Verdana" size="3">الرسالة:</font></b>
</td>
<td>
<p align="right">
<textarea name="Body" rows="8" cols="34"></textarea>
</p>
</td>
</tr>
<tr>
<td valign="top">
<p align="right"> </p>
</td>
<td>
<p align="right"> </p>
</td>
</tr>
<tr>
<td valign="top">
<p align="right"> </p>
</td>
<td>
<p align="right">
<input type=submit name="Send" value="ارسل">
<input type=reset name="Reset" value="مسح">
</p>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<p> </p>
</BODY>
</HTML>