Set rs = server.CreateObject("adodb.recordset")
sql = "select * from M_mess"
rs.open sql,conn,3,2
rs.addnew
rs("title") = title
rs("nr") = nr
rs("username")=tel
rs("adddate")=now()
rs("zt")=0
rs("lx")=1
rs("xxgl")=uname
rs("nrid")=ids
rs("lszt")=0
rs.update
rs.movelast
newid = rs("id")
rs.Close
Set rs = Nothing