الأخ/محمد صلاح

:D دعوتك مغرية جدا تخليني أفكر اعملهم الان علشانك ;)

شوف :

القائمة البريدية متوفرة عندي ..(عندي واحد جاهز يحتاج تعديل)

نموذج المراسلة موجود (يحتاج تعديل)

ديل المواقع موجود واحد عندي بس بعدلك عليه خاصية عرض صورة للموقع.

المسا ان شاء الله ببعتلك اياهم ..

و ياريت تكتبلي ايميلك علشان ارسلهم ..

اذا كان ممكن اخ محمد تضعهم هنا ليستفيد منهم الجميع ؟؟؟؟:o:o:o

هذا أول واحد و هو نموذج المراسلة ..

AS4WEB Mail ver. 1.3.0

<%



 DIM webmasterMail

' غير الايميل لايميلك الذي تود استقبال الرسائل عليه

 webmasterMail="webmaster@as4web.com"



 st=request("st")

 if st="error" then

  response.write "<center>Error Found.." &_

   "Back
"

      response.end 

  

 end if 





 if st="sending" then 

   set mailObj=createObject("CDONTS.newmail")

   mailObj.From=request.Form("from")

   mailObj.To=webmasterMail

   mailObj.Subject=request.Form("subject")

   mailObj.body=request.Form("body")

   mailObj.Send



  response.redirect request.ServerVariables(29) & "?st=sent" 

  response.end

end if  

  

  if st="sent" then

  response.write "<center>Message Sent successfully .." &_

   "Back
"

      response.end 

  

 end if 

%>



<meta http-equiv="Content-Language" content="en-us">

<p>For www.as4web.com</p>

<form method="POST" action="<%=request.serverVariables(29)%>?st=sending">

  

    <center>

    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="60%" id="AutoNumber1">

      <tr>

        <td width="27%">From : </td>

        <td width="73%">

        <input type="text" name="from" size="20"></td>

      </tr>

      <tr>

        <td width="27%">Subject :</td>

        <td width="73%">

        <input type="text" name="subject" size="20"></td>

      </tr>

      <tr>

        <td width="27%">Body :</td>

        <td width="73%"><textarea rows="5" name="body" cols="20"></textarea></td>

      </tr>

    </table>

    </center>

  


  <p> </p>

  <p align="center"><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>

</form>

<!--

  Code Written By :Mohd khalil Abu Salah

  webmaster@as4web.com

-->

ساقوم بارفاق البقية ...

انتبه لتغيير الايميل لايميلك و هذا الملف يعمل على أي مجلد في اي سيرفر يدعم كائن ال CDO المهم ما يكون مجاني :)

و هاي وصلة القائمة البريدية و ضعتها مرة و لا داعي للتكرار

http://www.arabteam2000.com/vb/showthread....%D1%ED%CF%ED%C9

باقي دليل المواقع ..

بصراحة الأخير قصرت فيه (مو موجودة حكاية الصورة للموقع )

لكن بسيطة و تحتاج تعديل بسيط .. طبعا هاي ملفات قديمة كانت عندي لموقعي القديم فيها ميزة التنقل بين الصفحات و البحث من خلال اسم الموقع و محتواه ..

ها هو الملف مرفق ..

sitesguide.zip

الأخ/ محمد صلاح لا استطيع التعبير عن مدا شكري وتقديري لتجاوبك معي

هذا هو إميلي

maalmcic@hotmail.com

وأقر بك عينا ولديك ورزقك الله الزوجة الصالحة واسعدك بذرية تقربهم عينك.

قالى تعالي(لِّلَّذِينَ أَحْسَنُواْ الْحُسْنَى وَزِيَادَةٌ وَلاَ يَرْهَقُ وُجُوهَهُمْ قَتَرٌ وَلاَ ذِلَّةٌ أُوْلَـئِكَ أَصْحَابُ الْجَنَّةِ هُمْ فِيهَا خَالِدُونَ) (26) ( يونس)

جعلك الله أنت وجميع من يعمل معك في الفريق العربي للبرمجة منهم وجميع من زار موقعكم.