اشكال در ارسال ميل با فرم لطفا فوري كمك كنيد

ranjbar_2 · Sep 24, 2004

[align=right:1c2be96699]سلام به همگي
راستشو بخواين نمي دونم اصلا كسي با مشكل من بر خورده يا نه
ولي من بدجوري گير كردم لطفففففففففففففففن كمكم كنيد

من يه فايل ارسال ميل دارم كه وقتي به صورت ثابت استفاده ميشه جواب ميده - البته ميره توي
bulk ياهو - كد من اينه :[/align:1c2be96699]
[align=left:1c2be96699]<%
Dim MyBody
Dim MyCDONTSMail
%>

<%
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "[email protected]"
MyCDONTSMail.To= "[email protected]"
MyCDONTSMail.Subject="This is a Test2"
MyBody = "Thank you for ordering that stuff" & vbCrLf
MyBody = MyBody & "We appretiate your business" & vbCrLf
MyBody = MyBody & "Your stuff will arrive within 7 business days"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>[/align:1c2be96699]
[align=right:1c2be96699]ولي وقتي با فرم استفاده ميكنم جواب نميده لطفا زود كمكم كنيد
فايل هاي فرم دار:[/align:1c2be96699]
[align=left:1c2be96699]
<HTML>
<BODY>
<FORM METHOD="POST" ACTION="mail.asp">
<table style="font-family:Tahoma; font-size:14px; ">
<tr><td>from email address:</td><td> <INPUT TYPE="TEXT" NAME="fromas" style="font-family:Tahoma; font-size:14px; "></td></tr>
<tr><td>to email address: </td><td><INPUT TYPE="TEXT" NAME="MailTo" style="font-family:Tahoma; font-size:14px; "></td></tr>
<tr><td>The subject:</td><td> <INPUT TYPE="TEXT" NAME="subjected" style="font-family:Tahoma; font-size:14px; "></td></tr>
<tr><td>Your message: </td><td><textarea name="bodyes" cols="80" rows="15" style="font-family:Tahoma; font-size:14px; "></textarea></td></tr>
<tr><td><INPUT TYPE="SUBMIT" VALUE="Send mail" style="font-family:Tahoma; font-size:14px; "></td><td></td></tr>
</table>
</FORM>
</BODY>
</HTML>
[/align:1c2be96699]
[align=right:1c2be96699]فايل بعدي هم اينه :[/align:1c2be96699][align=left:1c2be96699]
<%
Dim MyCDONTSMail
dim from_
dim to_
dim subject_
dim body_
dim attach_
form_=Request.Form("fromas")
to_=Request.Form("mailto")
subject_=Request.Form("subjected")
body_=Request.Form("bodyes")
%>
<%
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From=from_
MyCDONTSMail.To=to_
MyCDONTSMail.Subject=subject_
MyCDONTSMail.Body= body_
M yCDONTSMail.Send
set MyCDONTSMail=nothing
%>

[/align:1c2be96699]
[align=right:1c2be96699]اقا لطفا كمكم كنيد :?: