| |
“全员全面质量管理”会议胜利召开
|
|
| 日期:2006-12-30 14:30:26 来源: 编辑: |
|
12月29日,吴中地产集团“全员全面质量管理”会议在吴中集团6楼会议室胜利召开,公司全体员工参加了此次会议。在公司2006年取得辉煌业绩的时候召开这次会议,体现了公司注重品质的一贯作风。公司领导张总和彭总在会议上都作了重要讲话,强调吴中地产“每个楼盘都必须是精品”的理念,通过全员行动,全面落实,必将使吴中地产走向更辉煌的明天。公司营销总监周总、规划总监沈总、工程部方经理和质量总监李总也都先后发言,从各方面对公司质量管理作了分析,并对今后的工作作了指导和规划。

|
| |
|
|
|
|
<% Dim Uname,tel1,Uemail,where1,Utitle,Ucontent
Uname = Trim(request.form("U_Name"))
tel1 = Trim(request.form("tel2"))
Uemail = Trim(request.form("U_Email"))
where1 = Trim(request.form("where2"))
Utitle = request.form("Title")
Ucontent = request.form("Content")
'HTML支持
function htmlencode(str)
htmlencode=server.htmlencode(str)
htmlencode=replace(replace(htmlencode,chr(13),"
"),"'","’")
end function
set rs=server.createobject("adodb.recordset")
sqltext="select * from GuestBook"
rs.open sqltext,conn,3,3
if request.querystring="add" then
'添加一条留言到数据库
rs.addnew
rs("UserName")=Uname
rs("tel")=tel1
if Uemail="" then
rs("UserEmail")="@"
else
rs("UserEmail")=Uemail
end if
rs("where")=where1
rs("Title")=Utitle
rs("Content")=htmlencode(Ucontent)
rs("AddTime")=cstr(now())
rs.update
rs.close
conn.close
Response.Redirect "ly.asp"
End if
%>