سؤال:كيف اعمل فورم ترسل بيانات الى الايميل

هذا مثال هدية مني لك :)

AS4WEB Mail ver. 1.3.

<%





 st=request("st")

 if st="error" then

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

   "Back
"

   response.write request.serverVariables(30)

   response.end 

  

 end if 





 if st="sending" then 

   if request.Form("from")="" or request.Form("to") then  response.redirect request.ServerVariables(29) & "?st=error"

   set mailObj=createObject("CDONTS.newmail")

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

    mailObj.To=request.Form("to")

    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.write request.serverVariables(30)

   response.end 

  

 end if 

%>



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

<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" value=""></td>

      </tr>

      <tr>

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

        <td width="73%">

        <input type="text" name="to" size="20" value=""></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>

<p align="center"> </p>

لو صعب عليك شي في الكود اسأل و سنجيب باذن الله :)

اشكرك يأستاذ محمد على الرد ،ولكن يريت توضح توضيح بسيط ، وخاصة اين اضع عنون البريد الالكتروني الذي سيتم ارسال لبيانات اليه ،، وشكرا

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

اخي محمد اشكرك على سرعة الرد ،،،، وجزاك الله الف خير

اما بالنسبة للفورم ، فالذي كنت اقصده ان يكون هناك في الفورم مجموعة من الحقول (الاسم، العمر ... الخ) وبعد ان يقوم المستخدم بأدخال البيانات يقوم بالضغط على زر معين ليقوم بأرسال البيانات التي ادخلها الى ايميل يكون محدد مسبقا ليقوم بأستقبال البيانات التي يدخلها الزوار

مو منطقية .. لكن ممكن تعملها عن طريق ال body بحيث انك تجمعهم ثم تسندهم لل objMail.body كالتالي:

 Dim body

 body="this is the information : 
"

 body= body & request("name") & "<BR>"

 body= body & request("age") & "<BR>"

 body= body & request("DOB") & "<BR>"



 set mailObj=createObject("CDONTS.newmail")

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

    mailObj.To=request.Form("to")

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

    mailObj.body=body

   mailObj.Send

اعتقد الان انحلت المشكلة ووضحت الطريقة .. :)