%
if request("action") = "send" then
frommail = Trim(Request.Form("frommail"))
tomail = Trim(Request.Form("tomail"))
mailsubject = Trim(Request.Form("mailsubject"))
mailbody = " 考生姓名:"+Trim(Request.Form("name")+" 提问主题:"+Request.Form("timu")+" 提问内容:"+Request.Form("mailbody"))
if tomail<>"" then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject
objCDOMail.Body = mailbody
objCDOMail.Send
Set objCDOMail = Nothing
end if
Response.Write ""
Response.End
end if
%>
择校问题提交中心—北京教育招生考试网