الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اين الخطأ فى هذا الكود ؟؟

مغلق
بدأه العاج في 29 يوليو 2004 · 6 رد · 448 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم :

تحياتي الخالصة لكم علي ما تبذلونه من جهود

لدي استفسار ارجوا ان اجد الرد عليه لديكم

فهذا سكريب ارسال بريد يوضع فى رأس الصفحة الموجود بها النموذج البريدى ....ولكن هناك خطأ لا افهمه فالمفروض ان يرسل النتائج او الفورم الى اميلى والى اميل اخر بمعنى انه يفترض به ارسال النموذج الى اميلين اثنين ولكن هذا لا يحدث ..وثانيا النتائج مهما كانت كبيرة فانه يضعها ضمن سطر واحد مما يجعل قراءة نتائج اى فورم صعبة ..

ثالثا الفراغات بين الكلمات يضع فيها علامات مثل 40% او علامة + المهم انه يعبىء الفراغات ...فكيف يمكن تصحيح هذه الاخطاء..

وهذا هو الكود :

<%

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Set iMsg = CreateObject("CDO.Message")

With iMsg

ا .To = "al3aj@hotmail.com"

.From = "me@sws.com"

.CC = "jody_swish@yahoo.com"

txtarray = Split(request.form, "&", -1, 1)

' If Not IsArray(txtarray) Then txtarray = Array(strxml)

message_area=""

For tmpInt = LBound(txtarray) To UBound(txtarray)-1

message_area = message_area & "<p><u>" & Replace(txtarray(tmpInt), "=", ":</u><br>") & "</p>"

Next

.Subject = "me Shipping"

.HTMLBody="<p>" & request.ServerVariables("REMOTE_ADDR") & "</p><p>" & message_area & "</p>"

.TextBodyPart.ContentMediaType = CdoTextHtml

.TextBodyPart.Charset = "windows-1256"

.Send

End With

Set iMsg = Nothing

response.Redirect "confirm.htm"

end if

%>

والسلام عليكم

#2

السلام عليكم :

ارفع موضوع من جديد .....راجيا ان اجد لدي الاخوة هنا المساعدة وسرعة الاستجابة ..

#3

السلام عليكم

أنا مش عارف انت ليش مطول في الكود كثير جداً.

جرب استخدامه بهذه الطريقة.

<%
message="<html>"<body>"
 message= message&replace(request("message"),vbcrlf,"<br>")
 message=message&"</body></html>"
Set sendmail = Server.CreateObject("CDONTS.NewMail")

             sendmail.To = "عنوان البريد المرسل إليه"
             sendmail.From = "عنوان البريدي من المرسل"
             sendmail.Subject = "عنوان الموضوع"
             sendmail.CC="نسخة إلى عنوان بردي إلكتروني اخر"
             sendmail.BodyFormat = 0
             sendmail.MailFormat = 0
             sendmail.Body = message '''الرسالة
             
sendmail.Send
%>

مع تحياتي

MCP

MCTS:.Net Framework 2.0: Web Applications

MCPD:Web Developer

#4

السلام عليكم :

اشكرك على استجابتك ...

الكود الذى وضعته لم يشتغل معي مطلقا للاسف ....

بالنسبة للكود الذى اسأل عنه ...يوضع فى نفس صفحة الفورم ...اى انى صممت الفورم بالفرونت بيج ثم وضعت الكود فى رأس الصفحة ثم حفظت الصفحة بنسق asp اما صفحة التأكيد وهىconfirm.htm

فقد حفظتها كصفحة htm دون اضيف اليها شيئا وهى تحتوى على رسالة تفيد بان محتويات النموذج قد ارسلت ...

بالنسبة للكود الذى وضعته لم افهمه ..فقد صممت نموذجا بريديا بسيطا ثم وضعت الكود الذى كتبته فى راس الصفحة وغيرت النقاط التالية فقط

sendmail.To = "وضعت بريدى "

sendmail.From = "بريد الموقع"

sendmail.Subject = "عنوان الموضوع"

sendmail.CC=" عنوان بريدي إلكتروني اخر

ثم حفظت الصفحة ك asp وحين جربتها على السيرفر لم تخرج الصفحة اساسا ..

فاضفت تغيرا الى

ال sendmail.BodyFormat = 0

sendmail.MailFormat = 0

بان كتبت قبالة كل منهما كلمة html

وحين عرضت الصفحة عبر السيرفر من جديد ظهرت ولكنه لم ترسل شيئا البتة الى اى من الاميلات التى وضعتها ؟؟؟؟

وبالتالى فان الامر لم ينجح ..

والسلام عليكم

#5

السلام عليكم

الاخ عبدالله بالنسبة للكود الذي وضعته في دروسك فانه لم يعمل

وطلع خطا في السطر Set sendmail = Server.CreateObject("CDONTS.NewMail")

يقول لك جملة غير صالحة

فهل تكرمت وصححت خطأك

وعذرا على الازعاج نتمى لك موقعا عملاقا

#6

السلام عليكم

هل الموقع الخاص بكم يدعم هذه الخاصية التي وضعتها وهي خاصية CDONTS.NewMail.

راجع ما نوع الخاصية التي يدعمها.

بالنسبة للأخ العاج هذا الكود التالي على نفس الذي استخدمته.

Set sendmail=CreateObject("CDO.Message")

sendmail.Subject=rs("forum_name")&"-تفعيل الاشتراك"

sendmail.From=rs("emailadminstroter")

sendmail.To=request("Email")

sendmail.TextBody=body_text

sendmail.Send

مع تحياتي

MCP

MCTS:.Net Framework 2.0: Web Applications

MCPD:Web Developer

#7

السلام عليكم .

للرفع من جديد ..لعل وعسى اجد من يساعدني ...

شكرا

هذا الموضوع مغلق.

مواضيع مشابهة