<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<title><%=webname%>--推荐给朋友</title>
<%
dim id,action
id=SafeRequest("id",1)
action=request.form("action")
if action="toemail" then
friendemail=inputReplaceChar(trim(request.form("friendemail")))
youremail=inputReplaceChar(trim(request.form("youremail")))
yourname=inputReplaceChar(trim(request.form("yourname")))
emailcontent=HTMLEncode2(trim(request.form("emailcontent")))

MailType = webbj4
smtpserver = webbj7
sendusername = webbj8
sendpassword = webbj9
SendName = webbj3
SendTO = friendemail
SendFrom = webbj8
subject="你的朋友"&yourname&"推荐给你"&webname&"的商品信息！"
'发送邮件

Message= "<html>"
Message=message & "<title>" & subject & "</title>"
Message=message & "<body>"
Message=message & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
Message=message & "<TD valign=middle align=top>"
Message=message & "你的朋友"&yourname&"推荐给你"&webname&"的商品信息！"
Message=message & "<br><br>"
Message=message & "<center><a href=http://"& weburl &" /product.asp?id="&id&"  target=_blank>"
Message=message & "<font color=red>推荐给你商品网址</font> </a></center>"
Message=message & "<br><br>"
Message=message & ""&emailcontent&""
Message=message & "<br><br>"
Message=message & "你的朋友"&yourname&""
Message=message & "<br><br>"
Message=message & ""&youremail&""
Message=message & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
Message=message & "</html>"
Select Case MailType
Case "Nothing"

Case "CDONTS"
call sendemail(SendFrom,SendTO,smtpserver,sendusername,sendpassword,subject,Message)
Case "Jmail"
call SendJmail(SendFrom,SendTO,smtpserver,sendusername,sendpassword,subject,Message,SendName)
End Select
response.Write "<script language='javascript'>alert('发送成功！');location.href='product.asp?id="&id&"' ;</script>"
response.End
end if


%> 
<!--#include file="include/sendmail2.asp"-->
