irajgaderi
کاربر تازه وارد
- تاریخ عضویت
- 7 نوامبر 2006
- نوشتهها
- 13
- لایکها
- 0
کد:
500 internal server erore
--------------------------------------------------------------------------------
لطفا کمک فوری
این برنامه من برای ارسال ایمیل
Code:
<%@LANGUAGE="VBSCRIPT" CodePage=1256%>
<%Session.CodePage="1256"%>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<%
stremail ="[email protected]"
strname = "pedram"
strshams = "20/05/86"
striddesign = "5a-(506)"
''''''''' Check if all required fields are completed then starat sending E-mail '''''''''''''
If strname<>"" OR stremail<>"" OR striddesign<>"" Then
strText ="<meta http-equiv='Content-Type' content='text/html; charset=windows-1256'>"_
&"<body background='http://www.op.ir/op/pics/bag/234.gif'><br>"_
&"<table align='center' width='414' border='0' cellspacing='0' cellpadding='0'>"_
&"<tr><td width='414px' height='112px' background='http://www.op.ir/picer/email/aa.gif' valign='bottom'></td></tr>"_
&"<tr><td width='414px' height='69px' background='http://www.op.ir/picer/email/c.gif'>"_
&"<p align='center' style='font-family:'Tahoma'; font-size:10px; color:#FFFFFF;'><br>"_
&"شما طرح "&striddesign&" <br>"_
&"</p></td></tr>"_
&"<tr><td valign='top' align='justify' height='150px' background='http://www.op.ir/picer/email/d.gif'>"_
&" <p style='padding-right:40px; padding-left:40px; font-family:'Tahoma'; font-size:10px;color:#FFFFFF;'><br><br><br><br><br><br><br></p></td></tr>"_
&"<tr><td align='center' width='414px' height='84' background='http://www.op.ir/picer/email/e.gif' valign='bottom'>"_
&" <p style='font-family:'Tahoma'; font-size:10px; color:#FFFFFF;'>با اميد به رضايتمندي شما از پاسخ<br>با تشکر</p>"_
&"<p align='center'><a style='font-size:10px; color:#FFFFFF; font:Tahoma;' href='http://www.op.ir'>w w w . o p . i r</a></p></td></tr></table>"_
&"</body>"
Set objEmail = CreateObject("CDO.Message")
objEmail.BodyPart.Charset = "windows-1256"
objEmail.From = "[email protected]"
objEmail.To =strEmail
objEmail.Subject = "w w w . o p . i r "
objEmail.AddAttachment "e:\eslimi\dbcdr\"&striddesign&".cdr"
strText = replace(strText,vbCrLf,"<br>")
objEMail.HTMLBody = strText
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.op.ir"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objEmail.Configuration.Fields.Update
objEmail.TextBodyPart.Charset = "windows-1256"
objEmail.HTMLBodyPart.Charset = "windows-1256"
objEmail.Send
'''''''''''''' The E-mail has been sent and now we say Thank You '''''''''''''
Response.Redirect("freesend.asp")
Else
Response.Redirect("error.html")
End If
%>