<% language=Trim(Request("language")) Call GetLanguage(Language) if Request.ServerVariables("REQUEST_METHOD") = "POST" Then SQL = "select * From [tblMessage] order by Id desc" set RS = db(SQL,3) RS.addnew RS("linkman") =GetLeach(Trim(Request("linkman")),2) RS("email") =Trim(Request("email")) RS("phone") =Trim(Request("Phone")) RS("subject") =GetLeach(Trim(Request("subject")),2) RS("content") =HTMLEncode(Trim(Request("content"))) RS.update RS.Close : set RS = Nothing Response.Write("") Response.End() End If If FoundErr<>True Then dim tpl set tpl = New Cls_Template Call tpl.Load(defInstalldir & defTemplatePath & "!sys/_"&language&"_feedback.html") tpl.pContent=Replace(tpl.pContent,"",GetTextarea("thisform","content",40,8,"")) Call tpl.Parser HTML = tpl.pContent Response.Write HTML set tpl = Nothing End if If FoundErr=True Then Call ErrMsg(Message) End if %>