مشکل در ارسال Form در صفحه ارتباط با ما

k_asg

k_asg

Member
با سلام خدمت همه دوستان

من یه مشکلی برام پیش اومده اگر کسی بتونه کمکم کنه(که مطمئنا تو این سایت خیلی ها میتونن به راحتی) واقعا ممنونش میشم
من برای سایتی که به زبان ASP طراحی کردم و در قسمت Contact US یه قسمت درست کردم که طرف بیاد و از اون فرم با پر کردن یه سری فیلد پیامش رو برای ایمیل ما بفرسته
من سورس رو از WebWiz گرفتم و تو اینجا هم آپلودش کردم
http://rapidshare.com/files/4281558/E-mail_Form_1.zip.html

ولی وقتی که SEND رو میزنم از خطی که این دستور توش هست اشکال میگیره :
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

من آشناسیی زیادی با اینآبجکت CDONTS ندارم و این کار تو کامپیوتر Local و نه وقته که آپلود میشه جواب نمیده
واقعا سطح اطلاعاتم بهم جواب نمیده و از دوستان خواهشمنم که اگر میتونن این مشکل رو برای من حل کنن

تو فایلی که آپلود کردم سورس صفحه Contactus.htm و صفحه Send_Mail.ASP قرار داده شده اگه کسی میتونه اون فایلهارو برام ادیت کنه یا اینجا برام توضیح بده واقعا ممنونش میشم
با تشکر
کامران
 
m_ziba

m_ziba

Member
من هم اگه Asp.net بود کمک می کردم اما چند ساله Asp کار نمی کنم و یادم رفته
 
k_asg

k_asg

Member
دست شما درد نکنه
متاسفانه Asp دیگه خیلی قدیمی شده
در هر صورت ازتون ممنونم
 
rayanehkhabar

rayanehkhabar

Member
دوست عزیز : آیا از هاست رایگان استفاده می کنی؟
بهتره بگم که هاستهای رایگان از کامپوننت CDONTS پشتیبانی نمی کنند. هاستهای پولی هم خیلی کم پیش میاد که از این کامپوننت پشتیبانی کنند. به هر حال بالاخره از یک کامپوننت برای ارسال ایمیل پشتیبانی می کنند. از سرورت اسمش را بپرس تا راهنمایی ات کنم. راستی اگر سرور شما از php پشتیبانی می کند تا کد ارسال ایمیل با php را هم برای شما بفرستم.
 
k_asg

k_asg

Member
اولا که ممنون از جوابت
دوما من از هاست میهن هاست استفاده میکنم
احتمال قریب به یقین همین حرفیه که شما میزنی باید ببینم از چه کامپوننتی استفاده میکنه
حالا شما که میگی PHP اگه تو صفحات ASP از حاح استفاده کنم مشکلی پشی نمیاد ؟ من همه صفحات رو با ASP و توسط Dream Weaver ساختم
 
k_asg

k_asg

Member
من این سورس رو پیدا کردم فقط یه مشکل داره
اونم اینه که در یک زمان فقط برای یک نفر میشه متن رو فرستاد
کسی میتونه این مشکل رو حل کنه ؟

کد: 
 <%
' change to address of your own SMTP server
' To use eNom smtp you must autenticate with your username and password

strHost = "mysmtpserver"

'Uncomment and set username and password here
'strUser = "[email protected]"
'strPassword = "password"

If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost

'Uncomment to use smtp authenctication
'Mail.Username = strUser
'Mail.Password = strPassword

Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional
Mail.AddAddress Request("To")

' message subject
Mail.Subject = Request("Subject")
' message body
Mail.Body = Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
     strErr = Err.Description
else
     bSuccess = True
End If

End If

%>

<HTML>
<BODY BGCOLOR="#FFFFFF">

<% If strErr <> "" Then %>
      <h3>Error occurred: <% = strErr %>
<% End If %>

<% If bSuccess Then %>
      Success! Message sent to <% = Request("To") %>.
<% End If %>


<FORM METHOD="POST" ACTION=""> <TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
      <tr>
            <td>Host (change as necessary in script):</td>
            <td><B></B></td>
      </tr>
      <tr>
            <td>From (enter sender's address):<>/td>
            <td><INPUT TYPE="TEXT" NAME="From"></td>
      </tr>
      <tr>
            <td>FromName (optional, enter sender's name):</td>
            <td><INPUT TYPE="TEXT" NAME="FromName"></td>
      </tr>
      <tr>
            <td>To: (enter one recipient's address):</td>
             <td><INPUT TYPE="TEXT" NAME="To"></td>
      </tr>
      <tr>
            <td>Subject:</td>
            <td><INPUT TYPE="TEXT" NAME="Subject"></td>
      </tr>
      <tr>
            <td>Body:</td>
            <td><TEXTAREA NAME="Body"></TEXTAREA></td>
      </tr>
      <tr>
            <td COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Send Message">
           </td>
      </tr>
</TABLE>
</FORM>
</BODY>
</HTML>
 
M

mosyhey

Member
با سلام.
شاید بتوانی همه ایمیل ها را در یک آرایه بریزی و با حلقه ای مانند for این دستور را هر چند بار که می خواهی اجرا کنی.
 
k_asg

k_asg

Member
آقا منم خودم به این نتیجه رسید که به آرایه و حلقه های تکرار احتیاج دارم
اینم نوشتم ولی جواب نمیده یه نظری بدید لطفا :

کد: 
dim strHost,myArray,i,lang

strHost = "mail.xxx.ir"
strUser = "[email protected]"
strPassword = "YYY"
lang = Request.Form("To")
myArray = split(lang,",")

for i=0 to ubound(myArray)
	myArray(i) = trim(myArray(i))
Next 
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.Username = strUser
Mail.Password = strPassword
Mail.IsHTML = True
Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional  
	

for i=0 to ubound(myArray)
 	Mail.AddAddress "myArray(i)"
Next
Mail.Subject = Request("Subject")
Mail.Body = Request("Body")
 
soheilweb

soheilweb

Active Member
k_asg گفت:
آقا منم خودم به این نتیجه رسید که به آرایه و حلقه های تکرار احتیاج دارم
اینم نوشتم ولی جواب نمیده یه نظری بدید لطفا :

کد: 
dim strHost,myArray,i,lang

strHost = "mail.xxx.ir"
strUser = "[email protected]"
strPassword = "YYY"
lang = Request.Form("To")
myArray = split(lang,",")

for i=0 to ubound(myArray)
	myArray(i) = trim(myArray(i))
Next 
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.Username = strUser
Mail.Password = strPassword
Mail.IsHTML = True
Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional  
	

for i=0 to ubound(myArray)
 	Mail.AddAddress "myArray(i)"
Next
Mail.Subject = Request("Subject")
Mail.Body = Request("Body")
کلیک کنید تا باز شود...


داداش اسکریتت ای اس پس بود درسته ؟
چون من سر در نساوردم ازش :-?
 
آخرین ویرایش:
k_asg

k_asg

Member
بله Aspوvbscript هستش
دیگه کل سورس رو نزاشتم
شما اشکالی میبینی ؟
 
k_asg

k_asg

Member
:lol: :lol:

ناراحت چیه داداش
منظورم شما از اشکالی میبینی اینه که آیا ایراد و مشکلی تو سورس میبینی بهم بگو که درست کنم
ناراحتی نداشت که حرف شما :D
 
k_asg

k_asg

Member
آقا بالاخره حل شد خدا رو شکر
فقط ایمیلهای یاهو میره تو Bulk Mail

کسی نمیدونه اونو چیکار کنم ؟ ؟ ؟
 
k_asg

k_asg

Member
کد خبرنامه با آبجکت Persits

کسایی که میخوان خبرنامه داشته باشن و یه ایمیل رو یکجا برای چندین نفر بفرستن از این سورس میتونن استفاده کنن
VBSCRIPT ASP
این سورس تو سرورهایی که از آبجکت Persits پشتیبانی میکنن کار میکنه
کد: 
dim strHost,myArray,i,lang,strUser,strPassword

strHost = "mail.xxx.ir"
strUser = "[email protected]"
strPassword = "yyy"
lang = Request.Form("To")
myArray = split(lang,", ")

for i=0 to ubound(myArray)
	myArray(i) = trim(myArray(i))
Next 
If Request("Send") <> "" Then

for i=0 to ubound(myArray)

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.Username = strUser
Mail.Password = strPassword
Mail.IsHTML = True
Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional  
Mail.AddAddress myArray(i)
Mail.Subject = Request("Subject")
Mail.Body = Request("Body") 

strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
     strErr = Err.Description
else
     bSuccess = True
End If
Next
End If

 %>
 <% If strErr <> "" Then %>
<h3>Error occurred: <% = strErr %>
<% End If %>

<% If bSuccess Then %>
      Success! Message sent to <% = Request("To") %>.
<% End If %>


<FORM METHOD="POST" ACTION=""> <TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
      <tr>
            <td>Host (change as necessary in script):</td>
            <td><B></B></td>
      </tr>
      <tr>
            <td>From (enter sender's address):<>/td>
            <td><INPUT NAME="From" TYPE="TEXT" value="[email protected]"></td>
      </tr>
      <tr>
            <td>FromName (optional, enter sender's name):</td>
            <td><INPUT NAME="FromName" TYPE="TEXT" value="سرآمدی" size="75"></td>
      </tr>
      <tr>
            <td>To: (enter one recipient's address):</td>
             <td><INPUT NAME="To" TYPE="TEXT" value="<%= Request.Form("userMail") %>" size="75"></td>
      </tr>
      <tr>
            <td>Subject:</td>
            <td><INPUT NAME="Subject" TYPE="TEXT" size="75"></td>
      </tr>
      <tr>
            <td>Body:</td>
            <td><TEXTAREA NAME="Body" cols="75" rows="10"></TEXTAREA></td>
      </tr>
      <tr>
            <td COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Send Message">
           </td>
      </tr>
</TABLE>
</FORM>
</BODY>
</html>
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا