09/10/2018, 18:23
loi khi gui mail = asp
minh co gui kem code. minh su dung host free coho tro asp nhu code gui mail nay no khong chiu chay. mong cac huynh de chi giup
<%
'+---------------------------------------------
'| Cau hinh o day
host="mr.vnn.vn"
SenderName="SalesDept"
SenderEmail="sales@matbao.com"
'+---------------------------------------------
'Khong chinh sua o duoi neu ban ko biet ve ASP
toname=Request.Form("toname")
toemail=Request.Form("toemail")
ccemail=Request.Form("ccname")
ccname=Request.Form("ccemail")
bccname=Request.Form("bccname")
bccemail=Request.Form("bccname")
filename=Request.Form("filename")
title=Request.Form("title")
message=Request.Form("message")
If Request.Form("submit")<>"" and toEmail<>"" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.IsHTML=true
Mail.Host = host
Mail.From = SenderEmail
Mail.FromName = SenderName
Mail.AddAddress toemail,toname
If ccEmail<>"" Then
Mail.AddCC ccemail,ccname
End If
If bccEmail<>"" Then
Mail.AddBcc bccname,bccname
End If
If filename<>"" Then
Mail.AddAttachment filename
End If
Mail.Subject=title
Mail.Body = message
Mail.Send
Response.Write("Email Send Success!")
End If
%>
<style>
table{FONT-SIZE: 8pt;FONT-FAMILY: Tahoma}
.textbox{BORDER-RIGHT: dimgray 1px solid;BORDER-TOP: dimgray 1px solid;FONT-SIZE: 8pt;BORDER-LEFT: dimgray 1px solid;BORDER-BOTTOM: dimgray 1px solid;FONT-FAMILY: Tahoma}
.bottom_line{BORDER-BOTTOM: silver 1px solid}
.border{BORDER: silver 1px solid}
</style>
<html>
<head><title>stormeyes.com - Send Email via Website</title></head>
<body bgcolor=#ffffff>
<form action="" method=post>
<table cellpadding=0 cellspacing=0 width=400 align=center class=border>
<tr><td>To Name:</td><td><input type=text class=textbox size=40 name=toname></td></tr>
<tr><td class=bottom_line>To Email:</td><td class=bottom_line><input type=text class=textbox size=40 name=toemail></td></tr>
<tr><td>CC name:</td><td><input type=text class=textbox size=40 name=ccname></td></tr>
<tr><td class=bottom_line>CC Email:</td><td class=bottom_line><input type=text class=textbox size=40 name=ccemail></td></tr>
<tr><td>BCC name:</td><td><input type=text class=textbox size=40 name=bccname></td></tr>
<tr><td class=bottom_line>BCC Email:</td><td class=bottom_line><input type=text class=textbox size=40 name=bccemail></td></tr>
<tr><td>Attachment</td><td><input type=file name=filename class=textbox size=26></td></tr>
<tr><td>Title:</td><td><input type=text class=textbox size=40 name=title></td></tr>
<tr><td valign=top>Message:</td><td><textarea cols=40 rows=10 class=textbox name=message></textarea></td></tr>
<tr><td></td><td><input type=submit class=textbox value=" Send " name=submit></td></tr>
</table>
</form>
<%
'+---------------------------------------------
'| Cau hinh o day
host="mr.vnn.vn"
SenderName="SalesDept"
SenderEmail="sales@matbao.com"
'+---------------------------------------------
'Khong chinh sua o duoi neu ban ko biet ve ASP
toname=Request.Form("toname")
toemail=Request.Form("toemail")
ccemail=Request.Form("ccname")
ccname=Request.Form("ccemail")
bccname=Request.Form("bccname")
bccemail=Request.Form("bccname")
filename=Request.Form("filename")
title=Request.Form("title")
message=Request.Form("message")
If Request.Form("submit")<>"" and toEmail<>"" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.IsHTML=true
Mail.Host = host
Mail.From = SenderEmail
Mail.FromName = SenderName
Mail.AddAddress toemail,toname
If ccEmail<>"" Then
Mail.AddCC ccemail,ccname
End If
If bccEmail<>"" Then
Mail.AddBcc bccname,bccname
End If
If filename<>"" Then
Mail.AddAttachment filename
End If
Mail.Subject=title
Mail.Body = message
Mail.Send
Response.Write("Email Send Success!")
End If
%>
<style>
table{FONT-SIZE: 8pt;FONT-FAMILY: Tahoma}
.textbox{BORDER-RIGHT: dimgray 1px solid;BORDER-TOP: dimgray 1px solid;FONT-SIZE: 8pt;BORDER-LEFT: dimgray 1px solid;BORDER-BOTTOM: dimgray 1px solid;FONT-FAMILY: Tahoma}
.bottom_line{BORDER-BOTTOM: silver 1px solid}
.border{BORDER: silver 1px solid}
</style>
<html>
<head><title>stormeyes.com - Send Email via Website</title></head>
<body bgcolor=#ffffff>
<form action="" method=post>
<table cellpadding=0 cellspacing=0 width=400 align=center class=border>
<tr><td>To Name:</td><td><input type=text class=textbox size=40 name=toname></td></tr>
<tr><td class=bottom_line>To Email:</td><td class=bottom_line><input type=text class=textbox size=40 name=toemail></td></tr>
<tr><td>CC name:</td><td><input type=text class=textbox size=40 name=ccname></td></tr>
<tr><td class=bottom_line>CC Email:</td><td class=bottom_line><input type=text class=textbox size=40 name=ccemail></td></tr>
<tr><td>BCC name:</td><td><input type=text class=textbox size=40 name=bccname></td></tr>
<tr><td class=bottom_line>BCC Email:</td><td class=bottom_line><input type=text class=textbox size=40 name=bccemail></td></tr>
<tr><td>Attachment</td><td><input type=file name=filename class=textbox size=26></td></tr>
<tr><td>Title:</td><td><input type=text class=textbox size=40 name=title></td></tr>
<tr><td valign=top>Message:</td><td><textarea cols=40 rows=10 class=textbox name=message></textarea></td></tr>
<tr><td></td><td><input type=submit class=textbox value=" Send " name=submit></td></tr>
</table>
</form>
Bài liên quan
đây là code send mail :
<%
Dim objCDONTS ' Email object
Dim strFromName ' From persons' real name
Dim strFromEmail, strToEmail ' Email addresses
Dim strSubject, strBody ' Message
Dim misccompo
strSubject = "E-mail từ diễn đàn tin học"
strFromName = Request.Form("firstName") & " " & Request.Form("lastName")
strFromEmail = Trim(Request.Form("email"))
strToEmail = "webmaster@apollohosting.com"
'strBody = Trim(Request.Form("message"))
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From = strFromName & " <" & strFromEmail & ">"
objCDONTS.To = strToEmail
objCDONTS.Subject = strSubject
strBody = strBody & "Điện thoại: " & Request.Form("tel") & vbcrlf
strBody = strBody & "E-mail: " & strReturnEmailAddress & vbcrlf
strBody = strBody & "Nội dung: " & vbcrlf
strBody = strBody & "---------------------------" & vbcrlf
strBody = strBody & Request.Form("enquiry") & vbcrlf
objCDONTS.Body = "--------------------------------------" & vbcrlf & vbcrlf & strbody & vbcrlf & vbcrlf & vbcrlf & "--------------------------------------------------------------" & vbcrlf & "MESSAGE ENDS: End of message"
objCDONTS.Send
Set objCDONTS = Nothing
%>
no khong chay, bao loi
HTTP 500 - Internal server error
la loi gi vay ban
mong cac banm chi giup
HTTP 500 - Internal server error
đúng thế
nhưng tốt nhất vào phần help của chỗ bạn thuê host, chắc nó cũng viết sẵn, copy rồi chạy thử
nếu bạn muốn thì liên hệ, mình giúp cho