/css.css rel=STYLESHEET type=text/css> <% If request("action")="add" Then id=request("id") chkid(id) mail=DelStr(request("Mail")) Comment=DelStr(Request("Comment")) title=DelStr(Request("title")) if mail="" or Comment="" or title="" then response.write "Please enter Name/Title/Comment" response.end else Set rs=Server.CreateObject("ADODB.Recordset") Sql="select * from venshop_comment" rs.open sql,conn,1,3 rs.addnew rs("mail")=mail rs("comment")=comment rs("title")=title rs("dateid")=id rs("date")=date() rs("c_c")=0 rs.update rs.close set rs=nothing Response.Write "" response.end end if end if%>