درود
من از كد زير براي بوتون سند استفاده كردم :
on (release) {
DynText = "Transmitting";
loadVariablesNum("flashmail.asp", 0, "POST");
}
ببخشيد شما درست بخونيد
در ضمن از كد اي اس پي زير :
<%@ Language=VBScript %>
<%
Response.Buffer = true
Dim mtextz, mtext01, mtext02, mtext03, mtext04
strHost = "mail.noxun.com"
mtext01 = "Name:" & Request.Form("name") & vbcrlf
mtext02 = "company:" & Request.Form("company") & vbcrlf
mtext03 = "Email: " & Request.Form("email") & vbcrlf
mtext04 = "Comments: " & Request.Form("comments") & vbcrlf
mtextz = mtext01 & mtext02 & mtext03 & mtext04
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
if request.Form("email") = "" then
Mail.From = "No name"
else
Mail.From = request.Form("email")
end if
Mail.To = "[email protected]"
Mail.MailFormat = 1
Mail.Body = mtextz
Mail.Send
Set Mail = Nothing
Response.write "DynText=E-mail sent successfully"
%>
ولي وقتي سند ميكنم چيزي ارسال نشده .
من از كد زير براي بوتون سند استفاده كردم :
on (release) {
DynText = "Transmitting";
loadVariablesNum("flashmail.asp", 0, "POST");
}
ببخشيد شما درست بخونيد
در ضمن از كد اي اس پي زير :
<%@ Language=VBScript %>
<%
Response.Buffer = true
Dim mtextz, mtext01, mtext02, mtext03, mtext04
strHost = "mail.noxun.com"
mtext01 = "Name:" & Request.Form("name") & vbcrlf
mtext02 = "company:" & Request.Form("company") & vbcrlf
mtext03 = "Email: " & Request.Form("email") & vbcrlf
mtext04 = "Comments: " & Request.Form("comments") & vbcrlf
mtextz = mtext01 & mtext02 & mtext03 & mtext04
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
if request.Form("email") = "" then
Mail.From = "No name"
else
Mail.From = request.Form("email")
end if
Mail.To = "[email protected]"
Mail.MailFormat = 1
Mail.Body = mtextz
Mail.Send
Set Mail = Nothing
Response.write "DynText=E-mail sent successfully"
%>
ولي وقتي سند ميكنم چيزي ارسال نشده .