<%@ Language=VBScript %>
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
end if
if not ef Then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
  Set dsregagn = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_AGENT where username='"&session("agentusername")&"'"
		dsregagn.Open Sql,conn,1,1
If IsNull(dsregagn("Mailfrom")) Then
	ef=True
	ec="用户管理中的发件人等信息没有设置，请先设置它。"
End If
End if

if not ef Then

%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>
　群发邮件
<%=htmlwrite("html6")%>
<br>
发件人称呼:<%=dsregagn("MailfromName")%>
<br>
发件人邮箱:<%=dsregagn("Mailfrom")%><br>
主题：<%=session("gemailsubject")%>
<br>
内容：<%=session("gemailbody")%><br>
目标邮件数量：<%=session("gemailcount")%>个
<br>
目标邮箱：<%=session("gemail")%>
<%dsregagn.close
Set dsregagn=nothing%>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
