<%'on error resume next %>
<!--#include virtual="/incs/config.asp" -->
<%
   thtml=trim(SafeRequest("tHtml"))
   yname=trim(SafeRequest("yname"))
   yemail=trim(SafeRequest("yemail"))
   yphone=trim(SafeRequest("yphone"))
   yother=trim(request("yother"))
   ywords=trim(request("ywords"))
   yspeed=trim(SafeRequest("yspeed"))
   if yname="" then
      call errorpage(-2,"对不起，请输入您的称呼...")
   elseif yemail=false then
      call errorpage(-2,"对不起，请输入您的电子邮件以便我们及时回复...")
   elseif ywords="" then
      call errorpage(-2,"对不起，请输入您的邮件内容...")
   else
        conn.open constr
		topic="来自网站"&pl_steurl&"的联系我们"
   		ifsend=jmailsend(pl_emlask,topic,thtml,true) ' 邮件发送程序(发信站点ID，收信人，主题，内容，是否html)
   		if err.number<>0 then
   		err.clear
   		end if
   		if ifsend=true then
   		ifsendwrd="发送成功"
		call okpage("/")
   		else
   		ifsendwrd="发送失败"
		call errorpage(-2,"对不起，发送失败！")
   		end if
   
   end if
%>

 